Delphi-RzDbgrid-绘制表格式设置某行颜色或者其他格式-以及隔行换色的属性

参考文章：https://www.cnblogs.com/OSKnown/p/8568740.html

在DbgridEh和原生的Dbgrid直接在DrawColumnCell事件中写重绘代码就好了，

但是使用Raize控件的RzDbgrid就不能出发事件，

根据上文的建议，将DefaultDrawing这个属性默认的True属性改为False属性，

然后在DrawColumnCell事件中写代码，就可以触发事件了。 

不过新的问题出现，DrawColumnCell事件中写了测试代码，出现死循环， 

procedure TFormSA.rzdbgrd1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var i:Integer;

begin
    With rzdbgrd1.datasource.dataset do begin     
     if StrToInt(rzdbgrd1.DataSource.dataset.FieldValues['项次'])=11   then
     begin
       rzdbgrd1.Canvas.brush.Color :=clRed;
     end;

   end;
   rzdbgrd1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

循环条件，判断一下就好了。

RzDbgrid-隔行换色的属性：AltRowShading设置为True，单双行颜色设置一下就可以了。