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['项次'])=   then
      begin
        rzdbgrd1.Canvas.brush.Color :=clRed;
      end;

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

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

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