Einzelne Zelle in DBGrid einfärben

[DeddyH]

Na gut, hier ein Beispiel:

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
  if Column.FieldName = 'ObjectId' then
    begin
      TDBGrid(Sender).Canvas.Brush.Color := clRed;
      TDBGrid(Sender).Canvas.RectAngle(Rect);
    end;
end;

Damit wird die Spalte, die das Feld "ObjectId" darstellt, mit Rot ausgefüllt.