DBGrid1 färben

[DeddyH]

Indem Du nicht den Column-Index abfragst, sondern direkt den Feldwert des aktuellen Datensatzes?

[edit]

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DBGrid1.Datasource.Dataset.FieldByName(Feldname) = 'Erfasst' then begin
    DBGrid1.Canvas.Brush.Color := clYellow;
    DBGrid1.Canvas.Font.Color := clred
  end else begin
    DBGrid1.Canvas.Brush.Color := clWhite;
    DBGrid1.Canvas.Font.Color := clblack
  end;
  DBGRid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

end.

Ungetestet, sollte aber im Groben so funktionieren.[/edit]