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;