Issue with nodes and checkbox in AdvStringGrid

VCL TMS VCL UI Pack
1

Hi,
Delphi XE7, XE8 and XE10.
TMS Component Pack 8.0.2.0

Following issue appeared in TMS Component Pack 8.0.0.0

To see the issue, use demo Asg11.
At the end of the form create, add the following lines:
AdvStringGrid1.InsertCols(1,1);
Advstringgrid1.AddCheckBoxColumn(1);

Run the demo and collapse some nodes. Notice that checkbox seems to change cell because of some kind of internal column merge.

Before 8.0.0.0, this did not happen.

In AdvGrid.pas, if I comment some code that was added in the
TAdvStringGrid.ContractNode(ARow: Integer);
method I can get back the old behavior.

Code commented is:

 if IsNode(ARow) then
  begin
    for c := 0 to ColCount - 1 do
    begin
      obj := GridObjects[c,Arow];
      if Assigned(obj) then
      begin
        cp := TCellProperties(obj);
        cp.MergeCollaps := true;
      end;
    end;
  end;

Is this a bug or is there a new parameter I can set to get the old behavior (no column merge on node collapse) when the collumn next to a node column has a checkbox?

Thanks!

2

This regression was internally already fixed. The next update will address this.