Class TZoomImage (unit Zoompic)

Inherits from

TGraphicControl

controls the zoom limit of the bitmap

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure AutoFit;


destructor Destroy;


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Implements dragging and resizing:

procedure MouseMove(Shift: TShiftState; X,Y: Integer);

MouseDown

procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X,Y: Integer);


procedure Paint;

so's descendants can control the painting mode

function getXCenter:word;


function getYCenter:word;


function getZoomV:word;


function hasbitmap:boolean;


procedure PictureChanged(Sender: TObject);


procedure SetBitmap(Value: TBitmap);


procedure setinvert(v:boolean);


procedure setvisbottom(v:word);


procedure setvisleft(v:word);


procedure setvisright(v:word);


procedure setvistop(v:word);


procedure setXCenter(v:word);


procedure setYCenter(v:word);


procedure setZoomV(v:word);


Properties

property Align :


property Bitmap : TBitmap


property DragCursor :


property DragMode :


property Enabled :


property Invert : boolean


property ParentShowHint :


property PopupMenu :


property ShowHint :


property visbottom : word


property Visible :


property visleft : word


property visright : word


property vistop : word


property XCenter : word


property YCenter : word


property zoomValue : word


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FBitmap : TBitmap;


FStretchmode : integer;


drect : trect;


dx : integer;


dy : integer;


fdragging : boolean;


FinVert : boolean;


Fvisbottom : word;


Fvisleft : word;


Fvisright : word;


Fvistop : word;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure AutoFit;


destructor Destroy;


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Implements dragging and resizing:


procedure MouseMove(Shift: TShiftState; X,Y: Integer);

MouseDown


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X,Y: Integer);


procedure Paint;

so's descendants can control the painting mode


function getXCenter:word;


function getYCenter:word;


function getZoomV:word;


function hasbitmap:boolean;


procedure PictureChanged(Sender: TObject);


procedure SetBitmap(Value: TBitmap);


procedure setinvert(v:boolean);


procedure setvisbottom(v:word);


procedure setvisleft(v:word);


procedure setvisright(v:word);


procedure setvistop(v:word);


procedure setXCenter(v:word);


procedure setYCenter(v:word);


procedure setZoomV(v:word);


Properties


property Align :


property Bitmap : TBitmap


property DragCursor :


property DragMode :


property Enabled :


property Invert : boolean


property ParentShowHint :


property PopupMenu :


property ShowHint :


property visbottom : word


property Visible :


property visleft : word


property visright : word


property vistop : word


property XCenter : word


property YCenter : word


property zoomValue : word


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FBitmap : TBitmap;


FStretchmode : integer;


drect : trect;


dx : integer;


dy : integer;


fdragging : boolean;


FinVert : boolean;


Fvisbottom : word;


Fvisleft : word;


Fvisright : word;


Fvistop : word;