Quick example
Code: Select all
OpenWindow(0, 0, 0, 500, 500, #PB_Window_ScreenCentered|#PB_Window_SystemMenu, "Tree Demo")
CreateGadgetList(WindowID())
TreeGadget(0, 0, 0, 250, 500)
TextGadget(1, 250, 0, 250, 500, "")
AddGadgetItem(0, -1, "England")
OpenTreeGadgetNode(0)
AddGadgetItem(0, -1, "London")
AddGadgetItem(0, -1, "Manchester")
AddGadgetItem(0, -1, "Birmingham")
CloseTreeGadgetNode(0)
AddGadgetItem(0, -1, "France")
OpenTreeGadgetNode(0)
AddGadgetItem(0, -1, "Paris")
AddGadgetItem(0, -1, "Nice")
AddGadgetItem(0, -1, "Lyon")
CloseTreeGadgetNode(0)
Repeat
event = WaitWindowEvent()
If event = #PB_Event_Gadget
If EventGadgetID() = 0
item = GetGadgetState(0)
itemtext.s = GetGadgetItemText(0, item, 0)
text.s = ""
For i = 1 To 100
text + itemtext + " "
Next i
SetGadgetText(1, text)
EndIf
EndIf
Until event = #PB_Event_CloseWindow