| Class TZoomler (unit Zoomler) |
TGraphicControl
| Constructors |
constructor Create(Owner: 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 CalcScreen;
procedure DoLeftMove;
procedure DoLeftPage(X:integer);
procedure DoRightMove;
procedure DoRightPage(X:integer);
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;