Class TCustomNumEdit (unit CurrEdit)

Inherits from

TCustomComboEdit

TCustomNumEdit

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;



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;