pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Cosmetic changes in VpPrtPrvDlg

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8537 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-12 11:26:53 +00:00
parent d78a678e70
commit d061931e1f
1 changed files with 96 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

192
components/tvplanit/source/vpprtprvdlg.pas
View File

@ -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