The arguments are:

The handle to the new item, or 0 for all other cases.

The following example inserts child items when a specific root item is expanded. The text strings for the items are loaded from a file.

::method OnExpanding_IDC_TREE
  use arg tree, item
  itemFile = "root6.inp"
  curTree = self~GetTreeControl("IDC_TREE")
  itemInfo. = curTree~ItemInfo(item)

  if itemInfo.!TEXT = "Root 6" & \itemInfo.!STATE~POS("EXPANDED") then
  do
    do while lines(itemFile)
      line = linein(itemFile)
      command = "curTree~Insert(item, ,"||line||")"
      interpret command
    end
    curTree~Expand(item)
  end

The arguments are:

The handle to the new item, or 0 for all other cases.

To get the following tree view:

• Peter

  • Mike

    • George

    • Monique

      • John

    • Chris

  • Maud

  • Ringo

• Paul

  • Dave

  • Sam

  • Jeff

• Mary

  • Helen

  • Michelle

  • Diana

your example must look as follows:

::method InitDialog
  InitDlgRet = self~InitDialog:super
  curTree = self~GetTreeControl("IDC_TREE")
  if curTree \= .Nil then
  do
    curTree~Add("Peter", , ,"BOLD EXPANDED")
    curTree~Add(,"Mike", , ,"EXPANDED")
    curTree~Add(, ,"George")
    curTree~Add(, ,"Monique")
    curTree~Add(, , ,"John")
    curTree~Add(, ,"Chris")
    curTree~Add(,"Maud")
    curTree~Add(,"Ringo")
    curTree~Add("Paul", , ,"BOLD EXPANDED")
    curTree~Add(,"Dave")
    curTree~Add(,"Sam")
    curTree~Add(,"Jeff")
    curTree~Add("Mary", , ,"BOLD EXPANDED")
    curTree~Add(,"Helen")
    curTree~Add(,"Michelle")
    curTree~Add(,"Diana")
end

The arguments are:

The following example changes the text of the item to bold when it is selected:

::method OnSelChanging_IDC_TREE
  curTree = self~GetTreeControl("IDC_TREE")
  curTree~Modify(curTree~selected, , , ,"BOLD")

The only argument is:

A compound variable that stores the attributes of the item, or -1 in all other cases. The compound variable can be:

The following example displays the attributes of the selected item:

::method Info
  curTree = self~GetTreeControl("IDC_TREE")
  itemInfo. = curTree~ItemInfo(curTree~Selected)
  say itemInfo.!TEXT
  say itemInfo.!CHILDREN
  say itemInfo.!IMAGE
  say itemInfo.!STATE

The number of items.

The following example counts all items in a tree view control:

::method Count
  curTree = self~GetTreeControl("IDC_TREE")
  say curTree~Items

The number of items that can be fully visible. For example, if you can see all of 19 items and part of another item, the return value is 19, not 20.

The following example returns the number of items that can be fully visible:

::method Visible
  curTree = self~GetTreeControl("IDC_TREE")
  say curTree~VisibleItems

The handle to the first item, or 0 in all other cases.

The following example displays the name of the root item:

::method RootName
  curTree = self~GetTreeControl("IDC_TREE")
  itemInfo. = curTree~ItemInfo(curTree~Root)
  say ItemInfo.!Text

The only argument is:

The handle to the parent item, or -1 if hItem is not specified or is 0, or 0 in all other cases.

The following example displays the name of the selected item's parent:

::method Parent
  curTree = self~GetTreeControl("IDC_TREE")
  itemInfo. = curTree~ItemInfo(curTree~Parent(curTree~Selected))
  say ItemInfo.!Text

The only argument is:

The handle to the first child item, or -1 if you omitted hItem, or 0 in all other cases.

The following example displays the name of parent of the selected item:

::method Child
  curTree = self~GetTreeControl("IDC_TREE")
  itemInfo. = curTree~ItemInfo(curTree~Child(curTree~Selected))
  say ItemInfo.!Text

The handle to the currently selected item, or 0 in all other cases.

The following example displays the name of the selected item:

::method SelectedName
  curTree = self~GetTreeControl("IDC_TREE")
  itemInfo. = curTree~ItemInfo(curTree~Selected)
  say ItemInfo.!Text

The handle to the item, or 0 in all other cases.

The handle to the first visible item, or 0 in all other cases.

The following example displays the name of the first visible item:

::method FirstVisibleName
  curTree = self~GetTreeControl("IDC_TREE")
  itemInfo. = curTree~ItemInfo(curTree~FirstVisible)
  say ItemInfo.!Text

The only argument is:

The handle to the next sibling item, or -1 if you omitted hItem, or 0 in all other cases.

The following example displays the name of the selected item and its siblings:

::method SiblingNames
  curTree = self~GetTreeControl("IDC_TREE")
  nextItem = curTree~Selected
  do while nextItem \= 0
    itemInfo. = curTree~ItemInfo(nextItem)
    say ItemInfo.!Text
    nextItem = curTree~Next(nextItem)
  end

The only argument is:

The handle to the next visible item, or -1 if you omitted hItem, or 0 in all other cases.

The only argument is:

The handle to the previous sibling item, or -1 if hItem is not specified or is 0, or 0 in all other cases.

The only argument is:

The handle to the previous visible child item, or -1 if hItem is not specified or is 0, or 0 in all other cases.

The only argument is:

The following example deletes the selected item and all its children, if any:

::method IDC_PB_DELETE
  curTree = self~GetTreeControl("IDC_TREE")
  curTree~Delete(curTree~Selected)

The only argument is:

The following example collapses the selected item:

::method CollapseSelected
  curTree = self~GetTreeControl("IDC_TREE")
  curTree~Collapse(curTree~Selected)

The only argument is:

The following example collapses the selected item and removes all its child items:

::method CollapseSelectedAndReset
  curTree = self~GetTreeControl("IDC_TREE")
  curTree~CollapseAndReset(curTree~Selected)

The only argument is:

The following example expands the selected item:

::method ExpandSelected
  curTree = self~GetTreeControl("IDC_TREE")
  curTree~Expand(curTree~Selected)

The only argument is:

The following example toggles between expanding and collapsing a selected item:

::method ToggleSelected
  curTree = self~GetTreeControl("IDC_TREE")
  curTree~Toggle(curTree~Selected)

The only argument is:

The amount indented, in pixels.

The only argument is:

-1 if indent is 0.

The only argument is:

The handle to the edit control used to edit the item text, or -1 if hItem is not specified or is 0, or 0 in all other cases.

The only argument is:

The only argument is:

The only argument is:

The only argument is:

The only argument is:

The arguments are:

The handle to the previous image list, or -1 if you did not specify bitmap, or 0 in all other cases.

The following example sets the image list during dialog initialization:

::method InitDialog
  expose bmpFile
  InitDlgRet = self~InitDialog:super
  curTree = self~GetTreeControl("IDC_TREE")
  if curTree \= .Nil then
  do
    curTree~SetImages(bmpFile,16,12)
  end
  return InitDlgRet

The arguments are:

0 if no item occupies the point, or one or more of the following strings if an item occupies the specified point:

The arguments are:

The handle to the new parent, or 0 in all other cases.

The arguments are:

1 if hParent is an ancestor of hItem.