Tree Views

Hi All.

I need some help :)  How the hell do you use Tree Views?  I cant any helpfull documentation on them anywhere.

Can you tell me how to:

Add items, insert and delete.  Also, how do I add a child at a certain point.  Ie, I want to add Fred to Group1 which is the third item item in a list to 20.

Thanks.


Stuart.
LVL 6
Stuart_JohnsonAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

JimBob091197Commented:
Hi Stuart

Here is the answer to a previous question I answered:

Delphi's TTreeView (which is a BIG improvement over Delphi 1's TOutline component) has a property "Items" of type TTreeNodes.  Most of the work is done with the items property.

Consider the following:
(Form1 has a TTreeView called tv.)

procedure TForm1.AddSomeNodes;
var
    RootNode, Child1Node, Child2Node, GrandChildNode: TTreeNode;
begin
    RootNode := tv.Items.AddChild(nil, 'This is the root');
    Child1Node := tv.Items.AddChild(RootNode, 'This is a child');
    Child2Node := tv.Items.AddChild(RootNode, 'Second child');
    GrandChildNode := tv.Items.AddChild(Child1Node, 'Child of Child 1');
end;

From this you can see that to add a tree node you write:
    MyNewNode := tv.Items.AddChild(ParentNode, 'Caption');
If ParentNode = nil then the item is added to the root of the tree.

Each node in the treeview is of type TTreeNode.  TreeNode has some useful methods, e.g. Expand, Collapse, GetFirstChild, HasAsParent, etc.

If you run the procedure AddSomeNodes above, you will see that RootNode is collapsed.  To expand it with code, call "RootNode.Expand(False);".  To expand the node AND all its children nodes, call "ANode.Expand(True);".  To collapse the node again, call "ANode.Collapse;".

To go through the immediate children of any node, do the following: (This code goes through all the children of the selected node):
procedure TForm1.ShowSelectedChildren;
var
  ParentNode, ChildNode: TTreeNode;
begin
  ParentNode := tv.Selected;
  if (ParentNode <> nil) then begin
    ChildNode := ParentNode.GetFirstChild;
    while (ChildNode <> nil) do begin
      ShowMessage(ChildNode.Text);
      ChildNode := ChildNode.GetNextSibling;
    end;
  end;
end;


Assigning images to a TTreeView is similar to Delphi's TListView.  Put a TImageList on the form and add a few bitmaps/icons to it.  Set the treeview's Images property to the imagelist.  When you add a TreeNode you can set its ImageIndex and SelectedIndex properties.  The ImageIndex property determines which image in the TImageList the node will use when it is not selected.  The SelectedIndex property determines which image the node will use when it is selected.

E.g.
MyNewNode := tv.Items.AddChild(ParentNode, 'New Node');
MyNewNode.ImageIndex := 5;
MyNewNode.SelectedIndex := 5;

To change the display text of a node:
MyNode.Text := 'Some new caption';

Other useful properties of the TTreeView are ReadOnly (user cannot edit a node's text),  ShowButtons and ShowLines (determine whether lines connecting nodes are shown.  If you open any Windows 95 help file with a contents you will see that the contents is a treeview with ShowButtons = False and ShowLines = False).

This should get you started.  Let me know if I can be of more help.

JB
 

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Stuart_JohnsonAuthor Commented:
Once again, you have excelled!!  Full points.

I would be interested to know how I can implement drag and drop, but I will dig further through my documentation.  If I can find out then, I'll repost.

thanks again.

Stu
0
JimBob091197Commented:
Hi Stu

Before you repost a drag-drop sample, I can e-mail you one I did for someone else.  I don't remember who it was, but I keep all the samples.  Is your e-mail address still stuartj@futureschool.com.au?

Dave
0
Stuart_JohnsonAuthor Commented:
Certainly is, and damn it, I just posted a question on that one too.

If you can answer the other questions, do so and I'll give you the points anyway :)

Can you send me that file today?  I just want to get this thing finished!

Thanks for your help.  Much appreciated.

Stuart.
0
JimBob091197Commented:
I have sent you the sample, and I will look at the other question.

Cheers,
JB
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.