Cxgrid根据列条件改变行颜色

procedure TFrm_ListBaseForm4InStock.cxGridListCustomDrawCell(

  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;

  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

var

  i : Integer;

begin

  i := AViewInfo.GridView.FindItemByName('cxGridListColumn15').Index;

  if AViewInfo.GridRecord.Values[i]  = 0 then

    if SameText(AViewInfo.Item.Name, 'cxGridListColumn15') then //判断只显示一个单元格 去掉显示整行

      ACanvas.Font.Color := clred;

end;