Class TPrintPreview_form (unit Print_preview) |
Inherits from
TForm
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.
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);
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;
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);
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;