Class TRxSpinEdit (unit RXSpin)

Inherits from

TCustomEdit

Constructors


constructor Create(AOwner: TComponent);

TRxSpinEdit


Functions

destructor Destroy;


procedure Change;


procedure CreateParams(var Params: TCreateParams);


procedure CreateWnd;


procedure DownClick(Sender: TObject);


function IsValidChar(Key: Char): Boolean;

must catch and remove this, since is actually multi-line

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


procedure KeyPress(var Key: Char);


procedure UpClick(Sender: TObject);


function CheckValue(NewValue: Extended): Extended;


procedure CMEnabledChanged(var Message: TMessage);


procedure CMEnter(var Message: TMessage);


procedure CMExit(var Message: TCMExit);


function GetAsInteger: Longint;


function GetMinHeight: Integer;

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

function GetValue: Extended;


function IsIncrementStored: Boolean;


function IsMaxStored: Boolean;


function IsMinStored: Boolean;


function IsValueStored: Boolean;


procedure SetAlignment(Value: TAlignment);

+1 is workaround for windows paint bug

procedure SetAsInteger(NewValue: Longint);


procedure SetDecimal(NewValue: Byte);


procedure SetEditRect;


procedure SetValue(NewValue: Extended);


procedure SetValueType(NewType: TValueType);


procedure WMCut(var Message: TWMCut);


procedure WMPaste(var Message: TWMPaste);


procedure WMSize(var Message: TWMSize);


Properties

property Alignment : TAlignment


property AutoSelect :


property AutoSize :


property Color :


property Ctl3D :


property Decimal : Byte


property DragCursor :


property DragMode :


property EditorEnabled : Boolean


property Enabled :


property Font :


property ImeMode :


property ImeName :


property Increment : Extended


property MaxLength :


property MaxValue : Extended


property MinValue : Extended


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Value : Extended


property ValueType : TValueType


property Visible :


property AsInteger : Longint


property Text :


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 :


event OnStartDrag :


Variables

FAlignment : TAlignment;


FBtnWindow : TWinControl;


FButton : TRxSpinButton;


FChanging : Boolean;


FDecimal : Byte;


FEditorEnabled : Boolean;


FIncrement : Extended;


FMaxValue : Extended;


FMinValue : Extended;


FValueType : TValueType;



Constructors


constructor Create(AOwner: TComponent);

TRxSpinEdit


Functions


destructor Destroy;


procedure Change;


procedure CreateParams(var Params: TCreateParams);


procedure CreateWnd;


procedure DownClick(Sender: TObject);


function IsValidChar(Key: Char): Boolean;

must catch and remove this, since is actually multi-line


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


procedure KeyPress(var Key: Char);


procedure UpClick(Sender: TObject);


function CheckValue(NewValue: Extended): Extended;


procedure CMEnabledChanged(var Message: TMessage);


procedure CMEnter(var Message: TMessage);


procedure CMExit(var Message: TCMExit);


function GetAsInteger: Longint;


function GetMinHeight: Integer;

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


function GetValue: Extended;


function IsIncrementStored: Boolean;


function IsMaxStored: Boolean;


function IsMinStored: Boolean;


function IsValueStored: Boolean;


procedure SetAlignment(Value: TAlignment);

+1 is workaround for windows paint bug


procedure SetAsInteger(NewValue: Longint);


procedure SetDecimal(NewValue: Byte);


procedure SetEditRect;


procedure SetValue(NewValue: Extended);


procedure SetValueType(NewType: TValueType);


procedure WMCut(var Message: TWMCut);


procedure WMPaste(var Message: TWMPaste);


procedure WMSize(var Message: TWMSize);


Properties


property Alignment : TAlignment


property AutoSelect :


property AutoSize :


property Color :


property Ctl3D :


property Decimal : Byte


property DragCursor :


property DragMode :


property EditorEnabled : Boolean


property Enabled :


property Font :


property ImeMode :


property ImeName :


property Increment : Extended


property MaxLength :


property MaxValue : Extended


property MinValue : Extended


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Value : Extended


property ValueType : TValueType


property Visible :


property AsInteger : Longint


property Text :


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 :


event OnStartDrag :


Variables


FAlignment : TAlignment;


FBtnWindow : TWinControl;


FButton : TRxSpinButton;


FChanging : Boolean;


FDecimal : Byte;


FEditorEnabled : Boolean;


FIncrement : Extended;


FMaxValue : Extended;


FMinValue : Extended;


FValueType : TValueType;