| Class TCustomNumEdit (unit CurrEdit) |
TCustomNumEdit
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Clear;
destructor Destroy;
procedure AcceptValue(const Value: Variant);
procedure Change;
procedure DataChanged;
function DefaultDisplayFormat: string;
function GetDefaultBitmap(var DestroyNeeded: Boolean): TBitmap;
function GetDisplayText: string;
function IsValidChar(Key: Char): Boolean;
procedure KeyPress(var Key: Char);
procedure ReformatEditText;
procedure Reset;
procedure UpdateData;
procedure UpdatePopup;
function CheckValue(NewValue: Extended): Extended;
procedure CMEnabledChanged(var Message: TMessage);
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TCMExit);
procedure CMFontChanged(var Message: TMessage);
function GetAsInteger: Longint;
function GetDisplayFormat: string;
function GetText: string;
function GetTextMargins: TPoint;
function GetValue: Extended;
function IsFormatStored: Boolean;
procedure SetAlignment(Value: TAlignment);
procedure SetAsInteger(AValue: Longint);
procedure SetBeepOnError(Value: Boolean);
procedure SetDecimalPlaces(Value: Cardinal);
procedure SetDisplayFormat(const Value: string);
procedure SetFocused(Value: Boolean);
procedure SetFormatOnEditing(Value: Boolean);
procedure SetMaxValue(AValue: Extended);
procedure SetMinValue(AValue: Extended);
procedure SetText(const AValue: string);
procedure SetValue(AValue: Extended);
procedure SetZeroEmpty(Value: Boolean);
function TextToValText(const AValue: string): string;
procedure WMPaint(var Message: TWMPaint);
procedure WMPaste(var Message: TMessage);| Properties |
property AsInteger : Longint
property DisplayText : string
property Alignment : TAlignment
property BeepOnError : Boolean
property ButtonWidth :
property DecimalPlaces : Cardinal
property DisplayFormat : string
property FormatOnEditing : Boolean
property GlyphKind :
property MaxLength :
property MaxValue : Extended
property MinValue : Extended
property Text : string
property Value : Extended
property ZeroEmpty : Boolean| Events |
| Variables |
FAlignment : TAlignment;
FBeepOnError : Boolean;
FCanvas : TControlCanvas;
FDecimalPlaces : Cardinal;
FDisplayFormat : PString;
FFocused : Boolean;
FFormatOnEditing : Boolean;
FFormatting : Boolean;
FMaxValue : Extended;
FMinValue : Extended;
FValue : Extended;
FZeroEmpty : Boolean;| Constructors |
constructor Create(AOwner: TComponent);TCustomNumEdit
| Functions |
procedure Clear;
destructor Destroy;forces update
procedure AcceptValue(const Value: Variant);
procedure Change;
procedure DataChanged;
function DefaultDisplayFormat: string;
function GetDefaultBitmap(var DestroyNeeded: Boolean): TBitmap;
function GetDisplayText: string;
function IsValidChar(Key: Char): Boolean;
procedure KeyPress(var Key: Char);
procedure ReformatEditText;
procedure Reset;
procedure UpdateData;
procedure UpdatePopup;
function CheckValue(NewValue: Extended): Extended;
procedure CMEnabledChanged(var Message: TMessage);
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TCMExit);
procedure CMFontChanged(var Message: TMessage);Since edit controls do not handle justification unless multi-line (and then only poorly) we will draw right and center justify manually unless the edit has the focus.
function GetAsInteger: Longint;
function GetDisplayFormat: string;
function GetText: string;
function GetTextMargins: TPoint;
function GetValue: Extended;
function IsFormatStored: Boolean;
procedure SetAlignment(Value: TAlignment);
procedure SetAsInteger(AValue: Longint);
procedure SetBeepOnError(Value: Boolean);
procedure SetDecimalPlaces(Value: Cardinal);
procedure SetDisplayFormat(const Value: string);
procedure SetFocused(Value: Boolean);
procedure SetFormatOnEditing(Value: Boolean);
procedure SetMaxValue(AValue: Extended);
procedure SetMinValue(AValue: Extended);
procedure SetText(const AValue: string);
procedure SetValue(AValue: Extended);
procedure SetZeroEmpty(Value: Boolean);
function TextToValText(const AValue: string): string;
procedure WMPaint(var Message: TWMPaint);
procedure WMPaste(var Message: TMessage);| Properties |
property AsInteger : Longint
property DisplayText : string
property Alignment : TAlignment
property BeepOnError : Boolean
property ButtonWidth :
property DecimalPlaces : Cardinal
property DisplayFormat : string
property FormatOnEditing : Boolean
property GlyphKind :
property MaxLength :
property MaxValue : Extended
property MinValue : Extended
property Text : string
property Value : Extended
property ZeroEmpty : Boolean| Events |
| Variables |
FAlignment : TAlignment;
FBeepOnError : Boolean;
FCanvas : TControlCanvas;
FDecimalPlaces : Cardinal;
FDisplayFormat : PString;
FFocused : Boolean;
FFormatOnEditing : Boolean;
FFormatting : Boolean;
FMaxValue : Extended;
FMinValue : Extended;
FValue : Extended;
FZeroEmpty : Boolean;