Class Tsingle_page (unit Print_preview) |
Inherits from
TObject
constructor create(form_parent:TPrintPreview_form);
- ///////////////////////////////////////////////////////////////////////////// TSingle page - one canvas with a list of (source) metafiles.
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);
FCanvas : TMetaFileCanvas;
FControls : TList;
FMetaFile : TMetaFile;
FMetafiles : TList;
FRects : TList;
parent_form : TPrintPreview_form;
constructor create(form_parent:TPrintPreview_form);
///////////////////////////////////////////////////////////////////////////// TSingle page - one canvas with a list of (source) metafiles... ...and a canvas metafile /////////////////////////////////////////////////////////////////////////////
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);
FCanvas : TMetaFileCanvas;
FControls : TList;
FMetaFile : TMetaFile;
FMetafiles : TList;
FRects : TList;
parent_form : TPrintPreview_form;