Class TfrmPreview (unit Prev1_16)

Inherits from

TForm

A sample custom preview for QuickReport 2.0 Last update: March 5th, 1998

Constructors



Functions

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);


Properties

Events

Variables

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;



Constructors


Functions


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);


Properties


Events


Variables


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;