Here I go again experiencing a problem with the TreeGadget() with checkboxes. I can click on the checkbox like crazy the checkbox state don't change. There is a code, can a volunteer confirm this before I post this in the bug section.
Best regards
StarBootics
Code: Select all
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Project name : TreeGadget CheckBox not responding
; File Name : TreeGadget CheckBox not responding.pb
; File version: 1.0.0
; Programming : Potential Bug Demonstrator
; Programmed by : StarBootics
; Date : 17-05-2021
; Last Update : 17-05-2021
; PureBasic code : 5.73 LTS
; Platform : Ubuntu 21.04 (Hirsute Hippo) x86-64
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Bug description
;
; The TreeGadget with CheckBox, the state don't change
; after a click on it. If the checkbox is being set by
; SetGadgetItemState(1, 0, #PB_Tree_Checked) instruction
; it remain in that state no matter what we do. We can
; click on the checkbox like crazy the state don't change.
;
; And it's the same when the CheckBox is not Checked.
;
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
If OpenWindow(0, 400, 300, 400, 300, "TreeGadget", #PB_Window_SystemMenu)
TreeGadget(1, 5, 5, 390, 290, #PB_Tree_CheckBoxes)
For a = 0 To 10
AddGadgetItem(1, -1, "Elément normal "+Str(a), 0, 0)
AddGadgetItem(1, -1, "Noeud "+Str(a), 0, 0)
AddGadgetItem(1, -1, "Sous-élément 1", 0, 1)
AddGadgetItem(1, -1, "Sous-élément 2", 0, 1)
AddGadgetItem(1, -1, "Sous-élément 3", 0, 1)
AddGadgetItem(1, -1, "Sous-élément 4", 0, 1)
AddGadgetItem(1, -1, "Fichier "+Str(a), 0, 0)
Next
SetGadgetItemState(1, 0, #PB_Tree_Checked)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 1
If EventType() = #PB_EventType_Change ; LeftClick
Result.i = GetGadgetItemState(1, GetGadgetState(1))
Debug Str(Result)
Debug Str(Result & #PB_Tree_Checked)
Debug Str(#PB_Tree_Checked)
If Result & #PB_Tree_Checked
Debug "Checked!"
Else
Debug "Not Checked!"
EndIf
EndIf
EndSelect
Case #PB_Event_CloseWindow
Select EventWindow()
Case 0
Break
EndSelect
EndSelect
ForEver
EndIf
; <<<<<<<<<<<<<<<<<<<<<<<
; <<<<< END OF FILE <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<