Need help with Tree Gadget manipulation

Just starting out? Need help? Post your questions and find answers here.
BackupUser
PureBasic Guru
PureBasic Guru
Posts: 16777133
Joined: Tue Apr 22, 2003 7:42 pm

Post by BackupUser »

Restored from previous forum. Originally posted by Mark1Up.


I am trying to write a simple organizer type of application that uses the Tree view as its main interface, but I am having trouble figuring out how to update individual Tree nodes and inserting new nodes between existing nodes (based on the selected node) either as sub-node or equal level node. Maybe this functionality isn't available yet in PB? Here is a code snippet that should show what I am trying to accomplish.

Thanks for any ideas anyone has,

Mark

; Start PB Code Snippet
#WindowWidth = 325
#WindowHeight = 580


If OpenWindow(0, 100, 120, #WindowWidth, #WindowHeight, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget, "PB - Organizer")

If CreateGadgetList(WindowID())

Text$ = ""
StringGadget(1, 10, 20, 300, 100, Text$ )
TreeGadget (2, 10, 150, 300, 400, #PB_Tree_AlwaysShowSelection )
AddGadgetItem(2, 1, "First Item" )
ButtonGadget(3, 40, 125, 80, 20, "New Item")
ButtonGadget(4, 120, 125, 80, 20, "New Sub-Item")
ButtonGadget(5, 200, 125, 80, 20, "Update Item")

EndIf

Repeat
EventID = WaitWindowEvent()

If EventID = #PB_EventGadget

Select EventGadgetID()

Case 2

SetGadgetText(1,GetGadgetText(2))

Case 3

AddGadgetItem(2, Position,GetGadgetText(1))

Case 4

OpenTreeGadgetNode()
AddGadgetItem(2, Position,GetGadgetText(1))

EndSelect

EndIf

Until EventID = #PB_EventCloseWindow
EndIf

End