DBGRID Hintergrund einer Zelle ändern

[Sharky]

Hai Berseker,

guckst Du:

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (Column.Field.FullName = 'ACTIVE') then
  begin
    if (Column.Field.AsInteger = 1) then
    begin
      DBGrid1.Canvas.Brush.Color := clYellow;
    end;
  end;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State)
end;

Zu langsam