DBGrid间隔行颜色

procedure TFrmQueryData.DBGrid1DrawColumnCell(Sender: TObject;  const Rect: TRect; DataCol: Integer; Column: TColumn;  State: TGridDrawState);var  FindFieldCol: integer;begin  if DBGrid1.DataSource.DataSet.RecNo mod 2 = 1 then  begin    DBGrid1.Canvas.Font.Color := clBlue;    DBGrid1.Canvas.Brush.Color :=RGB(181, 230, 255);// clyellow;  end  else  begin    DBGrid1.Canvas.Font.Color := clGreen;//clred;    DBGrid1.Canvas.Brush.Color := RGB(251, 255, 170) ;//clGradientActiveCaption;  end;  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);  if datacol = 0 then //定义行号列    (Sender as TDBGrid).Canvas.TextOut(Rect.Left, Rect.Top, IntToStr(DBGrid1.DataSource.DataSet.RecNo));end;