Class Tsingle_page (unit Print_preview)

Inherits from

TObject

Constructors


constructor create(form_parent:TPrintPreview_form);

///////////////////////////////////////////////////////////////////////////// TSingle page - one canvas with a list of (source) metafiles.


Functions

procedure add_metafile(tm:TMetafile; tr,rr:TRect; xs,ys:integer);

-(Margin_Size_pixels.

destructor destroy;


function GetMetaFile : TMetaFile;


function obj_count : integer;

Add rect of metafile to list

procedure Special_Mouse_handler(Sender:TObject; Button:TMouseButton; Shift:TShiftState; X,Y:Integer);


procedure Special_Paint_handler(Sender: TObject);


procedure Special_Resize_handler(Sender: TObject);


Properties

Events

Variables

FCanvas : TMetaFileCanvas;


FControls : TList;


FMetaFile : TMetaFile;


FMetafiles : TList;


FRects : TList;


parent_form : TPrintPreview_form;



Constructors


constructor create(form_parent:TPrintPreview_form);

///////////////////////////////////////////////////////////////////////////// TSingle page - one canvas with a list of (source) metafiles... ...and a canvas metafile /////////////////////////////////////////////////////////////////////////////


Functions


procedure add_metafile(tm:TMetafile; tr,rr:TRect; xs,ys:integer);

-(Margin_Size_pixels.y+Margin_Size_pixels2.y);


destructor destroy;


function GetMetaFile : TMetaFile;


function obj_count : integer;

Add rect of metafile to list


procedure Special_Mouse_handler(Sender:TObject; Button:TMouseButton; Shift:TShiftState; X,Y:Integer);


procedure Special_Paint_handler(Sender: TObject);


procedure Special_Resize_handler(Sender: TObject);


Properties


Events


Variables


FCanvas : TMetaFileCanvas;


FControls : TList;


FMetaFile : TMetaFile;


FMetafiles : TList;


FRects : TList;


parent_form : TPrintPreview_form;