cxgrid 满足条件颜色显示

实现效果：可用量小于0，显示黄色。

 1、拖一个cxStyleRepository1控件，双击该控件进行Styles的添加和设置；

2：选中cxGridDBTableView，单击F11调出属性配置面板，在Events中双击OnGetContentStyle后双击编辑重画事件代码。

procedure TfrmMain.cxGridWorkOrderDBTableView1StylesGetContentStyle(Sender: TcxCustomGridTableView;
  ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
begin
    if ARecord is TcxGridDataRow  then
    //and not ARecord.Selected then //选中行导出没有颜色
    begin
        if ARecord.Values[cxGridWorkOrderDBTableView1.GetColumnByFieldName('TB0745').Index] < 0 then
            AStyle := cxStyleWorkList;
    end;
end;