Class TfrmNetScapePreview (unit prev2_32)

Inherits from

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

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;



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;