DataGrid根据条件改变行的颜色

jianth2005

在写根据字段的内容改变DataGrid的颜色，现在是问题是：选中的时候全部都变色了，
在论坛搜过了，还是没找到原因，
代码
procedure TFRD_WZCGJHMX.DataGridCustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
    if TDataGridColumn(AColumn).ColumnDef.Field.DataSet.FieldByName('FDJ').AsFloat -
        TDataGridColumn(AColumn).ColumnDef.Field.DataSet.FieldByName('FZGXJ').AsFloat < 0 then
        AColor :=Business.System.Graphics.clRed
    else
        AColor :=Business.System.Graphics.clWhite;
end;

jianth2005

没人顶？

jianth2005

结贴