For Editor & String , single Click causes DoubleClick ?
I think what's happening is PB catches TWO Clicks , StringDownClick and StringUpClick .
Same for EditorDownClick and EditorUpClick .
How can I discover #PB_UpClick vs #PB_DownClick ?
Code: Select all
If OpenWindow(0, 0, 0, 200, 500, "SetGadgetColor", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(1, 10, 10, 180, 36, "Button..." , #PB_Button_Toggle )
EditorGadget(2, 10, 50, 180, 36)
StringGadget(3, 10, 100, 180, 36, "Working...." , #PB_String_ReadOnly )
ListViewGadget(4, 10, 150, 180, 60)
For i = 0 To 4
AddGadgetItem(4, -1, "Text")
Next i
ContainerGadget(5, 10, 230, 180, 50, #PB_Container_Raised)
SetGadgetColor(2, #PB_Gadget_BackColor, #Red) ; Editor
SetGadgetColor(2, #PB_Gadget_FrontColor,$FFFFFF)
SetGadgetColor(3, #PB_Gadget_BackColor, $000000) ; String
SetGadgetColor(3, #PB_Gadget_FrontColor,$FFFFFF)
SetGadgetColor(4, #PB_Gadget_FrontColor,$FFFFFF)
SetGadgetColor(4, #PB_Gadget_BackColor, $000000) ; ListView
SetGadgetColor(5, #PB_Gadget_BackColor, $0000FF) ; Container
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 1
Debug "Case 1 Button"
Case 2
Debug "Case 2 Editor"
Case 3
Debug "Case 3 String"
Case 4
Debug "Case 4 ListView"
Case 5
Debug "Case 5 Container"
EndSelect
Case #PB_Event_CloseWindow
Quit = 1
EndSelect
Until Quit = 1
EndIf
End