Is it possible to right-click on a tree node and get a contextual menu?
I've got...
WaitEvent()
Select EventID()
Case EVENT_GADGETMENU
Select EventSource()
Case tree
Local popupmenu:TGadget = CreateMenu("popup_tree", 0, tree)
CreateMenu("Add...", POPUPMENU_ADD, popupmenu)
CreateMenu("Remove", POPUPMENU_REMOVE, popupmenu)
PopupWindowMenu(tree, popupmenu)
EndSelect
Case EVENT_MENUACTION
Select EventData()
Case POPUPMENU_ADD
Local current_node:TGadget = SelectedTreeViewNode(tree)
AddTreeViewNode("Added", current_node)
Case POPUPMENU_REMOVE
Local current_node:TGadget = SelectedTreeViewNode(tree)
FreeTreeViewNode(current_node)
End Select
I want to be able to right-click on a node to Add a new branch to the tree or remove a node (and hence all the branches derived from it), but it doesn't seem to work as expected. What am I doing wrong?
|