DBGrid formatieren - Abhängig vom Inhalt

[d6lpz]

Hallo,

ich suche nach einer Möglichkeit die Zellen eines DBGrids entsprechend des Inhaltes zu formatieren.

Damit habe ich die aktuelle Zelle beeinflussen können:

Delphi-Quellcode:

procedure TMain.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
        dbgrid1.Canvas.Brush.Color :=clgreen;
end;

Damit habe ich das komplette Grid eingefärbt:
        dbgrid1.Color:=clRed; Was ich will ist in etwa sowas:

Delphi-Quellcode:

if (Field.AsString = 'R')then
begin
Background := clRed;
end

Hat jemand einen Tip für mich?
Oder geht das vielleicht mit der Standard DBGridKomponente garnicht??

Dirk