Class TfrmNetScapePreview (unit prev2_32) |
Inherits from
TForm
A sample custom preview for QuickReport 2.0
Last update: March 5th, 1998
procedure btnCloseClick(Sender: TObject);
procedure btnNextPageClick(Sender: TObject);
procedure btnPrevPageClick(Sender: TObject);
Just in case you are using an older version
procedure btnPrintClick(Sender: TObject);
procedure btnZoomInClick(Sender: TObject);
procedure btnZoomOutClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
tell Delphi to free this form automaticly
procedure QRPreview1PageAvailable(Sender: TObject; PageNum: Integer);
Force the preview to come up in the zoom setting that we want
procedure Init;
Private declarations Shift the rest of the buttons over to fill the space of the hidden control
btnClose : TButton;
btnNextPage : TButton;
btnPrevPage : TButton;
btnPrint : TButton;
btnZoomIn : TButton;
btnZoomOut : TButton;
Panel1 : TPanel;
QRPreview1 : TQRPreview;
bCanPrint : boolean;
bPleaseInit : Boolean;
pQuickreport : TQuickRep;
Public declarations
sTitle : string;
procedure btnCloseClick(Sender: TObject);
procedure btnNextPageClick(Sender: TObject);
procedure btnPrevPageClick(Sender: TObject);
Just in case you are using an older version
procedure btnPrintClick(Sender: TObject);
procedure btnZoomInClick(Sender: TObject);
procedure btnZoomOutClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
tell Delphi to free this form automaticly
procedure QRPreview1PageAvailable(Sender: TObject; PageNum: Integer);
Force the preview to come up in the zoom setting that we want
procedure Init;
Private declarations
Shift the rest of the buttons over to fill the space of the hidden control
btnClose : TButton;
btnNextPage : TButton;
btnPrevPage : TButton;
btnPrint : TButton;
btnZoomIn : TButton;
btnZoomOut : TButton;
Panel1 : TPanel;
QRPreview1 : TQRPreview;
bCanPrint : boolean;
bPleaseInit : Boolean;
pQuickreport : TQuickRep;
Public declarations
sTitle : string;