Class TSpinEdit (unit Spin)

Inherits from

TCustomEdit

TSpinEdit

Constructors


constructor Create(AOwner: TComponent);

TSpinEdit


Functions

destructor Destroy;


procedure CreateParams(var Params: TCreateParams);


procedure CreateWnd;

Params.

procedure DownClick (Sender: TObject);


function IsValidChar(Key: Char): Boolean;


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


procedure KeyPress(var Key: Char);


procedure UpClick (Sender: TObject);


function CheckValue (NewValue: LongInt): LongInt;


procedure CMEnter(var Message: TCMGotFocus);


procedure CMExit(var Message: TCMExit);


function GetMinHeight: Integer;

text edit bug: if size to less than minheight, then edit ctrl does not display the text

function GetValue: LongInt;


procedure SetEditRect;


procedure SetValue (NewValue: LongInt);


procedure WMCut(var Message: TWMCut);


procedure WMPaste(var Message: TWMPaste);


procedure WMSize(var Message: TWMSize);

debug

Properties

property AutoSelect :


property AutoSize :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property EditorEnabled : Boolean


property Enabled :


property Font :


property Increment : LongInt


property MaxLength :


property MaxValue : LongInt


property MinValue : LongInt


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Value : LongInt


property Visible :


property Button : TSpinButton


Events

event OnChange :


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FButton : TSpinButton;


FCanvas : TCanvas;


FEditorEnabled : Boolean;


FIncrement : LongInt;


FMaxValue : LongInt;


FMinValue : LongInt;



Constructors


constructor Create(AOwner: TComponent);

TSpinEdit


Functions


destructor Destroy;


procedure CreateParams(var Params: TCreateParams);


procedure CreateWnd;

Params.Style := Params.Style and not WS_BORDER;


procedure DownClick (Sender: TObject);


function IsValidChar(Key: Char): Boolean;


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


procedure KeyPress(var Key: Char);


procedure UpClick (Sender: TObject);


function CheckValue (NewValue: LongInt): LongInt;


procedure CMEnter(var Message: TCMGotFocus);


procedure CMExit(var Message: TCMExit);


function GetMinHeight: Integer;

text edit bug: if size to less than minheight, then edit ctrl does not display the text


function GetValue: LongInt;


procedure SetEditRect;


procedure SetValue (NewValue: LongInt);


procedure WMCut(var Message: TWMCut);


procedure WMPaste(var Message: TWMPaste);


procedure WMSize(var Message: TWMSize);

debug


Properties


property AutoSelect :


property AutoSize :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property EditorEnabled : Boolean


property Enabled :


property Font :


property Increment : LongInt


property MaxLength :


property MaxValue : LongInt


property MinValue : LongInt


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Value : LongInt


property Visible :


property Button : TSpinButton


Events


event OnChange :


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FButton : TSpinButton;


FCanvas : TCanvas;


FEditorEnabled : Boolean;


FIncrement : LongInt;


FMaxValue : LongInt;


FMinValue : LongInt;