DbGridEh中处理行的颜色

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if dbgrid1.DataSource.DataSet.RecNo mod 2=0 then
  dbgrid1.canvas.Brush.color:=$00BFE4E2 else
  dbgrid1.canvas.brush.color:=$00E3FBFB;
  dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;