DBGrid Zelle einfärben [erledigt]

[StoRmtec]

Hallo

Habe es schon geschafft habe es anders gemacht.

Wenn es wer braucht mal

Delphi-Quellcode:

procedure Tunitliefer_bestell.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  holdColor: TColor;
 begin
 holdColor := DBGrid1.Canvas.Brush.Color;
  if Column.FieldName = 'bearbeitungsstatus' then
    if (Column.Field.Text = 'erledigt') then
    begin
      DBGrid1.Canvas.Brush.Color := clgreen;
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      DBGrid1.Canvas.Brush.Color := holdColor;
    end;
end;