Class TLargeScrollBar (unit LrgScrBr)

Inherits from

TWinControl

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

procedure SetParams(APosition, AMin, AMax: Integer);


procedure Change;


procedure CreateParams(var Params: TCreateParams);

Protected declarations

procedure CreateWnd;


procedure Scroll(ScrollCode: TScrollCode; var ScrollPos: Integer);


procedure CNHScroll(var Message: TWMHScroll);

NewPos;

procedure CNVScroll(var Message: TWMVScroll);


procedure DoScroll(var Message: TWMScroll);


procedure SetKind(Value: TScrollBarKind);


procedure SetMax(Value: Integer);


procedure SetMin(Value: Integer);


procedure SetPosition(Value: Integer);


Properties

property Ctl3D :

Published declarations

property DragCursor :


property DragMode :


property Enabled :


property Kind : TScrollBarKind


property LargeChange : TScrollBarInc


property Max : Integer


property Min : Integer


property ParentCtl3D :


property ParentShowHint :


property PopupMenu :


property Position : Integer


property ShowHint :


property SmallChange : TScrollBarInc


property TabOrder :


property TabStop :


property Visible :


Events

event OnChange : TNotifyEvent


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnScroll : TScrollEvent


event OnStartDrag :


Variables

FKind : TScrollBarKind;

Private declarations

FLargeChange : TScrollBarInc;


FMax : Integer;


FMin : Integer;


FOnChange : TNotifyEvent;


FOnScroll : TScrollEvent;


FPosition : Integer;


FReserved : Byte;


FSmallChange : TScrollBarInc;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


procedure SetParams(APosition, AMin, AMax: Integer);


procedure Change;


procedure CreateParams(var Params: TCreateParams);

Protected declarations


procedure CreateWnd;


procedure Scroll(ScrollCode: TScrollCode; var ScrollPos: Integer);


procedure CNHScroll(var Message: TWMHScroll);

NewPos;


procedure CNVScroll(var Message: TWMVScroll);


procedure DoScroll(var Message: TWMScroll);


procedure SetKind(Value: TScrollBarKind);


procedure SetMax(Value: Integer);


procedure SetMin(Value: Integer);


procedure SetPosition(Value: Integer);


Properties


property Ctl3D :

Published declarations


property DragCursor :


property DragMode :


property Enabled :


property Kind : TScrollBarKind


property LargeChange : TScrollBarInc


property Max : Integer


property Min : Integer


property ParentCtl3D :


property ParentShowHint :


property PopupMenu :


property Position : Integer


property ShowHint :


property SmallChange : TScrollBarInc


property TabOrder :


property TabStop :


property Visible :


Events


event OnChange : TNotifyEvent


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnScroll : TScrollEvent


event OnStartDrag :


Variables


FKind : TScrollBarKind;

Private declarations


FLargeChange : TScrollBarInc;


FMax : Integer;


FMin : Integer;


FOnChange : TNotifyEvent;


FOnScroll : TScrollEvent;


FPosition : Integer;


FReserved : Byte;


FSmallChange : TScrollBarInc;