Class TFnpNumericEdit (unit FnpNumericEdit)

Inherits from

TCustomEdit

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

procedure CreateParams(var Params: TCreateParams);


procedure DoEnter;

Protected declarations

procedure DoExit;

Need this since AutoSelect has no effect for multi-line controls

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


procedure KeyPress(var Key: Char);

"Eat" the keystroke here to prevent default handling

procedure DeleteKey(Key: Word);


procedure DeleteSelection;

Delete digit left of decimal point

function GetAsCurrency: Currency;

Overwrite digit if left of decimal point

function GetAsFloat: Double;


function GetAsInteger: Integer;


function GetValue: Double;


procedure InvalidEntry;


procedure SetAlignment(Value: TAlignment);


procedure SetAsCurrency(Value: Currency);


procedure SetAsFloat(Value: Double);


procedure SetAsInteger(Value: Integer);


procedure SetDecimals(Value: ShortInt);


procedure SetFormatMask;


procedure SetMaxValue(Value: Double);


procedure SetMinValue(Value: Double);


procedure SetValue(Value: Double);


procedure SetVersion(Value: String);


procedure WMCut(var Message: TMessage);

This property is read only!

procedure WMPaste(var Message: TMessage);


Properties

property Alignment : TAlignment

New properties

property AutoSelect :

Published declarations

property AutoSize :


property BorderStyle :


property Color :


property Ctl3D :


property Decimals : ShortInt


property DragCursor :


property DragMode :


property Enabled :


property Font :


property HideSelection :


property MaxLength :


property MaxValue : Double


property MinValue : Double


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Value : Double


property Version : String


property Visible :


property AsCurrency : Currency


property AsFloat : Double


property AsInteger : Integer


Events

event OnChange :


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnInvalidEntry : TNotifyEvent


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

FAlignment : TAlignment;

Private declarations

FDecimals : ShortInt;


FInvalidEntry : TNotifyEvent;


FMaxValue : Double;


FMinValue : Double;


FormatMask : String;


FVersion : String;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


procedure CreateParams(var Params: TCreateParams);


procedure DoEnter;

Protected declarations


procedure DoExit;

Need this since AutoSelect has no effect for multi-line controls


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


procedure KeyPress(var Key: Char);

"Eat" the keystroke here to prevent default handling


procedure DeleteKey(Key: Word);


procedure DeleteSelection;

Delete digit left of decimal point


function GetAsCurrency: Currency;

Overwrite digit if left of decimal point


function GetAsFloat: Double;


function GetAsInteger: Integer;


function GetValue: Double;


procedure InvalidEntry;


procedure SetAlignment(Value: TAlignment);


procedure SetAsCurrency(Value: Currency);


procedure SetAsFloat(Value: Double);


procedure SetAsInteger(Value: Integer);


procedure SetDecimals(Value: ShortInt);


procedure SetFormatMask;


procedure SetMaxValue(Value: Double);


procedure SetMinValue(Value: Double);


procedure SetValue(Value: Double);


procedure SetVersion(Value: String);


procedure WMCut(var Message: TMessage);

This property is read only!


procedure WMPaste(var Message: TMessage);


Properties


property Alignment : TAlignment

New properties


property AutoSelect :

Published declarations


property AutoSize :


property BorderStyle :


property Color :


property Ctl3D :


property Decimals : ShortInt


property DragCursor :


property DragMode :


property Enabled :


property Font :


property HideSelection :


property MaxLength :


property MaxValue : Double


property MinValue : Double


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Value : Double


property Version : String


property Visible :


property AsCurrency : Currency


property AsFloat : Double


property AsInteger : Integer


Events


event OnChange :


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnInvalidEntry : TNotifyEvent


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


FAlignment : TAlignment;

Private declarations


FDecimals : ShortInt;


FInvalidEntry : TNotifyEvent;


FMaxValue : Double;


FMinValue : Double;


FormatMask : String;


FVersion : String;