Class TEditN (unit EditNew)

Inherits from

TEdit

Constructors


constructor Create(AOwner : TComponent);

Not declare override because make stack overflow


Functions

procedure Change;

Update the connected variable with the current value

procedure DoEnter;

if Key <> EditKeyByTab

procedure DoExit;

If a connection to a variable exists, Update the contents of the field with the contents of the connected variable in case the variable has changed.

procedure KeyPress(var Key: Char);


procedure SetFloat(VFloat : Double);


procedure SetInteger(VInteger : Integer);

El tipo Float - Double, permite valores hasta 5.

procedure SetPtrToData(DataPtr:Pointer);

etTime with seconds

procedure Update;


procedure FormatDate;

Protected declarations

procedure FormatTime;

TDateTime : Double;

Properties

property ColorOnFocus : TColor


property ColorOnNotFocus : TColor


property EditAlign : TEditAlign


property EditKeyByTab : Char


property EditLengthAlign : Integer


property EditPrecision : Integer


property EditType : TEditTypes


property FirstCharUpList : String


property FirstCharUpper : Boolean


property FontColorOnFocus : TColor


property FontColorOnNotFocus : TColor


property TimeSeconds : Boolean


property ValueDate : TDateTime


property ValueFloat : Double


property ValueInteger : Integer


property ValueTime : TDateTime


property WidthOnFocus : Integer


Events

event OnChange : TNotifyEvent


event OnEnter : TNotifyEvent


event OnExit : TNotifyEvent


Variables

EPrecision : Integer;


E_Color : TColor;


FE_Color : TColor;


FI_Color : TColor;


FOnChange : TNotifyEvent;


FOnEnter : TNotifyEvent;

Private declarations

FOnExit : TNotifyEvent;


FSeconds : Boolean;


FUpper : Boolean;


FUpperList : String;


FWidthOnFocus : Integer;


iWidth : Integer;


I_Color : TColor;


KeyTab : Char;


LongAlign : Integer;


PtrToData : Pointer;


sDate : Char;


SDecimal : Char;


sTime : Char;


TextAtEnter : String;


TipoAlign : TEditAlign;


TipoEdit : TEditTypes;


TxtConvert : String;


ValDate : TDateTime;


ValFloat : Double;


ValInteger : Integer;


ValTemp : Extended;


ValTime : TDateTime;



Constructors


constructor Create(AOwner : TComponent);

Not declare override because make stack overflow


Functions


procedure Change;

Update the connected variable with the current value


procedure DoEnter;

if Key <> EditKeyByTab


procedure DoExit;

If a connection to a variable exists, Update the contents of the field with the contents of the connected variable in case the variable has changed.


procedure KeyPress(var Key: Char);


procedure SetFloat(VFloat : Double);


procedure SetInteger(VInteger : Integer);

El tipo Float - Double, permite valores hasta 5.0 * 10e-324 .. 1.7 * 10e308 con 15-16 digitos significativos, por lo que solamente controlamos que el total no pase de 16 digitos. Hasta la fecha no he experimentado con valores Float tan altos, por lo que no me atrevo a condicionar algo que no conozco con exactitud.


procedure SetPtrToData(DataPtr:Pointer);

etTime with seconds


procedure Update;


procedure FormatDate;

Protected declarations


procedure FormatTime;

TDateTime : Double;


Properties


property ColorOnFocus : TColor


property ColorOnNotFocus : TColor


property EditAlign : TEditAlign


property EditKeyByTab : Char


property EditLengthAlign : Integer


property EditPrecision : Integer


property EditType : TEditTypes


property FirstCharUpList : String


property FirstCharUpper : Boolean


property FontColorOnFocus : TColor


property FontColorOnNotFocus : TColor


property TimeSeconds : Boolean


property ValueDate : TDateTime


property ValueFloat : Double


property ValueInteger : Integer


property ValueTime : TDateTime


property WidthOnFocus : Integer


Events


event OnChange : TNotifyEvent


event OnEnter : TNotifyEvent


event OnExit : TNotifyEvent


Variables


EPrecision : Integer;


E_Color : TColor;


FE_Color : TColor;


FI_Color : TColor;


FOnChange : TNotifyEvent;


FOnEnter : TNotifyEvent;

Private declarations


FOnExit : TNotifyEvent;


FSeconds : Boolean;


FUpper : Boolean;


FUpperList : String;


FWidthOnFocus : Integer;


iWidth : Integer;


I_Color : TColor;


KeyTab : Char;


LongAlign : Integer;


PtrToData : Pointer;


sDate : Char;


SDecimal : Char;


sTime : Char;


TextAtEnter : String;


TipoAlign : TEditAlign;


TipoEdit : TEditTypes;


TxtConvert : String;


ValDate : TDateTime;


ValFloat : Double;


ValInteger : Integer;


ValTemp : Extended;


ValTime : TDateTime;