How to use .AddNode() procedure in TUniTreeview
i tes this on vcl and result is okay,
but in unigui is not
UNIGUI
procedure TfrmMST6_TPS.btnAddKecClick(Sender: TObject);
var
mynode1, mynode2, mynode3, mynode4 : TUniTreeNode;
begin
mynode1 := TUniTreeNode.Create;
mynode2 := TUniTreeNode.Create;
mynode3 := TUniTreeNode.Create;
mynode4 := TUniTreeNode.Create;
lbltree.Items.AddNode(mynode1, nil, '1', nil, naAddFirst);
lbltree.Items.AddNode(mynode2, mynode1, '1-2', nil, naAddChild);
lbltree.Items.AddNode(mynode3, mynode1, '1-3', nil, naAddChild);
lbltree.Items.AddNode(mynode4, mynode2, '2-4', nil, naAddChild);
end;
VCL
procedure TForm1.BitBtn1Click(Sender: TObject);
var
mynode1, mynode2, mynode3, mynode4 : TTreeNode;
begin
mynode1 := TTreeNode.Create(lbltree2.Items);
mynode2 := TTreeNode.Create(lbltree2.Items);
mynode3 := TTreeNode.Create(lbltree2.Items);
mynode4 := TTreeNode.Create(lbltree2.Items);
lbltree2.Items.AddNode(mynode1, nil, '1', nil, naAddFirst);
lbltree2.Items.AddNode(mynode2, mynode1, '1-2', nil, naAddChild);
lbltree2.Items.AddNode(mynode3, mynode1, '1-3', nil, naAddChild);
lbltree2.Items.AddNode(mynode4, mynode2, '2-4', nil, naAddChild);
end;