DBGrid: OnDrawDataCell wird nicht aufgerufen

[Angel4585]

Hallo,

ich möchte die OnDrawDataCell Methode nutzen um Zeilen im DBGrid, in welchen ein bestimmter Wert vorkommtfarbig zu hinterlegen.
Dummerweise wird die OnDrawDataCell Methode garnicht ausgeführt. ich hab sie im OI zugewiesen usw, sollte also eigentlich funktionieren. Aber tatsächlich wird die nie ausgeführt


Kann ich mein Ziel auf nem andern Weg erreichen, oder kann mir jemand sagen wie ichs schaffe das diese Methode ausgeführt wird?

Danke schonmal

:angel:

[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. :)