Inserting items below the root level
The first time a user tries to expand an item to see its children,
PowerBuilder triggers the ItemPopulate event if and only
if the value of the item’s Children property
is TRUE. In the ItemPopulate event, you can add
child items for the item being expanded.
Parent item’s Children property
If the ItemPopulate event does not occur when you expect,
make sure the Children property for the expanding item is TRUE.
It should be set to TRUE for any item that will
have children.
Inserting items not restricted to the ItemPopulate
event
The ItemPopulate event helps you design an efficient program.
It will not populate an item that the user never looks at. However,
you do not have to wait until the user wants to view an item’s
children. You can add children in any script, just as you added
items at the root level.
For example, you might fully populate a small TreeView when
its window opens and use the ExpandAll function
to display its items fully expanded.
Has an item been populated?
You can check an item’s ExpandedOnce property to
find out if the user has looked at the item’s children.
If the user is currently looking at an item’s children,
the Expanded property is also TRUE.
Example
This TreeView lists composers and their music organized into categories.
The script for its ItemPopulate event checks whether the item being expanded
is at level 1 (a composer) or level 2 (a category). Level 3 items
are not expandable.
For a level 1 item, the script adds three standard categories.
For a level 2 item, it adds pieces of music to the category being
expanded, in this pattern:
|
1 |
Mozart<br>   Orchestral<br>      Symphony No. 33<br>      Overture to the Magic Flute<br>   Chamber<br>      Quintet in Eb for Horn and Strings<br>      Eine Kleine Nachtmusik<br>   Vocal<br>      Don Giovanni<br>      Idomeneo |
This is the script for ItemPopulate:
|
1 |
TreeViewItem tvi_current, tvi_child, tvi_root<br>long hdl_root<br>Integer ct<br>string categ[]<br> <br>// The current item is the parent for the new itemsThis.GetItem(handle, tvi_current)<br> <br>IF tvi_current.Level = 1 THEN<br>   // Populate level 2 with some standard categories<br>   categ[1] = "Orchestral"<br>   categ[2] = "Chamber"<br>   categ[3] = "Vocal"<br> <br>      tvi_child.StatePictureIndex = 0<br>   tvi_child.PictureIndex = 3<br>   tvi_child.SelectedPictureIndex = 4<br>   tvi_child.OverlayPictureIndex = 0<br>   tvi_child.Children = TRUE<br> <br>   FOR ct = 1 to UpperBound(categ)<br>      tvi_child.Label = categ[ct]<br>      This.InsertItemLast(handle, tvi_child)<br>   NEXT<br>END IF<br> <br>// Populate level 3 with music titles<br>IF tvi_current.Level = 2 THEN<br> <br>   // Get parent of current item - it's the root of<br>   // this branch and is part of the key for choosing<br>   // the children<br> <br>   hdl_root = This.FindItem(ParentTreeItem!, handle)<br>   This.GetItem(hdl_root, tvi_root) <br> <br>   FOR ct = 1 to 4<br>      // This statement constructs a label -<br>      // it is more realistic to look up data in a<br>      // table or database or accept user input   <br>      This.InsertItemLast(handle, &<br>      tvi_root.Label + " Music " &<br>      + tvi_current.Label + String(ct), 3)<br>   NEXT<br>END IF |