DataGrid的指定行的颜色不能改变

李红波

代码如下：
procedure TMAINFORM.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 (DataSetBrokerLM.DataSet.Active) and (TDataGridColumn(AColumn).ColumnDef.Field.DataSet.FieldByName('sc')='1') then
  if ASelected or AFocused then
  begin
    ACanvas.Font.Color := Business.System.Graphics.clblack;
    ACanvas.Brush.Color := Business.System.Graphics.clred;
    ACanvas.Font.Size := 9;
    ACanvas.Font.Name := '宋体';
  end;
end;

dynasty0628

印象中记得不能这么判断
(TDataGridColumn(AColumn).ColumnDef.Field.DataSet.FieldByName('sc')='1')

必须得用 ANode.strings[index]格式来判断

luobupo

是要改变背景色还是字体颜色，背景色用AColor := $EAEAEA;

李红波

现在并不是判断的不准备的问题
上面颜色的代码也能执行，就是没有效果！

李红波

连接的是自定义数据集，
DataGrid的设置：
egoLoadAllRecord属性为False
有几列加了合计
多行选择为False

李红波

设置颜色的代码确实已经执行，可就是没效果！

李红波

已能过QQ沟通，结贴！