Zeile in einem DBGrid einfärben unter bestimmter Bedingung

[ak1]

Jupp und so gehts....

Code:

procedure TfrmMain.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin

  // die zelle ist markiert und/oder selektiert
  // dann sollen die Standard-Farben verwendet werden (weiß auf navy)
  if (gdSelected in State) or (gdFocused in State) then exit;

  if tableone.FieldByName('Nummer').AsString ='3' then begin

    DBGrid1.Canvas.Brush.Color := clRed;
  end;

  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Gruß