| Class TfrmNetScapePreview (unit prev2_32) |
TForm
A sample custom preview for QuickReport 2.0 Last update: March 5th, 1998
| Constructors |
| Functions |
procedure btnCloseClick(Sender: TObject);
procedure btnNextPageClick(Sender: TObject);
procedure btnPrevPageClick(Sender: TObject);
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);
procedure QRPreview1PageAvailable(Sender: TObject; PageNum: Integer);
procedure Init;Shift the rest of the buttons over to fill the space of the hidden control
| Properties |
| Events |
| Variables |
btnClose : TButton;
btnNextPage : TButton;
btnPrevPage : TButton;
btnPrint : TButton;
btnZoomIn : TButton;
btnZoomOut : TButton;
Panel1 : TPanel;
QRPreview1 : TQRPreview;
bCanPrint : boolean;
bPleaseInit : Boolean;
pQuickreport : TQuickRep;
sTitle : string;| Constructors |
| Functions |
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
| Properties |
| Events |
| Variables |
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;