DBGrid formatieren - Abhängig vom Inhalt

[ADelf]

Hallo,

also ich mache das etwa so:

Delphi-Quellcode:

TForm.DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);

begin
  With DBGrid do
   case Datasource.DataSet.FieldByName('STATUS').Value of
    1 :
       begin
        Canvas.Brush.Color:=clRed;
        DefaultDrawColumnCell(Rect,DataCol,Column,State);
       end;
    2 :
       begin
        Canvas.Brush.Color:=clLime;
        DefaultDrawColumnCell(Rect,DataCol,Column,State);
       end;
    3 :
       begin
        Canvas.Brush.Color:=clBlue;                  
        DefaultDrawColumnCell(Rect,DataCol,Column,State);
       end;
   end;
end;

Ich frage quasi bei jeder Zelle, welchen Wert das Feld hat, nach dem ich mich bei der Formatierung richten will.

Grüße