Class TTouchScroller (unit TouchScroller) |
Inherits from
TImage
********************************************
TTouchScroller -> TImage
Assign the ScrollBox property to a TScrollBox on your form.
Assign a picture property to the control that represents
visually the control(s) within the TScrollBox. Now,
when you click and drag inside the control, the scroll
bars in the TScrollBox will move accordingly, reflecting the
position of your mouse in this control!
PROPERTIES:
ScrollBox - Hook this into a TScrollBox on the form.
constructor Create( AOwner: TComponent );
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 SetRange;
procedure SetScrollBox( sb: TScrollBox );
property MouseX : integer
property MouseY : integer
property ScrollBox : TScrollBox
xRatioX : single;
xRatioY : single;
bMoving : boolean;
FMouseX : integer;
FMouseY : integer;
FScrollBox : TScrollBox;
constructor Create( AOwner: TComponent );
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 SetRange;
procedure SetScrollBox( sb: TScrollBox );
property MouseX : integer
property MouseY : integer
property ScrollBox : TScrollBox
xRatioX : single;
xRatioY : single;
bMoving : boolean;
FMouseX : integer;
FMouseY : integer;
FScrollBox : TScrollBox;