Class TSpinButton (unit Spin)

Inherits from

TWinControl

TSpinButton

Constructors


constructor Create(AOwner: TComponent);

TSpinButton


Functions

procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure Loaded;


procedure AdjustSize (var W: Integer; var H: Integer);


procedure BtnClick(Sender: TObject);


procedure BtnMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


function CreateButton: TTimerSpeedButton;


function GetDownButtonState : boolean;


function GetDownGlyph: TBitmap;


function GetPositioning : boolean;


function GetUpButtonState : boolean;


function GetUpGlyph: TBitmap;


procedure SetDownButtonState(NewState:boolean);


procedure SetDownGlyph(Value: TBitmap);


procedure SetFocusBtn (Btn: TTimerSpeedButton);


procedure SetPositioning(Vertical:boolean);


procedure SetUpButtonState(NewState:boolean);


procedure SetUpGlyph(Value: TBitmap);


procedure WMGetDlgCode(var Message: TWMGetDlgCode);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMSetFocus(var Message: TWMSetFocus);

check for minimum size

procedure WMSize(var Message: TWMSize);


Properties

property Align :


property Ctl3D :


property DownButtonEnabled : boolean


property DownGlyph : TBitmap


property DragCursor :


property DragMode :


property Enabled :


property FocusControl : TWinControl


property ParentCtl3D :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property UpButtonEnabled : boolean


property UpGlyph : TBitmap


property Vertical : Boolean


property Visible :


Events

event OnDownClick : TNotifyEvent


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnUpClick : TNotifyEvent


Variables

FDownButton : TTimerSpeedButton;


FFocusControl : TWinControl;


FFocusedButton : TTimerSpeedButton;


FOnDownClick : TNotifyEvent;


FOnUpClick : TNotifyEvent;


FUpButton : TTimerSpeedButton;


FVerticalPositioning : Boolean;



Constructors


constructor Create(AOwner: TComponent);

TSpinButton


Functions


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure Loaded;


procedure AdjustSize (var W: Integer; var H: Integer);


procedure BtnClick(Sender: TObject);


procedure BtnMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


function CreateButton: TTimerSpeedButton;


function GetDownButtonState : boolean;


function GetDownGlyph: TBitmap;


function GetPositioning : boolean;


function GetUpButtonState : boolean;


function GetUpGlyph: TBitmap;


procedure SetDownButtonState(NewState:boolean);


procedure SetDownGlyph(Value: TBitmap);


procedure SetFocusBtn (Btn: TTimerSpeedButton);


procedure SetPositioning(Vertical:boolean);


procedure SetUpButtonState(NewState:boolean);


procedure SetUpGlyph(Value: TBitmap);


procedure WMGetDlgCode(var Message: TWMGetDlgCode);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMSetFocus(var Message: TWMSetFocus);

check for minimum size


procedure WMSize(var Message: TWMSize);


Properties


property Align :


property Ctl3D :


property DownButtonEnabled : boolean


property DownGlyph : TBitmap


property DragCursor :


property DragMode :


property Enabled :


property FocusControl : TWinControl


property ParentCtl3D :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property UpButtonEnabled : boolean


property UpGlyph : TBitmap


property Vertical : Boolean


property Visible :


Events


event OnDownClick : TNotifyEvent


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnUpClick : TNotifyEvent


Variables


FDownButton : TTimerSpeedButton;


FFocusControl : TWinControl;


FFocusedButton : TTimerSpeedButton;


FOnDownClick : TNotifyEvent;


FOnUpClick : TNotifyEvent;


FUpButton : TTimerSpeedButton;


FVerticalPositioning : Boolean;