Components for Delphi and C++ Builder.

Hi,
there is a property for change background color when editors (standalone) receive focus?
I normally set to yellow the active editor...
Thanks in advance!
Stefano Monterisi

P.s. Any progress or news on FMX version?

Hello

What about Color propery. It must work.

_________________
Best regards
EhLib Support Team

I think that this is obvious...
My need (derived in porting from Infopower) is to have a method for assign a focused color on editor, when a form contain 200 editors, for example... without taking care to manage event for every editor...
Stefano

Hi Stemonte,
i patched this Problem since years.
All EhLib-Edit-Components were inherited like this:

type
TDBEditEhX = class(TDBEditEh)
private
{ Private-Deklarationen }
bFocusColorChange : boolean; // +BK
cFocusColor : TColor; // +BK
cColor : TColor; // +BK
procedure SetFocusColor(const Value: TColor);
procedure CMEnter(var Message: TCMEnter); message CM_ENTER;
procedure CMExit(var Message: TCMExit); message CM_EXIT;
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent); override;
published
{ Published-Deklarationen }
property FocusColorChange : Boolean read bFocusColorChange write bFocusColorChange default True; // +BK
property FocusColor : TColor read cFocusColor write setFocusColor; // default clWindow; // +BK
end;

procedure Register;
begin
RegisterComponents('EhLib', [TDBEditEhX]);
RegisterComponents('EhLib', [TDBMemoX]);
RegisterComponents('EhLib', [TDBNumberEditEhX]);
RegisterComponents('EhLib', [TDBComboBoxEhX]);
RegisterComponents('EhLib', [TDBLookupComboboxEhX]);
RegisterComponents('EhLib', [TDBdateTimeEditEhX]);
RegisterComponents('EhLib', [TDBCheckBoxEhX]);
end;

// TDBEditEh-Anpassungen
constructor TDBEditEhX.Create(AOwner: TComponent);
begin
inherited;
cFocusColor := clSkyBlue;
bFocusColorChange := true;
end;

procedure TDBEditEhX.SetFocusColor(const Value: TColor);
begin
cFocusColor := Value;
end;

procedure TDBEditEhX.CMEnter(var Message: TCMEnter);
begin
cColor := Color;
if bFocusColorChange then
Color := cFocusColor;
inherited;
end;

procedure TDBEditEhX.CMExit(var Message: TCMEnter);
begin
if bFocusColorChange then
Color := cColor;
inherited;
end;

and that works very fine.
Perhaps could the EhLib-crew overtake this as standard-propertys for the future!!!
Bernd