Chip 1999 March/Chip_1999-03_cd.bin/zkuste/delphi/D/EDITNEW.ZIP/EditNew.pas

Pascal/Delphi Source File | 1998-12-05 | 24.1 KB | 783 lines

{TEditN, TMEditN, TDBEditN

 - Author   : Jose Maria Gias
 - email    : [e-mail]
 - Version  : 2.2 Delphi 2-3-4
 - Date     : 03.12.98
 - Type     : FreeWare

 Comments in file ReadENew.Txt
 }
unit EditNew;

interface

uses
  {$IFDEF WIN32}Windows,{$ELSE}Winprocs,{$ENDIF}
  Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls;

type
  TEditTypes = (etString, etInteger, etFloat,etDate,etTime);
  TEditAlign = (etAlignRight, etAlignLeft, etAlignCenter, etAlignNone, etAlignValue);

  TEditN = class(TEdit)
  private
    { Private declarations }
    FOnEnter      : TNotifyEvent;
    FOnExit       : TNotifyEvent;
    FOnChange     : TNotifyEvent;
    I_Color       : TColor;
    E_Color       : TColor;
    FI_Color      : TColor;
    FE_Color      : TColor;
    TipoEdit      : TEditTypes;
    TipoAlign     : TEditAlign;
    KeyTab        : Char;
    LongAlign     : Integer;
    ValInteger    : Integer;
    ValFloat      : Double;
    SDecimal      : Char;
    EPrecision    : Integer;
    FUpper        : Boolean;
    FUpperList    : String;
    ValTemp       : Extended;
    TxtConvert    : String;
    FWidthOnFocus : Integer;
    iWidth        : Integer;
    TextAtEnter   : String;
    PtrToData     : Pointer;
    sDate         : Char;
    sTime         : Char;
    FSeconds      : Boolean;
    ValDate       : TDateTime;
    ValTime       : TDateTime;
  protected
    {Protected declarations}
    procedure FormatDate;
    procedure FormatTime;
  public
    procedure KeyPress(var Key: Char); override;
    procedure DoEnter; override;
    procedure DoExit; override;
    procedure Change; override;
    procedure SetInteger(VInteger : Integer);
    procedure SetFloat(VFloat : Double);
    procedure SetPtrToData(DataPtr:Pointer);
    procedure Update; // Not declare override because make stack overflow
    constructor Create(AOwner : TComponent); override;
  published
    property  OnEnter: TNotifyEvent read FOnEnter write FOnEnter;
    property  OnExit : TNotifyEvent read FOnExit  write FOnExit;
    property  OnChange : TNotifyEvent read FOnChange  write FOnChange;
    property  ColorOnFocus : TColor read I_Color write I_Color;
    property  ColorOnNotFocus : TColor read E_Color write E_Color;
    property  FontColorOnFocus : TColor read FI_Color write FI_Color;
    property  FontColorOnNotFocus : TColor read FE_Color write FE_Color;
    property  EditType : TEditTypes read TipoEdit write TipoEdit;
    property  EditKeyByTab : Char read KeyTab write KeyTab;
    property  EditAlign : TEditAlign read TipoAlign write TipoAlign;
    property  EditLengthAlign : Integer read LongAlign write LongAlign;
    property  EditPrecision : Integer read EPrecision write EPrecision;
    property  ValueFloat : Double read ValFloat write ValFloat;
    property  ValueInteger : Integer read ValInteger write ValInteger;
    property  ValueDate : TDateTime read ValDate write ValDate;
    property  ValueTime : TDateTime read ValTime write ValTime;
    property  TimeSeconds : Boolean read FSeconds write FSeconds;
    property  FirstCharUpper : Boolean read FUpper write FUpper;
    property  FirstCharUpList : String read FUpperList write FUpperList;
    property  WidthOnFocus : Integer read FWidthOnFocus write FWidthOnFocus;
  end;

type
  TMEditN = class(TMaskEdit)
  private
    { Private declarations }
    FOnEnter      : TNotifyEvent;
    FOnExit       : TNotifyEvent;
    I_Color       : TColor;
    E_Color       : TColor;
    FI_Color      : TColor;
    FE_Color      : TColor;
    FKeyTab       : Char;
    FWidthOnFocus : Integer;
    iWidth        : Integer;
  protected
    { Protected declarations }
  public
    { Public declarations }
    procedure KeyPress(var Key: Char); override;
    procedure DOEnter; override;
    procedure DOExit ; override;
    constructor Create(AOwner : TComponent); override;
  published
    { Published declarations }
    property  OnEnter: TNotifyEvent read FOnEnter write FOnEnter;
    property  OnExit : TNotifyEvent read FOnExit  write FOnExit;
    property  ColorOnFocus : TColor read I_Color write I_Color;
    property  ColorOnNotFocus : TColor read E_Color write E_Color;
    property  FontColorOnFocus : TColor read FI_Color write FI_Color;
    property  FontColorOnNotFocus : TColor read FE_Color write FE_Color;
    property  EditKeyByTab : Char read FKeyTab write FKeyTab;
    property  WidthOnFocus : Integer read FWidthOnFocus write FWidthOnFocus;
  end;

type
  TDBEditN = class(TDBEdit)
  private
    { Private declarations }
    FOnEnter      : TNotifyEvent;
    FOnExit       : TNotifyEvent;
    I_Color       : TColor;
    E_Color       : TColor;
    FI_Color      : TColor;
    FE_Color      : TColor;
    FKeyTab       : Char;
    FWidthOnFocus : Integer;
    iWidth        : Integer;
    FUpper        : Boolean;
    FUpperList    : String;
  protected
    { Protected declarations }
  public
    { Public declarations }
    procedure KeyPress(var Key: Char); override;
    procedure DOEnter; override;
    procedure DOExit ; override;
    constructor Create(AOwner : TComponent); override;
  published
    { Published declarations }
    property  OnEnter: TNotifyEvent read FOnEnter write FOnEnter;
    property  OnExit : TNotifyEvent read FOnExit  write FOnExit;
    property  ColorOnFocus : TColor read I_Color write I_Color;
    property  ColorOnNotFocus : TColor read E_Color write E_Color;
    property  FontColorOnFocus : TColor read FI_Color write FI_Color;
    property  FontColorOnNotFocus : TColor read FE_Color write FE_Color;
    property  EditKeyByTab : Char read FKeyTab write FKeyTab;
    property  FirstCharUpper : Boolean read FUpper write FUpper;
    property  FirstCharUpList : String read FUpperList write FUpperList;
    property  WidthOnFocus : Integer read FWidthOnFocus write FWidthOnFocus;
  end;

procedure Register;

implementation

{$R EdNew32.res}

constructor TEditN.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  ColorOnFocus        := clWhite;
  ColorOnNotFocus     := clSilver;
  Color               := ColorOnNotFocus;
  FontColorOnFocus    := clRed;
  FontColorOnNotFocus := clBlack;
  TipoEdit            := etString;
  TipoAlign           := etAlignNone;
  LongAlign           := 0;
  KeyTab              := #9;        // #13 for Return by Tab
  ValInteger          := 0;
  ValFloat            := 0;
  EPrecision          := 0;
  SDecimal            := DecimalSeparator;
  FUpper              := False;
  FUpperList          := ' (';
  FWidthOnFocus       := 0;
  TextAtEnter         := '';
  PtrToData           := nil;
  sDate               := DateSeparator;   // Windows Default
  sTime               := TimeSeparator;   // Windows Default
  FSeconds            := False;           // etTime with seconds
  ValDate             := Date;
  ValTime             := Time;
end;

procedure TEditN.SetPtrToData(DataPtr:Pointer);
begin
 PtrToData := DataPtr;
 Update;
end;

procedure TEditN.Update;
begin
 if Assigned(PtrToData) then begin
  if EditType = etString  then Text := string(PtrToData^);
  if EditType = etInteger then Text := IntToStr(Integer(PtrToData^));
  if EditType = etFloat   then Text := FloatToStrF(Double(PtrToData^),ffgeneral,15,4);
  if EditType = etDate    then Text := DateToStr(TDateTime(PtrToData^));
  if EditType = etTime    then Text := TimeToStr(TDateTime(PtrToData^));
 end;
 Refresh;
 inherited Update;
end;

procedure TEditN.KeyPress(var Key: Char);
var
 {$IFDEF VER80}
  FEditTemp : TForm;       {For Delphi 1}
 {$ENDIF}

 {$IFDEF VER90}
  FEditTemp : TForm;       {For Delphi 2}
 {$ENDIF}

 {$IFDEF VER100}
  FEditTemp : TCustomForm; {For Delphi 3}
 {$ENDIF}

 {$IFDEF VER120}
  FEditTemp : TCustomForm; {For Delphi 4}
 {$ENDIF}

 C         : String;
begin

 if Key = EditKeyByTab then begin
  FEditTemp := GetParentForm(Self);
  SendMessage(FEditTemp.Handle, WM_NEXTDLGCTL, 0, 0);
  Key := #0;
 end else begin

  // If ESC is pressed during edit, all changes are cancelled
  // Si se ha pulsado escape, se anulan los cambios
  if Key = #27 then begin
   Text := TextAtEnter;
   Key  := #15;
  end;

  //Permitted characters in function of type
  // Caracteres permitidos en funci≤n del tipo
  Case EditType of
   etString :
    if FUpper then begin // Capital letter  - Ma²usculas
     if (Length(Text) = 0) or
        (SelText = Text) or
        (Pos(Text[Length(Text)],FUpperList) > 0) then begin
      C   := AnsiUpperCase(Key);
      Key := C[1];
     end;
    end;

   etInteger :
    begin
     if ((Pos('-',Text) > 0) or (Key = '-')) and (MaxLength = 0)
      then MaxLength := 11;

     if (not (Key in ['0'..'9','-',#8,#13,#35,#36,#37,#39])) or
        (Key = #32) or // To eliminate the introduction from spaces
        ((Key = '-') and (Pos('-',Text) > 0)) // To verify that alone is introduce a negative sign.
      then Key := #15;

    end;

   etFloat :
    begin
     if (not (Key in ['0'..'9',',','.','-',#8,#13,#35,#36,#37,#39])) or
        (Key = #32) or // To eliminate the spaces introduction
        ((Key = '-') and (Pos('-',Text) > 0)) // To verify that alone is introduce a negative sign.
      then Key := #15;

     if (Key = ',') or (Key = '.') then
      if (Pos(',',Text) > 0) or (Pos('.',Text) > 0)
       then Key := #15
       else Key := DecimalSeparator;

    end;

   etDate, etTime :
    if not (Key in ['0'..'9',#8,#13,#35,#36,#37,#39])
     then Key := #15;

  end; // Case EditType of
 end;  // if Key <> EditKeyByTab

 if Key <> #0 then inherited KeyPress(Key);

end;

procedure TEditN.DoEnter;
begin
 // To assign the Color upon receiving the focus
 if (EditType = etFloat) and (MaxLength = 0) then MaxLength := 16;
 Color       := ColorOnFocus;
 Font.Color  := FontColorOnFocus;
 TextAtEnter := Text;

 if WidthOnFocus > 0 then begin
  iWidth := Width;
  Width  := FWidthOnFocus;
 end;

 // 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.
 if Assigned(PtrToData) then Update;

 if EditType = etDate then MaxLength := 10;

 if EditType = etTime then
  if TimeSeconds then MaxLength := 8
                 else MaxLength := 5;

 if Assigned(FOnEnter) then FOnEnter(Self);
end;

procedure TEditN.DoExit;
var
 k : Integer;
 s : String;
begin

 // To return the color of the fund upon leaving and losing the focus
 Color      := ColorOnNotFocus;
 Font.Color := FontColorOnNotFocus;

 if WidthOnFocus > 0 then Width := iWidth;

 if (EditType = etString) and (Length(Text) > 0) then begin

  if FUpper then begin
   if Length(Text) = 1 then Text := AnsiUpperCase(Text);
   if Length(Text) > 1 then Text := AnsiUpperCase(Text[1]) + Copy(Text,2,Length(Text)-1);
  end;

  if (EditAlign <> etAlignNone) and (EditLengthAlign > 0) then begin // With Alignment

   // The length of the chain is < that that of Align.
   if (EditLengthAlign > Length(Text)) then
    Case EditAlign of
     etAlignLeft  :
      begin
       while Text[1] = ' ' do Text := Copy(Text,2,Length(Text)-1);
       for k := 1 to EditLengthAlign - Length(Text) do Text := Text + ' ';
      end;

     etAlignRight :
      begin
       for k:= 1 to EditLengthAlign - Length(Text) do Text := ' ' + Text;
      end;

     etAlignCenter:
      begin
       for k := 1 to Round((EditLengthAlign - Length(Text))/2) do Text := ' ' + Text;
       for k := Length(Text) to EditLengthAlign do Text := Text + ' ';
      end;

    end; // Case EditAlign
  end; // if (EditLengthAlign > Length(Text))
 end; // if (EditAlign <> etAlignNone) and (EditLengthAlign > 0)

 // To align a string Integer, filling with zeroes, if it has been indicated.
 // The negative sign if exists, counts it as a digit but
 if (EditType = etInteger) and
    (EditAlign = etAlignValue) and
    (EditLengthAlign > 0) then
  if Length(Text) < EditLengthAlign then
   for k := Length(Text) to EditLengthAlign - 1 do Text := '0' + Text;

 // To put the negative sign to the beginning of the chain. It has been designed
 // so that the negative sign could be introduced in any place, and here we happen
 // it to the beginning
 if ((EditType = etInteger) or (EditType = etFloat)) and (Pos('-',Text) > 1) then
  if Length(Text) = Pos('-',Text)
   then Text := '-' + Copy(Text,1,Pos('-',Text)-1)
   else Text := '-' +
                Copy(Text,1,Pos('-',Text)-1) +
                Copy(Text,Pos('-',Text) + 1,Length(Text) - Pos('-',Text));

 // If it has been defined precision, gives format  to the string
 if (EditType = etFloat) and (EditPrecision > 0) then begin
  if Length(Text) = 0 then Text := '0';
  SDecimal := DecimalSeparator;
  if Pos(SDecimal,Text) = 0 then begin
   Text := Text + SDecimal;
   for k := 1 to EditPrecision do Text := Text + '0';
  end else begin
   if Length(Text) - Pos(SDecimal,Text) > EditPrecision then
    Text := Copy(Text,1,Pos(SDecimal,Text) + EditPrecision);
   if Length(Text) - Pos(SDecimal,Text) < EditPrecision then
    for k := Length(Text) - Pos(SDecimal,Text) + 1 to EditPrecision do Text := Text + '0';
  end;
 end;

 // To align a string Float, filling of zeroes, if it has been indicated.
 // The negative sign if exists and the separating decimal, the account as a digit but
 if (EditType = etFloat) and
    (EditAlign = etAlignValue) and
    (EditLengthAlign > 0) then
  if Length(Text) < EditLengthAlign then
   for k := Length(Text) to EditLengthAlign - 1 do Text := '0' + Text;

 if EditType = etDate then FormatDate;

 if EditType = etTime then FormatTime;

 // Update the connected variable with the current value
 if Assigned(PtrToData) then begin
  if EditType = etInteger then Move(ValueInteger, PtrToData^, Sizeof(ValueInteger));
  if EditType = etFloat   then Move(ValueFloat,   PtrToData^, Sizeof(ValueFloat));
  if EditType = etDate    then Move(ValueDate,    PtrToData^, Sizeof(ValueDate));
  if EditType = etTime    then Move(ValueTime,    PtrToData^, Sizeof(ValueTime));
  if EditType = etString  then begin
   s := Text;
   Move(s, PtrToData^, Sizeof(s));
  end;
 end;

 if Assigned(FOnExit) then FOnExit(Self);
end;

procedure TEditN.Change;
var
 i : Integer;
 C : String;
begin
 // To convert the chain if it is numerical,to return a value
 if ((EditType = etInteger) or (EditType = etFloat)) and
    (Length(Text) > 0) then begin

  if EditType = etInteger then begin
   for i := 1 to Length(Text) do begin
    if Text[i] in ['0'..'9','-','+'] then C := C + Text[i]
   end;
   Text := C;
  end;

  if EditType = etFloat then begin
   for i := 1 to Length(Text) do begin
    if Text[i] in ['0'..'9',',','.','-','+'] then C := C + Text[i]
   end;
   Text := C;
  end;

  if Length(Text) = 0 then begin
   if Assigned(FOnChange) then FOnChange(Self);
   Exit;
  end;

  try
   ValueFloat   := 0;
   ValueInteger := 0;

   // Eliminar caracteres no permitidos y cambiar el signo - al comienzo para
   //  que no de error de conversi≤n
   i := 1;
   while i <= Length(Text) do
    if not (Text[i] in ['0'..'9',',','.','-'])
     then Text := Copy(Text,1,i-1) + Copy(Text,i+1,Length(Text)-i)
     else i := i + 1;

   // Si solo tenemos el signo negativo, darφa error
   if (Pos('-',Text) = 1) and (Length(Text) = 1) then Exit;

   // Temporary variable to accomplish the conversion
   TxtConvert := Text;

   // To put the negative sign to the beginning
   if (EditType <> etString) and (Pos('-',TxtConvert) > 1) then
    if Length(TxtConvert) = Pos('-',TxtConvert)
     then TxtConvert := '-' + Copy(TxtConvert,1,Pos('-',TxtConvert)-1)
     else TxtConvert := '-' +
                        Copy(TxtConvert,1,Pos('-',TxtConvert)-1) +
                        Copy(TxtConvert,Pos('-',TxtConvert) + 1,Length(TxtConvert) - Pos('-',TxtConvert));

   if EditType = etInteger then begin
    // Range control of Integer
    ValTemp := StrToFloat(TxtConvert);
    if (ValTemp > 2147483647) or (ValTemp < -2147483647) then begin
     ShowMessage('Range Max. : -2147483647 <-> 2147483647');
     ValueInteger := 0;
    end else begin
     ValueInteger := StrToInt(TxtConvert);
     ValueFloat   := StrToFloat(TxtConvert + sDecimal + '0'); {New in Version 2.0}
    end;
   end;

   // 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.}
   if EditType = etFloat then begin
    ValueFloat   := StrToFloat(TxtConvert);
    ValueInteger := Trunc(ValueFloat);
   end;

  except
   on EConvertError do begin
     ShowMessage('Range Max. :' + #13 +
                 ' - Integer : -2147483647 <-> 2147483647' + #13 +
                 ' - Float   : 5.0e-324 <-> 1.7e+308');
     ValueInteger := 0;
     ValueFloat   := 0;
   end;
  end;
 end;

 if Assigned(FOnChange) then FOnChange(Self);
end;

procedure TEditN.SetInteger(VInteger : Integer);
begin
 if EditType = etInteger then Text := IntToStr(VInteger);
end;

procedure TEditN.SetFloat(VFloat : Double);
begin
 if EditType = etFloat then Text := FloatToStr(VFloat);
end;

procedure TEditN.FormatDate;
var
 Temp,vDate,vMonth,vYear : String;
 dDate   : TDateTime;
 ilength : Integer;
begin
 // Decode the Date
 Temp    := '';
 vDate   := FormatDateTime('dd' + sDate + 'mm' + sDate + 'yyyy',Date);
 vMonth  := Copy(vDate,4,2);
 vYear   := Copy(vDate,7,4);

 // Quitar separador de fecha si existe
 if Length(Text) > 0 then
  for iLength := 1 to Length(Text) do
   if Text[iLength] in ['0'..'9']
    then Temp := Temp + Text[iLength];

 // Completar la fecha con separadores
 iLength := Length(Temp);
 Case iLength of
  0 : Temp := vDate;
  1 : Temp := '0' + Temp[1] + sDate + vMonth + sDate + vYear;
  2 : Temp := Temp + sDate + vMonth + sDate + vYear;
  3 : Temp := Copy(Temp,1,2) + sDate + '0' + Temp[3] + sDate + vYear;
  4 : Temp := Copy(Temp,1,2) + sDate + Copy(Temp,3,2) + sDate + vYear;
  5 : Temp := Copy(Temp,1,2) + sDate + Copy(Temp,3,2) + sDate + Copy(vYear,1,3) + Temp[5];
  6 : Temp := Copy(Temp,1,2) + sDate + Copy(Temp,3,2) + sDate + Copy(vYear,1,2) + Copy(Temp,5,2);
  7 : Temp := Copy(Temp,1,2) + sDate + Copy(Temp,3,2) + sDate + vYear[1] + Copy(Temp,5,3);
  8,9,10 : Temp := Copy(Temp,1,2) + sDate + Copy(Temp,3,2) + sDate + Copy(Temp,5,4);
 end;

 // Test of correct Date
 try
  dDate := StrToDate(Temp);
 except
  ShowMessage('Date incorrect');
  // On error, the Date is actually for default
  ValueDate    := Date;
  ValueFloat   := Date; // TDateTime : Double;
  ValueInteger := Trunc(Date);
  Exit;
 end;

 // The Date is correct. Assign value
 Text         := Temp;
 ValueDate    := StrToDate(Temp);
 ValueFloat   := ValueDate; // TDateTime : Double;
 ValueInteger := Trunc(ValueDate);
end;

procedure TEditN.FormatTime;
var
 Temp,vTime,vMin,vSec,MskTime : String;
 iLength : Integer;
 tTime   : TDateTime;
begin
 Temp    := '';
 MskTime := '00' + sTime + '00' + sTime + '00';
 vTime   := FormatDateTime('hh:mm:ss',Time);
 vMin    := Copy(vTime,4,2);
 vSec    := Copy(vTime,7,2);

 // Quitar separadores si los hay
 if Length(Text) > 0 then
  for iLength := 1 to Length(Text) do
   if Text[iLength] in ['0'..'9'] then Temp := Temp + Text[iLength];

 // Formatear el tiempo
 iLength := Length(Temp);
 if TimeSeconds then begin // Con segundos
   Case iLength of
    0 : Temp := vTime;
    1 : Temp := '0' + Temp[1] + Copy(MskTime,3,6);
    2 : Temp := Temp + Copy(MskTime,3,6);
    3 : Temp := Copy(Temp,1,2) + sTime + '0' + Temp[3] + Copy(MskTime,6,3);
    4 : Temp := Copy(Temp,1,2) + sTime  + Copy(Temp,3,2) + Copy(MskTime,6,3);
    5 : Temp := Copy(Temp,1,2) + sTime  + Copy(Temp,3,2) + sTime + '0' + Temp[5];
    6,7,8 : Temp := Copy(Temp,1,2) + sTime  + Copy(Temp,3,2) + sTime + Copy(Temp,5,2);
   end;
 end else begin // Sin segundos
   Case iLength of
    0 : Temp := vTime;
    1 : Temp := '0' + Temp[1] + Copy(MskTime,3,3);
    2 : Temp := Temp + Copy(MskTime,3,3);
    3 : Temp := Copy(Temp,1,2) + sTime + '0' + Temp[3];
    4,5 : Temp := Copy(Temp,1,2) + sTime  + Copy(Temp,3,2);
   end;
 end;

 // Test of string-time
 try
  tTime := StrToTime(Temp);
 except
  ShowMessage('Time incorrect');
  if TimeSeconds then Text := vTime else Text := Copy(vTime,1,5);
  ValueTime  := Time;
  ValueFloat := ValueTime;
  Exit;
 end;
  // The time is correct
  Text       := Temp;
  ValueTime  := StrToTime(Temp);
  ValueFloat := ValueTime;
end;

{***************************************************************************}
constructor TMEditN.Create(AOwner : TComponent);
begin
 inherited Create(AOwner);
 ColorOnFocus        := clWhite;
 ColorOnNotFocus     := clSilver;
 Color               := ColorOnNotFocus;
 FontColorOnFocus    := clRed;
 FontColorOnNotFocus := clBlack;
 FWidthOnFocus       := 0;
 FKeyTab             := #9;
end;

procedure TMEditN.KeyPress(var Key: Char);
var
 {$IFDEF VER80}
  FEditTemp : TForm;       {For Delphi 1}
 {$ENDIF}

 {$IFDEF VER90}
  FEditTemp : TForm;       {For Delphi 2}
 {$ENDIF}

 {$IFDEF VER100}
  FEditTemp : TCustomForm; {For Delphi 3}
 {$ENDIF}

 {$IFDEF VER120}
  FEditTemp : TCustomForm; {For Delphi 4}
 {$ENDIF}

begin
 if Key = EditKeyByTab then begin
  FEditTemp := GetParentForm(Self);
  SendMessage(FEditTemp.Handle, WM_NEXTDLGCTL, 0, 0);
  Key := #0;
 end;

 if Key <> #0 then inherited KeyPress(Key);
end;

procedure TMEditN.DoEnter;
begin
 // To assign the Color upon receiving the focus
 Color       := ColorOnFocus;
 Font.Color  := FontColorOnFocus;
 if WidthOnFocus > 0 then begin
  iWidth := Width;
  Width  := FWidthOnFocus;
 end;

 if Assigned(FOnEnter) then FOnEnter(Self);
end;

procedure TMEditN.DoExit;
begin
 // To return the color of the fund upon leaving and losing the focus
 Color      := ColorOnNotFocus;
 Font.Color := FontColorOnNotFocus;
 if WidthOnFocus > 0 then Width := iWidth;

 if Assigned(FOnExit) then FOnExit(Self);
end;

{***************************************************************************}
constructor TDBEditN.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  ColorOnFocus        := clWhite;
  ColorOnNotFocus     := clSilver;
  Color               := ColorOnNotFocus;
  FontColorOnFocus    := clRed;
  FontColorOnNotFocus := clBlack;
  FUpper              := False;
  FUpperList          := ' (';
  FWidthOnFocus       := 0;
  FKeyTab             := #9;
end;

procedure TDBEditN.KeyPress(var Key: Char);
var
 {$IFDEF VER80}
  FEditTemp : TForm;       {For Delphi 1}
 {$ENDIF}

 {$IFDEF VER90}
  FEditTemp : TForm;       {For Delphi 2}
 {$ENDIF}

 {$IFDEF VER100}
  FEditTemp : TCustomForm; {For Delphi 3}
 {$ENDIF}

 {$IFDEF VER120}
  FEditTemp : TCustomForm; {For Delphi 4}
 {$ENDIF}

 c : String;
begin
 if Key = EditKeyByTab then begin
  FEditTemp := GetParentForm(Self);
  SendMessage(FEditTemp.Handle, WM_NEXTDLGCTL, 0, 0);
  Key := #0;
 end;

 if FUpper then begin // Capital letter  - Ma²usculas
  if (Length(Text) = 0) or
     (SelText = Text) or
     (Pos(Text[Length(Text)],FUpperList) > 0) then begin
   C   := AnsiUpperCase(Key);
   Key := C[1];
  end;
 end;

 if Key <> #0 then inherited KeyPress(Key);
end;

procedure TDBEditN.DoEnter;
begin
 // To assign the Color upon receiving the focus
 Color       := ColorOnFocus;
 Font.Color  := FontColorOnFocus;
 if WidthOnFocus > 0 then begin
  iWidth := Width;
  Width  := FWidthOnFocus;
 end;

 if Assigned(FOnEnter) then FOnEnter(Self);
end;

procedure TDBEditN.DoExit;
begin
 // To return the color of the back upon leaving and losing the focus
 Color      := ColorOnNotFocus;
 Font.Color := FontColorOnNotFocus;
 if WidthOnFocus > 0 then Width := iWidth;

 if Assigned(FOnExit) then FOnExit(Self);
end;

procedure Register;
begin
  RegisterComponents('Standard', [TEditN]);
  RegisterComponents('Additional', [TMEditN]);
  RegisterComponents('Data Controls', [TDBEditN]);
end;

end.