Class TZoomler (unit Zoomler)

Inherits from

TGraphicControl

Constructors


constructor Create(Owner: TComponent);



Functions

destructor Destroy;


procedure DblClick;


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

proportionally

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


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


procedure Paint;


procedure CalcScreen;


procedure DoLeftMove;

double to screen

procedure DoLeftPage(X:integer);

one step to right

procedure DoRightMove;

one step to left

procedure DoRightPage(X:integer);

proportionally

Procedure OnTimer(Sender : TOBject);


procedure ProcessMove(X:integer);


procedure SetFinish(m:double);


procedure SetMax(m:double);


procedure SetMin(m:double);


Procedure SetOrientation(aOrientation : TOrientation);


procedure SetStart(m:double);


function WherePoint(X,Y:integer):byte;


Properties

property Align :


property DblClkEnable : boolean


property Finish : Double


property Max : Double


property Min : Double


property Orientation : TOrientation


property Start : Double


property Visible :


Events

event OnChanged : TNotifyEvent


event OnScrolling : TNotifyEvent


event OnZooming : TNotifyEvent


Variables

FChanged : TNotifyEvent;


FDblClk : boolean;


FFinish : Double;


FMax : Double;


FMin : Double;


FOrientation : TOrientation;


FScrolling : TNotifyEvent;


FSL : Integer;


FSR : Integer;


FStart : Double;


FStep : Double;


FZooming : TNotifyEvent;


hButton : TMouseButton;


hShift : TShiftState;


hX : Integer;


hY : Integer;


LeftMoving : Boolean;


RightMoving : Boolean;


Status : (st_NONE, st_LEFT, st_RIGHT, st_BOTH);


Timer : TTimer;


XS : integer;



Constructors


constructor Create(Owner: TComponent);


Functions


destructor Destroy;


procedure DblClick;


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

proportionally


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


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


procedure Paint;


procedure CalcScreen;


procedure DoLeftMove;

double to screen


procedure DoLeftPage(X:integer);

one step to right


procedure DoRightMove;

one step to left


procedure DoRightPage(X:integer);

proportionally


Procedure OnTimer(Sender : TOBject);


procedure ProcessMove(X:integer);


procedure SetFinish(m:double);


procedure SetMax(m:double);


procedure SetMin(m:double);


Procedure SetOrientation(aOrientation : TOrientation);


procedure SetStart(m:double);


function WherePoint(X,Y:integer):byte;


Properties


property Align :


property DblClkEnable : boolean


property Finish : Double


property Max : Double


property Min : Double


property Orientation : TOrientation


property Start : Double


property Visible :


Events


event OnChanged : TNotifyEvent


event OnScrolling : TNotifyEvent


event OnZooming : TNotifyEvent


Variables


FChanged : TNotifyEvent;


FDblClk : boolean;


FFinish : Double;


FMax : Double;


FMin : Double;


FOrientation : TOrientation;


FScrolling : TNotifyEvent;


FSL : Integer;


FSR : Integer;


FStart : Double;


FStep : Double;


FZooming : TNotifyEvent;


hButton : TMouseButton;


hShift : TShiftState;


hX : Integer;


hY : Integer;


LeftMoving : Boolean;


RightMoving : Boolean;


Status : (st_NONE, st_LEFT, st_RIGHT, st_BOTH);


Timer : TTimer;


XS : integer;