dbgrid问题

Question

我怎么样DBGRID的奇数行背景是红色
偶数行的背景是绿色？

Answer 1

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  Case adoquery1.RecNo mod 2 = 0 of
    True : DbGrid1.Canvas.Brush.color:=rgb(0,255,0);
    False: DbGrid1.Canvas.Brush.color:=rgb(255,0,0);
  end;
  DbGrid1.Canvas.pen.mode:=pmMask;
  DbGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State);
end;