Class TPrintPreview_form (unit Print_preview)

Inherits from

TForm

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.

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;



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;