Class TDBEditN (unit EditNew)

Inherits from

TDBEdit

Constructors


constructor Create(AOwner : TComponent);

*************************************************************************}


Functions

procedure DOEnter;

Capital letter - Mażusculas

procedure DOExit ;

To assign the Color upon receiving the focus

procedure KeyPress(var Key: Char);

Public declarations

Properties

property ColorOnFocus : TColor


property ColorOnNotFocus : TColor


property EditKeyByTab : Char


property FirstCharUpList : String


property FirstCharUpper : Boolean


property FontColorOnFocus : TColor


property FontColorOnNotFocus : TColor


property WidthOnFocus : Integer


Events

event OnEnter : TNotifyEvent

Published declarations

event OnExit : TNotifyEvent


Variables

E_Color : TColor;


FE_Color : TColor;


FI_Color : TColor;


FKeyTab : Char;


FOnEnter : TNotifyEvent;

Private declarations

FOnExit : TNotifyEvent;


FUpper : Boolean;


FUpperList : String;


FWidthOnFocus : Integer;


iWidth : Integer;


I_Color : TColor;



Constructors


constructor Create(AOwner : TComponent);

*************************************************************************}


Functions


procedure DOEnter;

Capital letter - Mażusculas


procedure DOExit ;

To assign the Color upon receiving the focus


procedure KeyPress(var Key: Char);

Public declarations


Properties


property ColorOnFocus : TColor


property ColorOnNotFocus : TColor


property EditKeyByTab : Char


property FirstCharUpList : String


property FirstCharUpper : Boolean


property FontColorOnFocus : TColor


property FontColorOnNotFocus : TColor


property WidthOnFocus : Integer


Events


event OnEnter : TNotifyEvent

Published declarations


event OnExit : TNotifyEvent


Variables


E_Color : TColor;


FE_Color : TColor;


FI_Color : TColor;


FKeyTab : Char;


FOnEnter : TNotifyEvent;

Private declarations


FOnExit : TNotifyEvent;


FUpper : Boolean;


FUpperList : String;


FWidthOnFocus : Integer;


iWidth : Integer;


I_Color : TColor;