Moin, moin
Habe ein DBText abgeleitet und möchte seinen Wert auf einem TDBCtrlGrid anzeigen lassen.
Es handelt sich um einen Zahlenwert, der in dem zugehörigen Datenbankfeld vorliegt.
FRAGE: Wie ist es möglich auf eine TDBCtrlGrid das TDBText1-Feld in verschienden Farben
anzeigen zu lassen in Abhängigkeit des Zahlenwertes (z.B.: gerade/ungerade) ?
Delphi-Quellcode:
unit DBText1;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls;
{ }
type
TDBText1 =
class(TDBText)
public
constructor Create(AOwner: TComponent);
override;
destructor Destroy;
override;
published
end;
procedure Register;
{ }
implementation
{ }
procedure Register;
begin
RegisterComponents('
Beispiele', [TDBText1]);
end;
constructor TDBText1.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csReplicatable];
end;
destructor TDBText1.Destroy;
begin
inherited Destroy;
end;
{ }
end.
Viele Grüße // Martin