| Class TZImage (unit ZImage) |
TGraphicControl
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
destructor Destroy;
procedure DblClick;
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;
procedure SetBitmap(b:TBitmap);
procedure SetBorderWidth(w:integer);
procedure SetProportional(b:boolean);
procedure SetShowBorder(s:boolean);| Properties |
property Align :
property Bitmap : TBitmap
property BorderWidth : integer
property DblClkEnable : boolean
property ForceRepaint : boolean
property Height :
property Hint :
property KeepAspect : boolean
property Left :
property ShowBorder : boolean
property ShowHint :
property Top :
property Visible :
property Width : | Events |
| Variables |
FBitmap : TBitmap;
FBorderWidth : integer;
FDblClkEnable : boolean;
FForceRepaint : boolean;
FMouse : (mNone, mDrag, mZoom);
FProportional : boolean;
FShowBorder : boolean;
oldx : integer;
oldy : integer;
PicRect : TRect;
ShowRect : TRect;
startx : integer;
starty : integer;| Constructors |
constructor Create(AOwner:TComponent);| Functions |
destructor Destroy;
procedure DblClick;if Startx>x then begin DblClick; Exit; end;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);vertical zoom indicator
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);vertical movement
procedure Paint;
procedure SetBitmap(b:TBitmap);
procedure SetBorderWidth(w:integer);
procedure SetProportional(b:boolean);
procedure SetShowBorder(s:boolean);| Properties |
property Align :
property Bitmap : TBitmap
property BorderWidth : integer
property DblClkEnable : boolean
property ForceRepaint : boolean
property Height :
property Hint :
property KeepAspect : boolean
property Left :
property ShowBorder : boolean
property ShowHint :
property Top :
property Visible :
property Width : | Events |
| Variables |
FBitmap : TBitmap;
FBorderWidth : integer;
FDblClkEnable : boolean;
FForceRepaint : boolean;
FMouse : (mNone, mDrag, mZoom);
FProportional : boolean;
FShowBorder : boolean;
oldx : integer;
oldy : integer;
PicRect : TRect;
ShowRect : TRect;
startx : integer;
starty : integer;