| Class Tsingle_page (unit Print_preview) |
TObject
| Constructors |
constructor create(form_parent:TPrintPreview_form);| Functions |
procedure add_metafile(tm:TMetafile; tr,rr:TRect; xs,ys:integer);
destructor destroy;
function GetMetaFile : TMetaFile;
function obj_count : integer;
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;