| Class TTouchScroller (unit TouchScroller) |
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;