Class TDFScroll (unit DFCtrls)

Inherits from

TDFControl

Constructors


constructor Create(AOwner: TComponent);

DFScroll


Functions

procedure Decrement;


destructor Destroy;


procedure Increment;


procedure PageDown;


procedure PageUp;


procedure ScrollBy(X, Y: Integer);


function DecBox: TRect;

procedure MsgEraseBack(var Message: TWMERASEBKGND); message WM_ERASEBKGND;

function IncBox: TRect;


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


function PointToPos(Point: TPoint): Integer;


function PosToPoint(Pos: Integer): TPoint;


function ThumbBox: TRect;


procedure OnTimer(Sender: TObject);


procedure SetDown(Val: TBitmap);


procedure SetGlyphs(Val: Byte);


procedure SetLeft(Val: TBitmap);


procedure SetMax(Val: Integer);


procedure SetMin(Val: Integer);


procedure SetOrientation(Val: TDFScrollOrientation);


procedure SetPosition(Val: Integer);


procedure SetRight(Val: TBitmap);


procedure SetThumb(Val: TBitmap);


procedure SetThumbTrans(Val: Boolean);


procedure SetUp(Val: TBitmap);


Properties

property Align :


property Background : TBackgndObj


property Bevel : TDFBevel


property Enabled :


property LargeChange : Integer


property Max : Integer


property Min : Integer


property NumGlyph : Byte


property Orientation : TDFScrollOrientation


property Pic_Down : TBitmap


property Pic_Left : TBitmap


property Pic_Right : TBitmap


property Pic_Thumb : TBitmap


property Pic_Up : TBitmap


property Position : Integer


property SmallChange : Integer


property TransparentThumb : Boolean


property Visible :


Events

event OnChange : TNotifyEvent


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseEnter : TNotifyEvent


event OnMouseLeave : TNotifyEvent


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

fCurrEvent : TDFScrollEvent;


fDown : TBitmap;


fGlyphs : Byte;


fLargeChange : Integer;


fLeft : TBitmap;


fMax : Integer;


fMin : Integer;


fMouseDown : Boolean;


fOnChange : TNotifyEvent;


fOrientation : TDFScrollOrientation;


fPosition : Integer;


fRight : TBitmap;


fSmallChange : Integer;


fThumb : TBitmap;


fThumbDrag : TPoint;


fThumbTrans : Boolean;


fUp : TBitmap;



Constructors


constructor Create(AOwner: TComponent);

DFScroll


Functions


procedure Decrement;


destructor Destroy;


procedure Increment;


procedure PageDown;


procedure PageUp;


procedure ScrollBy(X, Y: Integer);


function DecBox: TRect;

procedure MsgEraseBack(var Message: TWMERASEBKGND); message WM_ERASEBKGND;


function IncBox: TRect;


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


function PointToPos(Point: TPoint): Integer;


function PosToPoint(Pos: Integer): TPoint;


function ThumbBox: TRect;


procedure OnTimer(Sender: TObject);


procedure SetDown(Val: TBitmap);


procedure SetGlyphs(Val: Byte);


procedure SetLeft(Val: TBitmap);


procedure SetMax(Val: Integer);


procedure SetMin(Val: Integer);


procedure SetOrientation(Val: TDFScrollOrientation);


procedure SetPosition(Val: Integer);


procedure SetRight(Val: TBitmap);


procedure SetThumb(Val: TBitmap);


procedure SetThumbTrans(Val: Boolean);


procedure SetUp(Val: TBitmap);


Properties


property Align :


property Background : TBackgndObj


property Bevel : TDFBevel


property Enabled :


property LargeChange : Integer


property Max : Integer


property Min : Integer


property NumGlyph : Byte


property Orientation : TDFScrollOrientation


property Pic_Down : TBitmap


property Pic_Left : TBitmap


property Pic_Right : TBitmap


property Pic_Thumb : TBitmap


property Pic_Up : TBitmap


property Position : Integer


property SmallChange : Integer


property TransparentThumb : Boolean


property Visible :


Events


event OnChange : TNotifyEvent


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseEnter : TNotifyEvent


event OnMouseLeave : TNotifyEvent


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


fCurrEvent : TDFScrollEvent;


fDown : TBitmap;


fGlyphs : Byte;


fLargeChange : Integer;


fLeft : TBitmap;


fMax : Integer;


fMin : Integer;


fMouseDown : Boolean;


fOnChange : TNotifyEvent;


fOrientation : TDFScrollOrientation;


fPosition : Integer;


fRight : TBitmap;


fSmallChange : Integer;


fThumb : TBitmap;


fThumbDrag : TPoint;


fThumbTrans : Boolean;


fUp : TBitmap;