Welcome to phpBB3

Comment about my Youtube Content
Post Reply
mpskinner
Site Admin
Posts: 1
Joined: Sun Dec 01, 2019 12:49 am
Contact:

Welcome to phpBB3

Post by mpskinner » Sun Dec 01, 2019 12:49 am

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; 

Post Reply

Who is online

Users browsing this forum: No registered users and 1 guest