5 replies to this topic

[David Wu]

HI 

 

When Call AddChindRow with crLast, the component makes some order error, sometimes it doesn't add the row at last, but any random place.

 

I make a little bit change of the Tree demo program, only add an integer to the cell text, like this:

 

procedure TForm2.Button2Click(Sender: TObject);

begin

  if CheckBox2.Checked

    then NextGrid1.AddChildRow(NextGrid1.SelectedRow, crLast)

      else NextGrid1.AddChildRow(NextGrid1.SelectedRow, crFirst);

  Count := Count + 1;

  NextGrid1.Cell[2, NextGrid1.LastAddedRow].AsString := 'Child Row'+IntToStr(Count);

  NextGrid1.Cell[3, NextGrid1.LastAddedRow].AsInteger := Random(100);

end;

 

after you adding a few rows and childrows into it, error will be coming.

 

Attached Files

•  ZIE3MZNNM7ORK_FQT(0R_Q0.png   24.14KB   1 downloads

[David Wu]

HI Boki

I had tested a lot. something wrong is in the ChildCount.

and I had reviewed the code in the component, I guess that the ChildCount may not be received some notify after Row changing.

Now i have to AddChildRow with crFirst, and then move it to where it should be.

[Boki (Berg)]

Hi David,

 

I will inspect it and fix it.

[David Wu]

HI Boki

Another bug, When ClearSelection, SelectedRow still keep its value, which was not what we want: set it to -1 

[Boki (Berg)]

I will fix it too.

[David Wu]

Bug:

after save and load the tree column loss the tree structure.