Class TReportStatusForm2 (unit Pstatus2)

Inherits from

TForm

-Printing Status form

Constructors



Functions

procedure CancelBtnClick(Sender: TObject);

with

procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure OkbtnClick(Sender: TObject);

LastPageNo := ReportFiler.

procedure ReportFilerPrintFooter(Sender: TObject);

with

procedure getpageno(sender : tObject);


Properties

Events

Variables

Bevel1 : TBevel;


CancelBtn : TBitBtn;


Label1 : TLabel;


OkBtn : TBitBtn;


PrintNotes : TCheckBox;


ReportFiler : TPreview;


CanAbort : Boolean;

Private declarations

LastPageNo : Integer;


ReportStream : TMemoryStream;



Constructors


Functions


procedure CancelBtnClick(Sender: TObject);

with


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure OkbtnClick(Sender: TObject);

LastPageNo := ReportFiler.totalpage;


procedure ReportFilerPrintFooter(Sender: TObject);

with


procedure getpageno(sender : tObject);


Properties


Events


Variables


Bevel1 : TBevel;


CancelBtn : TBitBtn;


Label1 : TLabel;


OkBtn : TBitBtn;


PrintNotes : TCheckBox;


ReportFiler : TPreview;


CanAbort : Boolean;

Private declarations


LastPageNo : Integer;


ReportStream : TMemoryStream;