dbgrid zeile einfärben ?

[Udontknow]

Hier der Code :

Delphi-Quellcode:

procedure TFrame_AbgWertpapiere.DBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
  var Cl:TColor;
begin
  inherited;

  Cl:=$AAAAFF;
  if DM.DatasetID.AsInteger MOD 3 = 0 then
    Cl := $AAFFFF;
  if DM.DatasetID.AsInteger MOD 2 = 0 then
    Cl := $AAFFAA;

  //Hintergrundfarbe
  TDBGrid(Sender).Canvas.Brush.Color:=Cl;
  TDBGrid(Sender).Canvas.Brush.Style:=bsSolid;
  TDBGrid(Sender).Canvas.Pen.Style:=psclear;
  TDBGrid(Sender).Canvas.FillRect(Rect);

  //Text (muss separat gezeichnet werden)
  TDBGrid(Sender).Canvas.Pen.Style:=psSolid;
  TDBGrid(Sender).Canvas.Pen.Color:=clBlack;
  TDBGrid(Sender).Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,Field.AsString);

end;

Cu,
Udontknow