cxGrid指定某单元格颜色的使用?(10分)

//我用的是cxGrid控件,以下代码可以改变整行的颜色，
可是我想改变我指定的列满足条件的单元格的颜色就不行，不需要整行的颜色进行改变,可是我要更改某个单元格的颜色,希望大家帮我解决一下，好吗？谢谢！
procedure Tfrmmain.cxGrid1DBTableView1CustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
cTotal:string;
begin cTotal :=trimvarAsTypeAViewInfo.GridRecord.DisplayTextscxGrid1DBTableView1DBColumn2.Index ],varstring));
if cTotal='小计' then
begin
ACanvas.Canvas.Font.Style :=ACanvas.Canvas.Font.Style+[fsbold];
ACanvas.Canvas.Font.Color := clBlack;
ACanvas.Canvas.Brush.Color :=cLYellow;
end;
//以上代码是改变整行的颜色，可是我要更改某个单元格的颜色
end;

道理相同，改变画布既可

麻烦你写一下代码告诉我。谢谢！

好心人QQ：17514417帮我解决。谢谢！

procedure TRisk_Form.cxRiskCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
begin
if (AViewInfo.Value>=R2) or (AViewInfo.Value<0) then
begin
ACanvas.Brush.Color := clRed;
ACanvas.Font.Color := clYellow;
Exit;
end;
if AViewInfo.Value>=R1 then
begin
ACanvas.Brush.Color := clYellow;
ACanvas.Font.Color := clRed;
end;
end;