| Class TPrintout (unit Print_preview) |
TObject
Public declarations
| Constructors |
constructor Create;| Functions |
procedure add_metafile(pagenum:integer; tm:TMetafile; ox,oy:double);
procedure ClearPrintBuff;
destructor Destroy;
procedure DisplayPage(Page : Integer);
function NewPage : Integer;
procedure Preview;
procedure PrintAll;
procedure PrinterSetupChanged;
procedure PrintPage(pagenum:integer);
procedure rescale_objects(scale:double; page:integer);
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;
FCurrentPage : Integer;
Flastpage : integer;
Flastscale : double;
FPages : TList;
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;