DBGrid: OnDrawDataCell wird nicht aufgerufen

[Angel4585]

Ah habs schon, ich sollte öfters die Hilfe lesen..

Ich habs in die OnDrawColumnCell umgeschrieben:

Code:

procedure TForm1.DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   with (Sender as TDBGrid) do
    begin
     if (DataSource.DataSet.FieldByName(cfWert).AsInteger = 1) then
      begin
       if (not (gdSelected in State)) then
        begin
         Canvas.Brush.Color := clGreen;
         Canvas.FillRect(Rect);
        end;
      end;
     if ((not (dgRowSelect in Options)) and (gdFocused in State)) then
      begin
       Canvas.Brush.Color := clBlue;
       Canvas.FillRect(Rect);
      end;
     Canvas.TextOut(Rect.Left + 2, Rect.Top + 1, Column.Field.AsString);
    end;
end;

Den Code hab ich von Sharky aus diesem Thread: Sharkys Beitrag
und hab den Code für mich angepasst.