ColorRequester
Posted: Fri Nov 07, 2025 7:13 pm
I have a very large program, and I want to select a ColorRequester from a menu. The first time I select it, it returns the color. However, on the second and subsequent selections, it returns nothing.
Does anyone know what might be wrong?
I found out that this only happens when I use the debug for output; if I use a MessageRequester, everything works fine
Does anyone know what might be wrong?
I found out that this only happens when I use the debug for output; if I use a MessageRequester, everything works fine
Code: Select all
Event_handle = WindowEvent()
Select EventWindow()
Case #H_Window_main
Select Event_handle
Case #PB_Event_Menu
Case #H_Window_spanning
Select Event_handle
Case #PB_Event_Menu
Select EventMenu() ; menu item
Case #Menu_spanning_kleur_f1
kleur = ColorRequester(RGB(0, 0, 0))
If kleur <> -1
Debug "Gekozen kleur: " + Str(kleur)
EndIf
Case #Menu_spanning_kleur_f2
kleur = ColorRequester(RGB(0, 0, 0))
If kleur <> -1
Debug "Gekozen kleur: " + Str(kleur)
EndIf
Case #Menu_spanning_kleur_f3
kleur = ColorRequester(RGB(0, 0, 0))
If kleur <> -1
Debug "Gekozen kleur: " + Str(kleur)
EndIf
EndSelect