Page 1 of 1
How can I unfold a TreeGadget?
Posted: Sun Jun 15, 2025 10:27 am
by Wolfram
How can I unfold all nodes of a TreeGadget?
Re: How can I unfold a TreeGadget?
Posted: Sun Jun 15, 2025 11:37 am
by wombats
Do you mean collapse them all at once?
Code: Select all
Procedure OnExpandAll()
Protected i
For i = 0 To CountGadgetItems(0) - 1
SetGadgetItemState(0, i, #PB_Tree_Expanded)
Next
EndProcedure
Procedure OnCollapseAll()
Protected i
For i = 0 To CountGadgetItems(0) - 1
SetGadgetItemState(0, i, #PB_Tree_Collapsed)
Next
EndProcedure
If OpenWindow(0, 0, 0, 355, 180, "TreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
TreeGadget(0, 10, 10, 160, 160)
For a = 0 To 10
AddGadgetItem (ID, -1, "Normal Item "+Str(a), 0, 0) ; if you want to add an image, use
AddGadgetItem (ID, -1, "Node "+Str(a), 0, 0) ; ImageID(x) as 4th parameter
AddGadgetItem(ID, -1, "Sub-Item 1", 0, 1) ; These are on the 1st sublevel
AddGadgetItem(ID, -1, "Sub-Item 2", 0, 1)
AddGadgetItem(ID, -1, "Sub-Item 3", 0, 1)
AddGadgetItem(ID, -1, "Sub-Item 4", 0, 1)
AddGadgetItem (ID, -1, "File "+Str(a), 0, 0) ; sublevel 0 again
Next
ButtonGadget(1, 180, 10, 125, 25, "Expand All")
ButtonGadget(2, 180, 40, 125, 25, "Collapse All")
BindGadgetEvent(1, @OnExpandAll())
BindGadgetEvent(2, @OnCollapseAll())
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Re: How can I unfold a TreeGadget?
Posted: Sun Jun 15, 2025 5:57 pm
by Wolfram
Thanks!
This is ok for a few hundert items, but on 7000 items it takes 40 seconds to open them.
I hope there is a better way.
Re: How can I unfold a TreeGadget?
Posted: Mon Jun 16, 2025 6:53 am
by Lord
Did you try HideGadget(0, #True) and HideGadget(0, #False)?
Or was it DisableGadget()? Try it.
For Windows only:
Code: Select all
Procedure OnExpandAll()
Protected i
SendMessage_(GadgetID(0),#WM_SETREDRAW,#False,0)
For i = 0 To CountGadgetItems(0) - 1
SetGadgetItemState(0, i, #PB_Tree_Expanded)
Next
SendMessage_(GadgetID(0),#WM_SETREDRAW,#True,0)
EndProcedure
and
Code: Select all
Procedure OnCollapseAll()
Protected i
SendMessage_(GadgetID(0),#WM_SETREDRAW,#False,0)
For i = 0 To CountGadgetItems(0) - 1
SetGadgetItemState(0, i, #PB_Tree_Collapsed)
Next
SendMessage_(GadgetID(0),#WM_SETREDRAW,#True,0)
EndProcedure
Re: How can I unfold a TreeGadget?
Posted: Mon Jun 16, 2025 7:39 pm
by Wolfram
No, it does not help.
If I use a shortcut (option + arrowRight) it opens in a second.
Re: How can I unfold a TreeGadget?
Posted: Tue Jun 17, 2025 2:02 am
by AZJIO
viewtopic.php?p=576903#p576903
You can also use the asterisk (*) on the numeric keypad, this is a native way to expand the entire tree (it definitely works on Win10).
Re: How can I unfold a TreeGadget?
Posted: Tue Jun 17, 2025 8:26 am
by Wolfram
Here is what I was looking for...
Code: Select all
CocoaMessage(0, GadgetID(tree), "expandItem:", #nil, "expandChildren:", #YES)
Re: How can I unfold a TreeGadget?
Posted: Tue Jun 17, 2025 9:54 am
by AZJIO
Wolfram
I'm sorry, I didn't even pay attention to the Mac OSX section.
Re: How can I unfold a TreeGadget?
Posted: Mon Jun 23, 2025 1:34 pm
by Piero
AZJIO wrote: Tue Jun 17, 2025 9:54 amI didn't even pay attention to the Mac OSX section.
You know that it hurts my feelings (like pineapple pizza) but I forgive you