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

李红波 · 发表于 2011-3-14 12:59:23

代码如下：
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 · 发表于 2011-3-14 14:12:04

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

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

luobupo · 发表于 2011-3-14 14:19:52

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

李红波 · 发表于 2011-3-14 14:27:56

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

李红波 · 发表于 2011-3-14 14:34:37

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

李红波 · 发表于 2011-3-15 10:30:30

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

李红波 · 发表于 2011-3-16 10:31:28

已能过QQ沟通，结贴！

		自动登录	找回密码
密码			立即注册