| Class TZoomImage (unit Zoompic) |
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);
procedure MouseMove(Shift: TShiftState; X,Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
procedure Paint;
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;