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.

Constructors


constructor Create( AOwner: TComponent );



Functions

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 );


Properties

property MouseX : integer


property MouseY : integer


property ScrollBox : TScrollBox


Events

Variables

xRatioX : single;


xRatioY : single;


bMoving : boolean;


FMouseX : integer;


FMouseY : integer;


FScrollBox : TScrollBox;



Constructors


constructor Create( AOwner: TComponent );


Functions


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 );


Properties


property MouseX : integer


property MouseY : integer


property ScrollBox : TScrollBox


Events


Variables


xRatioX : single;


xRatioY : single;


bMoving : boolean;


FMouseX : integer;


FMouseY : integer;


FScrollBox : TScrollBox;