Zeilen in TDBGrid farblich darstellen.

**Pro_RJ**

Huhu,

Ich habe eine kleine Terminverwaltung geschrieben, wo ich mit die einzelnen Tage in einer DBgrid anzeigen lasse.
Besteht die möglichkeit in der Grid einzelne Zeilen farblich zu verändern?
Ich habe es bis jetzt nur hinbekommen, das mir die schrift Bunt wird aber nicht der Huntergrund dieser Zelle.

markieren

Delphi-Quellcode:

			procedure Grid_DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;  State: TGridDrawState;FLDname : String);

begin

  if (Column.FieldName = FLDname) and (State=[]) then TDBGrid(Sender).Canvas.Font.Color := CLRED;

  TDBGrid(Sender).DefaultDrawColumnCell(Rect,Datacol,Column,State);

end;

Über "TDBGrid(Sender).Canvas.Font.Color := CLRED;" kann ich ja die Schrift rot machen aber wie mache ich die ganze Zeile rot?

PS. Ich nutze BDS 2006

Danke schonmal im Vorraus
mfg Jens

Zeilen in TDBGrid farblich darstellen.

Zeilen in TDBGrid farblich darstellen.

Forumregeln