Farbige Zeilen im Grid

[PM Heiko]

Hallo,

ich möchte, abhängig von einem boolschen Feld in einer Tabelle, die Datensätze in einem Grid farbig darstellen. Ungefähr so: bei True soll die Zeile Rot sein, bei False Weiss...

Ich bekomme es leider nur hin dass die ganze Anzeige farbig wird...

irgendwelche Tipps?

Heiko

[PM Heiko]

... für den den es auch interessiert... ich hab´s rausgefummelt...

procedure TKfzsuchForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var Farbe :TColor;

begin
Farbe:=clred;
if (DBGrid1.Columns[10].Field.AsString) <> 'Wahr' then
begin
DBGrid1.Canvas.Brush.Color:=clWindow
end
else begin
DBGrid1.Canvas.Brush.Color:=Farbe;
DBGrid1.Canvas.Font.Color:=clBlack;
DbGrid1.Canvas.TextRect(Rect, Rect.Left+2,Rect.Top+2, Column.Field.Text);
end;

.... manchmal hilft eben ein wenig verzweiflung

in meinem Fall ist das Feld "DBGrid1.Columns[10]" ein boolsches Feld und danach markiere ich nun die Zeile in der Gridansicht andersfarbig als die Anderen.

Heik