【搞定】DataGridCustomDrawCell事件**

lixy

if  DataGrid.GroupColumnCount>0 then
         jsdialogs.ShowMsg('有分组了','');

atiger

if (ASelected or AFocused) then   3楼的意思 我理解是点中的数据才会变色,
对呀。如果你不需要，那么取消这个判断。

liubin

to :lixy   用11楼的方法 分组时不变色 不分组时变色已经解决.  现在能不能分组时不乱变色呢?如1,2楼的图片? 有什么方法吗?

atiger

怪了，帖子上已经很明白了，怎么还不对呢？ if (ASelected or AFocused) then  是点中的数据才会变色,如果不是这样，取消这层的判断就可以了。我这里都实现ok了，你那边怎么还是不行呢，你设置断点跟踪了吗？是根据你的意愿在执行呢
附件是效果图

代码，参考如下
procedure TMainForm.DataGrid1CustomDrawCell(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);
var
  I: Integer;
begin
  //if ASelected or AFocused then
  //  exit ;
  //ACanvas.Font.Color := clBlack;
//原来根据某个字段值来设定颜色的方法，在分组后由于界面刷新机制的问题，就会乱套。所以改为判断Grid的某列的值来设定
  for I := 0 to DataGrid1.ColumnCount - 1 do
  begin
//循环取列找到相应的项（由于列允许移动位置和分组，所以不能固定），并判断其值
    if (DataGrid1.Columns[I].FieldName = 'parent') and
    (SysUtils.trim(ANode.Strings[I]) = '01') then
    begin
      AColor := Graphics.clRed;
      Break;
    end;
  end;
end;

liubin

现在的问题是:如1楼的图,只有1条记录为红色,在分组后点中这条红色的记录,所以记录都红色了,不知道斑竹是怎么理解的吗?

lixy

分组的时候，你看看你的索引变成了什么，程序肯定在分组的时候计算的不合乎你的要求了，所以都变红色了。可以想用一个临时字段填充一下索引。看看值的变化。

liubin

不明白索引在看啊,  基于1,2楼的图片,您给写个例子吧

lixy

ANode.Index  你看看这个值在分组后是不是有什么变化？

lixy

3楼已经给你提示了：
No.1  DataGrid在分组后CustomDrallCell中的表现问题

此问题发现是一个共性
在DataGrid的OnCustomDrawCell中的代码按如下方法修改：
procedure TMainForm.DataGrid1CustomDrawCell(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);
var
  I: Integer;
begin
  if ASelected or AFocused then
    exit ;
  ACanvas.Font.Color := clBlack;
//原来根据某个字段值来设定颜色的方法，在分组后由于界面刷新机制的问题，就会乱套。所以改为判断Grid的某列的值来设定
  for I := 0 to DataGrid1.ColumnCount - 1 do
  begin
//循环取列找到相应的项（由于列允许移动位置和分组，所以不能固定），并判断其值
    if (DataGrid1.Columns[I].FieldName = 'PROVIENCE') and
    (SysUtils.trim(ANode.Strings[I]) = '北京') then
    begin
      AColor := clRed;
      Break;
    end;
  end;
end;

广告秀

liubin

Ok ,明白了