【结贴】datagrid分组后，组内记录的颜色改变

lili7912

未分组前，界面根据记录的值，改变颜色正常。
分组后，组内记录的颜色，改变不正常。
前3条记录是白色，分组后整前3条记录应该是白色，确变成了绿色。
见下图：

lili7912

分组后

atiger

那是少了一些判断吧，参考
http://bbs.justep.com/forum.php?mod=viewthread&tid=18101

lili7912

procedure TJBXXWG.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 DataSetBrokerSBJBXX.DataSet.FieldByName('jxfzxs').AsInteger=0 then
    AColor:=Graphics.clMoneyGreen;
end;
我的代码如上面。分组后，如果我的记录移到DataSetBrokerSBJBXX.DataSet.FieldByName('jxfzxs').AsInteger=0的记录，整个分组变为绿色，如果我如果我的记录移到DataSetBrokerSBJBXX.DataSet.FieldByName('jxfzxs').AsInteger=1的记录，整个分组变为白色。

atiger

看3楼代码

lili7912

3楼的代码我看了，jxfzxs字段不在DataGrid的列里面，我不知道怎么会乱。

lili7912

procedure TJBXXWG.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);
var
  I:Integer;
begin

   { begin
    if DataSetBrokerSBJBXX.DataSet.FieldByName('jxfzxs').AsInteger=0 then
      AColor:=Graphics.clMoneyGreen
    end }

  for I := 0 to DataGrid.ColumnCount - 1 do
  begin
//循环取列找到相应的项（由于列允许移动位置和分组，所以不能固定），并判断其值
    if (DataGrid.Columns[I].FieldName = 'JXFZXS') then
    begin
      if (SysUtils.trim(ANode.Strings[I])='0') then
      begin
        AColor := Graphics.clMoneyGreen;
        Break;
      end;
    end;
  end;
end;
将JXFZXS字段加入DataGrid，将该列Visible=False
改为上面的代码，实现了组内分组的颜色改变。

zfang

谢谢楼主分享，还有别的问题么？

lili7912

没有别的问题，结贴。