Einfärben von DBCtrlGrid-Zeilen aufgrund von Inhalten

[marabu]

Zitat von Schiller:

Jetzt möchte ich Zeilen einfärben, wenn ein Datensatz einen bestimmten Wert enthält.

Delphi-Quellcode:

procedure TMainForm.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Table.FieldByName('KONTOSTAND').AsInteger < 0 
    then DBGrid.Canvas.Brush.Color := clRed
    else DBGrid.Canvas.Brush.Color := clWhite;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

marabu