Class TSpinButton (unit FSpin)

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 GetDownGlyph: TBitmap;


function GetUpGlyph: TBitmap;


procedure SetDownGlyph(Value: TBitmap);


procedure SetFocusBtn (Btn: TTimerSpeedButton);


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 DownGlyph : TBitmap


property DragCursor :


property DragMode :


property Enabled :


property FocusControl : TWinControl


property ParentCtl3D :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property UpGlyph : TBitmap


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;



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 GetDownGlyph: TBitmap;


function GetUpGlyph: TBitmap;


procedure SetDownGlyph(Value: TBitmap);


procedure SetFocusBtn (Btn: TTimerSpeedButton);


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 DownGlyph : TBitmap


property DragCursor :


property DragMode :


property Enabled :


property FocusControl : TWinControl


property ParentCtl3D :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property UpGlyph : TBitmap


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;