| Class TPrintPreview_form (unit Print_preview) |
TForm
| Constructors |
| Functions |
procedure ClearBtnClick(Sender: TObject);
procedure CloseButtonClick(Sender: TObject);
procedure FirstBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FullButtonClick(Sender: TObject);
procedure LastBtnClick(Sender: TObject);
procedure NextBtnClick(Sender: TObject);
function PageSetupDialog1InitPaintPage(Sender: TObject;
PaperSize: Smallint; PaperType: TPSPaperType;
PaperOrientation: TPSPaperOrientation; PrinterType: TPSPrinterType;
pSetupData: PPSDlgData): Boolean;
function PageSetupDialog1PaintPage(Sender: TObject;
PaintWhat: TPSPaintWhat; Canvas: TCanvas; Rect: TRect): Boolean;
procedure PaintAreaPaint(Sender: TObject);
procedure PrintBtnClick(Sender: TObject);
procedure PriorBtnClick(Sender: TObject);
procedure SetupBtnClick(Sender: TObject);
procedure SnapToGridClick(Sender: TObject);
procedure StretchHandle1Moved(Sender: TObject);
procedure ThisPageBtnClick(Sender: TObject);
procedure UpDown1Changing(Sender: TObject; var AllowChange: Boolean);
procedure WidthButtonClick(Sender: TObject);| Properties |
| Events |
| Variables |
ClearBtn : TExplorerButton;
CloseButton : TExplorerButton;
Edit1 : TEdit;
FirstBtn : TExplorerButton;
FullButton : TExplorerButton;
LastBtn : TExplorerButton;
NextBtn : TExplorerButton;
Panel2 : TPanel;
Panel3 : TPanel;
PrintBtn : TExplorerButton;
PriorBtn : TExplorerButton;
sb : TScrollBox;
SetupBtn : TExplorerButton;
SnapToGrid : TCheckBox;
ThisPageBtn : TExplorerButton;
UpDown1 : TUpDown;
WidthButton : TExplorerButton;
fullmode : boolean;
PageDisplaying : Integer;
PageSetupDialog1 : TPageSetupDialog;
PaintArea : TPanelWithCanvas;
PrintOut : TPrintout;
StretchHandle1 : TStretchHandle;| Constructors |
| Functions |
procedure ClearBtnClick(Sender: TObject);
procedure CloseButtonClick(Sender: TObject);
procedure FirstBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);///////////////////////////////////////////////////////////////////////////// Form event handlers /////////////////////////////////////////////////////////////////////////////
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);Stop it from being deleted incorrectly make sure panel doesn't have any children in it. (selection boxes
procedure FullButtonClick(Sender: TObject);otherwise boxes are wrong size
procedure LastBtnClick(Sender: TObject);//////////////////////////////////////////// Button press routines ////////////////////////////////////////////
procedure NextBtnClick(Sender: TObject);
function PageSetupDialog1InitPaintPage(Sender: TObject;
PaperSize: Smallint; PaperType: TPSPaperType;
PaperOrientation: TPSPaperOrientation; PrinterType: TPSPrinterType;
pSetupData: PPSDlgData): Boolean;//////////////////////////////////////////// Callbacks for pagesetupdialog ////////////////////////////////////////////
function PageSetupDialog1PaintPage(Sender: TObject;
PaintWhat: TPSPaintWhat; Canvas: TCanvas; Rect: TRect): Boolean;need a dummy handler here otherwise paintpage doesn't get called.
procedure PaintAreaPaint(Sender: TObject);
procedure PrintBtnClick(Sender: TObject);
procedure PriorBtnClick(Sender: TObject);
procedure SetupBtnClick(Sender: TObject);
procedure SnapToGridClick(Sender: TObject);
procedure StretchHandle1Moved(Sender: TObject);///////////////////////////////////////////////////////////////////////////// Special event for moved object (not resized) /////////////////////////////////////////////////////////////////////////////
procedure ThisPageBtnClick(Sender: TObject);
procedure UpDown1Changing(Sender: TObject; var AllowChange: Boolean);///////////////////////////////////////////////////////////////////////////// Last minute snaptogrid additions /////////////////////////////////////////////////////////////////////////////
procedure WidthButtonClick(Sender: TObject);| Properties |
| Events |
| Variables |
ClearBtn : TExplorerButton;
CloseButton : TExplorerButton;
Edit1 : TEdit;
FirstBtn : TExplorerButton;
FullButton : TExplorerButton;
LastBtn : TExplorerButton;
NextBtn : TExplorerButton;
Panel2 : TPanel;
Panel3 : TPanel;
PrintBtn : TExplorerButton;
PriorBtn : TExplorerButton;
sb : TScrollBox;
SetupBtn : TExplorerButton;
SnapToGrid : TCheckBox;
ThisPageBtn : TExplorerButton;
UpDown1 : TUpDown;
WidthButton : TExplorerButton;
fullmode : boolean;
PageDisplaying : Integer;
PageSetupDialog1 : TPageSetupDialog;
PaintArea : TPanelWithCanvas;Private declarations
PrintOut : TPrintout;
StretchHandle1 : TStretchHandle;