Class TZImage (unit ZImage)

Inherits from

TGraphicControl

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;



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;