Class TPrintout (unit Print_preview) |
Inherits from
TObject
Public declarations
constructor Create;
- ///////////////////////////////////////////////////////////////////////////// TPrintout - a collection of pages /////////////////////////////////////////////////////////////////////////////
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);
property CurrentPage : Integer
property Metafiles : TMetafile
property PageCount : Integer
Title : String;
Public declarations
FCurrentPage : Integer;
of single_pages
Flastpage : integer;
Flastscale : double;
FPages : TList;
Private declarations
Print_Preview : TPrintPreview_form;
constructor Create;
///////////////////////////////////////////////////////////////////////////// TPrintout - a collection of pages /////////////////////////////////////////////////////////////////////////////
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);
property CurrentPage : Integer
property Metafiles : TMetafile
property PageCount : Integer
Title : String;
Public declarations
FCurrentPage : Integer;
of single_pages
Flastpage : integer;
Flastscale : double;
FPages : TList;
Private declarations
Print_Preview : TPrintPreview_form;