cxgrid 根据条件设置单元格颜色

procedure   TFQueryBuilding.cxGrid2DBCardView1StylesGetContentStyle(      Sender:   TcxCustomGridTableView;   ARecord:   TcxCustomGridRecord;      AItem:   TcxCustomGridTableItem;   out   AStyle:   TcxStyle);  var      ADisplayStyle:   TcxStyle;  begin      if   trim(vartostr(ARecord.Values[1]))   =   'a '   then      begin          ADisplayStyle   :=   TcxStyle.Create(Self);          ADisplayStyle.Color   :=   RGB(96,   186,   3);          ADisplayStyle.Font.Color   :=   RGB(255,   255,   255);          AStyle   :=   ADisplayStyle;      end      else   if   trim(vartostr(ARecord.Values[1]))   =   'b '   then      begin          ADisplayStyle   :=   TcxStyle.Create(Self);          ADisplayStyle.Color   :=   RGB(96,   166,   234);          ADisplayStyle.Font.Color   :=   RGB(255,   255,   255);          AStyle   :=   ADisplayStyle;      end;      end;