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.

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? :gruebel:

PS. Ich nutze BDS 2006

Danke schonmal im Vorraus
mfg Jens

[DeddyH]

Schau mal z.B. hier.

[Pro_RJ]

Ohhhh :oops:

Das Topic hab ich wohl bei der suche übersehen... :duck:

Sry aber Danke

[DeddyH]

Zitat:

Zitat von Pro_RJ

Das Topic hab ich wohl bei der suche übersehen...

Kommt vor :mrgreen: