Class TfrmPreview (unit Prev1_16) |
Inherits from
TForm
A sample custom preview for QuickReport 2.0
Last update: March 5th, 1998
procedure BitBtnExitClick(Sender: TObject);
DefaultExt := cQRPDefaultExt;
procedure CancelReport;
procedure cmdExitClick(Sender: TObject);
If the caller reports want to disable printing, then it will set} { the following boolean to false
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
Here's one way to show the current status of the report
procedure FormShow(Sender: TObject);
Force the preview to come up in the zoom setting that we want
procedure Init;
procedure LoadClick(Sender: TObject);
procedure PrintClick(Sender: TObject);
Just in case you are using an older version
procedure PrintSetupClick(Sender: TObject);
procedure QRPreviewPageAvailable(Sender: TObject; PageNum: Integer);
tell Delphi to free this form automaticly
procedure SaveClick(Sender: TObject);
procedure sbFirstPageClick(Sender: TObject);
We can disable functionality at runtime
procedure sbLastPageClick(Sender: TObject);
procedure sbNextPageClick(Sender: TObject);
procedure sbPreviousPageClick(Sender: TObject);
procedure sePageChange(Sender: TObject);
procedure seZoomChange(Sender: TObject);
procedure ZoomTo100Click(Sender: TObject);
procedure ZoomToFitClick(Sender: TObject);
procedure ZoomToWidthClick(Sender: TObject);
BitBtnExit : TBitBtn;
Label1 : TLabel;
Label3 : TLabel;
lblCopies : TLabel;
Load : TSpeedButton;
Panel1 : TPanel;
Print : TSpeedButton;
PrintSetup : TSpeedButton;
QRPreview : TQRPreview;
Save : TSpeedButton;
SaveDialogExport : TSaveDialog;
sbFirstPage : TSpeedButton;
sbLastPage : TSpeedButton;
sbNextPage : TSpeedButton;
sbPreviousPage : TSpeedButton;
sePage : TSpinEdit;
seZoom : TSpinEdit;
SpinEditCopies : TSpinEdit;
ZoomTo100 : TSpeedButton;
ZoomToFit : TSpeedButton;
ZoomToWidth : TSpeedButton;
bCanPrint : boolean;
bPleaseInit : Boolean;
pQuickreport : TQuickRep;
Private declarations
sTitle : string;
procedure BitBtnExitClick(Sender: TObject);
DefaultExt := cQRPDefaultExt;
procedure CancelReport;
procedure cmdExitClick(Sender: TObject);
If the caller reports want to disable printing, then it will set} { the following boolean to false
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
Here's one way to show the current status of the report
procedure FormShow(Sender: TObject);
Force the preview to come up in the zoom setting that we want
procedure Init;
procedure LoadClick(Sender: TObject);
procedure PrintClick(Sender: TObject);
Just in case you are using an older version
procedure PrintSetupClick(Sender: TObject);
procedure QRPreviewPageAvailable(Sender: TObject; PageNum: Integer);
tell Delphi to free this form automaticly
procedure SaveClick(Sender: TObject);
procedure sbFirstPageClick(Sender: TObject);
We can disable functionality at runtime
procedure sbLastPageClick(Sender: TObject);
procedure sbNextPageClick(Sender: TObject);
procedure sbPreviousPageClick(Sender: TObject);
procedure sePageChange(Sender: TObject);
procedure seZoomChange(Sender: TObject);
procedure ZoomTo100Click(Sender: TObject);
procedure ZoomToFitClick(Sender: TObject);
procedure ZoomToWidthClick(Sender: TObject);
BitBtnExit : TBitBtn;
Label1 : TLabel;
Label3 : TLabel;
lblCopies : TLabel;
Load : TSpeedButton;
Panel1 : TPanel;
Print : TSpeedButton;
PrintSetup : TSpeedButton;
QRPreview : TQRPreview;
Save : TSpeedButton;
SaveDialogExport : TSaveDialog;
sbFirstPage : TSpeedButton;
sbLastPage : TSpeedButton;
sbNextPage : TSpeedButton;
sbPreviousPage : TSpeedButton;
sePage : TSpinEdit;
seZoom : TSpinEdit;
SpinEditCopies : TSpinEdit;
ZoomTo100 : TSpeedButton;
ZoomToFit : TSpeedButton;
ZoomToWidth : TSpeedButton;
bCanPrint : boolean;
bPleaseInit : Boolean;
pQuickreport : TQuickRep;
Private declarations
sTitle : string;