delphi7 TdxDBGrid控件更改指定记录颜色

procedure TForm1.dxDBGrid1CustomDrawCell(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
var AText: String; var AColor: TColor; AFont: TFont;
var AAlignment: TAlignment; var ADone: Boolean);
var
sValues : string;
begin
if not VarIsNull(ANode.Values[dxDBGrid1Price.Index]) then
begin
sValues :=ANode.Values[dxDBGrid1Price.Index];  //dxDBGrid1Price为dxDBGrid1控件SummaryGroups的Columns的某个列名
if strtocurr(sValues) <> 0 then      //判断该行的dxDBGrid1Price列值，如果不为零，则字体变红  【acolor:=clred 这是将背景变红】
afont.Color:=clred;
end;
end;