Class TRxSpinEdit (unit RXSpin) |
Inherits from
TCustomEdit
constructor Create(AOwner: TComponent);
- TRxSpinEdit
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);
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 :
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 :
FAlignment : TAlignment;
FBtnWindow : TWinControl;
FButton : TRxSpinButton;
FChanging : Boolean;
FDecimal : Byte;
FEditorEnabled : Boolean;
FIncrement : Extended;
FMaxValue : Extended;
FMinValue : Extended;
FValueType : TValueType;
constructor Create(AOwner: TComponent);
TRxSpinEdit
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);
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 :
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 :
FAlignment : TAlignment;
FBtnWindow : TWinControl;
FButton : TRxSpinButton;
FChanging : Boolean;
FDecimal : Byte;
FEditorEnabled : Boolean;
FIncrement : Extended;
FMaxValue : Extended;
FMinValue : Extended;
FValueType : TValueType;