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;