From d061931e1fceb63c1ab1bcf17a811ea45edc9313 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Wed, 12 Oct 2022 11:26:53 +0000 Subject: [PATCH] tvplanit: Cosmetic changes in VpPrtPrvDlg git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8537 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/tvplanit/source/vpprtprvdlg.pas | 192 ++++++++++----------- 1 file changed, 96 insertions(+), 96 deletions(-) diff --git a/components/tvplanit/source/vpprtprvdlg.pas b/components/tvplanit/source/vpprtprvdlg.pas index 7b8dc7642..a9d5cb261 100644 --- a/components/tvplanit/source/vpprtprvdlg.pas +++ b/components/tvplanit/source/vpprtprvdlg.pas @@ -50,113 +50,113 @@ type { TfrmPrintPreview } TfrmPrintPreview = class(TForm) - Bevel1: TBevel; - PageInfo: TLabel; - Panel1: TPanel; - cboxZoom: TComboBox; - btnCancel: TToolButton; - Panel2: TPanel; - pnlPageCount: TPanel; - VpPrintPreview1: TVpPrintPreview; - VpPrintFormatComboBox1: TVpPrintFormatComboBox; - ToolBar1: TToolBar; - btnPrint: TToolButton; - ToolButton3: TToolButton; - btnFirstPage: TToolButton; - btnPrevPage: TToolButton; - btnNextPage: TToolButton; - btnLastPage: TToolButton; - imMain: TImageList; - ToolButton8: TToolButton; - actMain: TActionList; - actPrint: TAction; - actFirstPage: TAction; - actPrevPage: TAction; - actNextPage: TAction; - actLastPage: TAction; - actCancel: TAction; + Bevel1: TBevel; + PageInfo: TLabel; + Panel1: TPanel; + cboxZoom: TComboBox; + btnCancel: TToolButton; + Panel2: TPanel; + pnlPageCount: TPanel; + VpPrintPreview1: TVpPrintPreview; + VpPrintFormatComboBox1: TVpPrintFormatComboBox; + ToolBar1: TToolBar; + btnPrint: TToolButton; + ToolButton3: TToolButton; + btnFirstPage: TToolButton; + btnPrevPage: TToolButton; + btnNextPage: TToolButton; + btnLastPage: TToolButton; + imMain: TImageList; + ToolButton8: TToolButton; + actMain: TActionList; + actPrint: TAction; + actFirstPage: TAction; + actPrevPage: TAction; + actNextPage: TAction; + actLastPage: TAction; + actCancel: TAction; - procedure OKBtnClick (Sender : TObject); - procedure cboxZoomChange(Sender: TObject); - procedure actPrintExecute(Sender: TObject); - procedure actFirstPageExecute(Sender: TObject); - procedure actPrevPageExecute(Sender: TObject); - procedure actNextPageExecute(Sender: TObject); - procedure actLastPageExecute(Sender: TObject); - procedure actMainUpdate(Action: TBasicAction; var Handled: Boolean); - procedure actCancelExecute(Sender: TObject); - procedure FormCreate(Sender: TObject); - procedure FormShow(Sender: TObject); - procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); - procedure ToolBar1Resize(Sender: TObject); - procedure VpPrintFormatComboBox1Change(Sender: TObject); + procedure OKBtnClick (Sender : TObject); + procedure cboxZoomChange(Sender: TObject); + procedure actPrintExecute(Sender: TObject); + procedure actFirstPageExecute(Sender: TObject); + procedure actPrevPageExecute(Sender: TObject); + procedure actNextPageExecute(Sender: TObject); + procedure actLastPageExecute(Sender: TObject); + procedure actMainUpdate(Action: TBasicAction; var Handled: Boolean); + procedure actCancelExecute(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure ToolBar1Resize(Sender: TObject); + procedure VpPrintFormatComboBox1Change(Sender: TObject); - private - FDrawingStyle: TVpDrawingStyle; - procedure PopulateImageList; - procedure SetCaptions; - procedure SetDrawingStyle(AValue: TVpDrawingStyle); - procedure UpdatePageInfo; + private + FDrawingStyle: TVpDrawingStyle; + procedure PopulateImageList; + procedure SetCaptions; + procedure SetDrawingStyle(AValue: TVpDrawingStyle); + procedure UpdatePageInfo; - public - Resource: TVpResource; - Contact: TVpContact; - ReturnCode: TVpEditorReturnCode; - property DrawingStyle: TVpDrawingStyle read FDrawingStyle write SetDrawingStyle; + public + Resource: TVpResource; + Contact: TVpContact; + ReturnCode: TVpEditorReturnCode; + property DrawingStyle: TVpDrawingStyle read FDrawingStyle write SetDrawingStyle; end; TVpPrintPreviewDialog = class (TVpBaseDialog) - private - FControlLink: TVpControlLink; - FAutoPrint: Boolean; - FBottomMargin: Extended; - FDrawingStyle: TVpDrawingStyle; - FEndDate: TDateTime; - FLeftMargin: Extended; - FMarginUnits: TVpItemMeasurement; - FRightMargin: Extended; - FStartDate: TDateTime; - FTopMargin: Extended; - FZoomFactor: TVpPPZoomFactor; - FWindowState: TWindowState; - FPrinter: TPrinter; + private + FControlLink: TVpControlLink; + FAutoPrint: Boolean; + FBottomMargin: Extended; + FDrawingStyle: TVpDrawingStyle; + FEndDate: TDateTime; + FLeftMargin: Extended; + FMarginUnits: TVpItemMeasurement; + FRightMargin: Extended; + FStartDate: TDateTime; + FTopMargin: Extended; + FZoomFactor: TVpPPZoomFactor; + FWindowState: TWindowState; + FPrinter: TPrinter; - protected - procedure Notification(AComponent: TComponent; Operation: TOperation); override; - procedure SetAutoPrint(const v: Boolean); - procedure SetBottomMargin(const v: Extended); - procedure SetControlLink(const v: TVpControlLink); - procedure SetEndDate(const v: TDateTime); - procedure SetLeftMargin(const v: Extended); - procedure SetMarginUnits(const v: TVpItemMeasurement); - procedure SetRightMargin(const v: Extended); - procedure SetStartDate(const v: TDateTime); - procedure SetTopMargin(const v: Extended); - procedure SetZoomFactor(const v: TVpPPZoomFactor); + protected + procedure Notification(AComponent: TComponent; Operation: TOperation); override; + procedure SetAutoPrint(const v: Boolean); + procedure SetBottomMargin(const v: Extended); + procedure SetControlLink(const v: TVpControlLink); + procedure SetEndDate(const v: TDateTime); + procedure SetLeftMargin(const v: Extended); + procedure SetMarginUnits(const v: TVpItemMeasurement); + procedure SetRightMargin(const v: Extended); + procedure SetStartDate(const v: TDateTime); + procedure SetTopMargin(const v: Extended); + procedure SetZoomFactor(const v: TVpPPZoomFactor); - public - constructor Create(AOwner: TComponent); override; - function Execute: Boolean; override; + public + constructor Create(AOwner: TComponent); override; + function Execute: Boolean; override; - property Printer: TPrinter read FPrinter write FPrinter; + property Printer: TPrinter read FPrinter write FPrinter; - published - property AutoPrint: Boolean read FAutoPrint write SetAutoPrint default False; - property BottomMargin: Extended read FBottomMargin write SetBottomMargin; - property ControlLink: TVpControlLink read FControlLink write SetControlLink; - property DrawingStyle: TVpDrawingStyle read FDrawingStyle write FDrawingStyle default ds3D; - property EndDate: TDateTime read FEndDate write SetEndDate; - property LeftMargin: Extended read FLeftMargin write SetLeftMargin; - property MarginUnits: TVpItemMeasurement read FMarginUnits write SetMarginUnits default imInches; - property RightMargin: Extended read FRightMargin write SetRightMargin; - property StartDate: TDateTime read FStartDate write SetStartDate; - property TopMargin: Extended read FTopMargin write SetTopMargin; - property WindowState: TWindowState read FWindowState write FWindowState default wsNormal; - property ZoomFactor: TVpPPZoomFactor read FZoomFactor write SetZoomFactor default zfFitToControl; + published + property AutoPrint: Boolean read FAutoPrint write SetAutoPrint default False; + property BottomMargin: Extended read FBottomMargin write SetBottomMargin; + property ControlLink: TVpControlLink read FControlLink write SetControlLink; + property DrawingStyle: TVpDrawingStyle read FDrawingStyle write FDrawingStyle default ds3D; + property EndDate: TDateTime read FEndDate write SetEndDate; + property LeftMargin: Extended read FLeftMargin write SetLeftMargin; + property MarginUnits: TVpItemMeasurement read FMarginUnits write SetMarginUnits default imInches; + property RightMargin: Extended read FRightMargin write SetRightMargin; + property StartDate: TDateTime read FStartDate write SetStartDate; + property TopMargin: Extended read FTopMargin write SetTopMargin; + property WindowState: TWindowState read FWindowState write FWindowState default wsNormal; + property ZoomFactor: TVpPPZoomFactor read FZoomFactor write SetZoomFactor default zfFitToControl; - property DataStore; - property Options; - property Placement; + property DataStore; + property Options; + property Placement; end; implementation