关于cxgrid隔行着色的问题

这是我写的隔行着色的代码：procedure TF_tjbb_cztj.cxGridViewGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  inherited;
  if   AViewInfo.RecordViewInfo.Index   mod   2   =   0   then
  begin
    ACanvas.Canvas.Brush.Color   := rgb(252,240,235);
    ACanvas.Font.Color := clblack;
  end
  else
  begin
    ACanvas.Canvas.Brush.Color:=clWhite;
    ACanvas.Font.Color := clblack;
  end;
  if AViewInfo.Selected then
  begin
    ACanvas.Canvas.Brush.Color := clmenuhighlight;
    ACanvas.Font.Color := clwhite;
  end;
end;第一页显示出来的记录倒是都挺听话，隔一行一个颜色，但第一页没显示出来而是拉动滚动条出来的记录就会变成一个色，用鼠标一行行点一下才会出来效果，应该是拉动滚动条的时候刷新出了问题。
哪位高手指点下？