Welcome to phpBB3

[mpskinner]

Code: Select all

procedure TForm1.AddNode( LastNode : TTreeNode; nodelevel : integer; lbl : string; note : noteob );
begin
   if (TreeView1.Items.Count = 0) then
    {   NewNode := } TreeView1.Items.AddChildObject(nil, lbl, note)
   else if (nodelevel > LastNode.level) then
      { NewNode:= } TreeView1.Items.AddChildObject(LastNode, lbl, note)
   else
   begin // if this node is 'outdented' (it has a lower nodelevel than the
         // node above it) find the first existing node at its nodelevel
         // and add the NewNode to it.
    while nodelevel < LastNode.level  do
            LastNode := LastNode.Parent;

      { NewNode := } TreeView1.Items.AddObject(LastNode, lbl, note);
   end;
end;