var
s : string;
begin
s := strUTils.RightStr(DataSetBroker6.dataset.FieldByName('SQ').AsString,4);
if not (ASelected or AFocused) then // 如果是当前行,则默认系统的反白显示
begin
if (s='合计') then
begin
//if not AFocused then
// AFont.Color := Business.System.Graphics.clRed;
AColor := Business.System.Graphics.clRed;
end;
if (s='小计') then
begin
//if not AFocused then
AColor := $FFECDD;
end;
end;
end;