DBGrid颜色条的设置,该如何处理

DBGrid颜色条的设置
我想给DBGrid的偶数行设置蓝色，奇数行设置浅绿色，该在DBGrid中的哪个事件中添加代码呢？该用什么代码实现呢？

------解决方案--------------------
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if DBGrid1.DataSource.DataSet.RecNo mod 2=0 then
DBGrid1.Canvas.Brush.Color:=clBlue
else
DBGrid1.Canvas.Brush.Color:=clMoneyGreen;
DBGrid1.DefaultDrawDataCell(Rect,Field,State);
end;
------解决方案--------------------
if a=1 then begin
dbGridEh1.Canvas.Font.Color := clRed;
end else begin
dbGridEh1.Canvas.Font.Color := clgreen;

end;
dbGridEh1.DefaultDrawColumnCell(rect, datacol, column, state);