The selected item in the list gets an ugly black & red checkered border. If I switch to another screen and come back to it, all is normal, and I can select around and It'll be good.


Code: Select all
If OpenWindow(0, 0, 0, 355, 180, "TreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
tree = CreateWindowEx_(#Null, #WC_TREEVIEW, "Tree View", #WS_VISIBLE|#WS_BORDER|#WS_CHILDWINDOW|#TVS_HASLINES,10, 10, 160, 160, WindowID(0), #Null, GetModuleHandle_(0), #Null)
TreeGadget(1, 180, 10, 160, 160, #PB_Tree_NoLines)
For i = 1 To 5
NodeText.s = "Item " + Str(i)
tvi.TV_INSERTSTRUCT\hParent = hItemParent
tvi.TV_INSERTSTRUCT\hInsertAfter = #TVI_LAST
tvi.TV_INSERTSTRUCT\Item\Mask = #TVIF_TEXT
tvi.TV_INSERTSTRUCT\Item\pszText = @NodeText
tvi.TV_INSERTSTRUCT\Item\cchTextMax = Len(NodeText)
SendMessage_(tree, #TVM_INSERTITEM, #Null, @tvi)
AddGadgetItem (1, -1, "Item " + Str(i), #Null, #Null)
Next
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Code: Select all
If OpenWindow(0, 0, 0, 355, 180, "TreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
TreeGadget(0, 10, 10, 160, 160) ; TreeGadget standard
TreeGadget(1, 180, 10, 160, 160, #PB_Tree_CheckBoxes | #PB_Tree_NoLines) ; TreeGadget with Checkboxes + NoLines
For ID = 0 To 1
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
Next
ButtonGadget(2,0,0,0,0,"Test 2")
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf