Class TPrintout (unit Print_preview)

Inherits from

TObject

Public declarations

Constructors


constructor Create;

///////////////////////////////////////////////////////////////////////////// TPrintout - a collection of pages /////////////////////////////////////////////////////////////////////////////


Functions

procedure add_metafile(pagenum:integer; tm:TMetafile; ox,oy:double);


procedure ClearPrintBuff;

stops sub controls sending repaint to parent, and causing infinite loop

destructor Destroy;


procedure DisplayPage(Page : Integer);

prevent resize message

function NewPage : Integer;


procedure Preview;


procedure PrintAll;


procedure PrinterSetupChanged;


procedure PrintPage(pagenum:integer);


procedure rescale_objects(scale:double; page:integer);

needed mainly when the user switches between full page/page width options

function GetMetafile(Index : Integer): TMetafile;


function GetPageCount : Integer;


procedure SetCurrentPage(Index : Integer);


Properties

property CurrentPage : Integer


property Metafiles : TMetafile


property PageCount : Integer


Events

Variables

Title : String;

Public declarations

FCurrentPage : Integer;

of single_pages

Flastpage : integer;


Flastscale : double;


FPages : TList;

Private declarations

Print_Preview : TPrintPreview_form;



Constructors


constructor Create;

///////////////////////////////////////////////////////////////////////////// TPrintout - a collection of pages /////////////////////////////////////////////////////////////////////////////


Functions


procedure add_metafile(pagenum:integer; tm:TMetafile; ox,oy:double);


procedure ClearPrintBuff;

stops sub controls sending repaint to parent, and causing infinite loop


destructor Destroy;


procedure DisplayPage(Page : Integer);

prevent resize message


function NewPage : Integer;


procedure Preview;


procedure PrintAll;


procedure PrinterSetupChanged;


procedure PrintPage(pagenum:integer);


procedure rescale_objects(scale:double; page:integer);

needed mainly when the user switches between full page/page width options


function GetMetafile(Index : Integer): TMetafile;


function GetPageCount : Integer;


procedure SetCurrentPage(Index : Integer);


Properties


property CurrentPage : Integer


property Metafiles : TMetafile


property PageCount : Integer


Events


Variables


Title : String;

Public declarations


FCurrentPage : Integer;

of single_pages


Flastpage : integer;


Flastscale : double;


FPages : TList;

Private declarations


Print_Preview : TPrintPreview_form;