Class TEditN (unit EditNew) |
Inherits from
TEdit
constructor Create(AOwner : TComponent);
- Not declare override because make stack overflow
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;
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
event OnChange : TNotifyEvent
event OnEnter : TNotifyEvent
event OnExit : TNotifyEvent
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;
constructor Create(AOwner : TComponent);
Not declare override because make stack overflow
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;
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
event OnChange : TNotifyEvent
event OnEnter : TNotifyEvent
event OnExit : TNotifyEvent
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;