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;