[SOLVED] Proper handling of Checkbox Gadget ??

[Randy Walker]

I've tried to approach this from many angles but can't seem to nail it down. The box does not fill when I click on it and cannot capture the change:

Code: Select all

If OpenWindow(0, 0, 0, 132, 75, "CheckboxGadget Flag", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CheckBoxGadget(2, 8, 10, 106, 20, "Show Password")
  Repeat
    ev = WaitWindowEvent()
    Select ev
      Case #PB_Event_Gadget
        If GetGadgetState(1) = #PB_Checkbox_Checked
          Debug "Checked"
        Else
          Debug "UnChecked"
        EndIf
    EndSelect
  Until ev = #PB_Event_CloseWindow
EndIf

[mk-soft]

Tips

Code: Select all

;- TOP

; Use always EnableExplicit, to find typos
EnableExplicit

; Use Enumerations, to avoid incorrect numbers

Enumeration FormWindows
  #Main
EndEnumeration

Enumeration FormMenuBars
  ;
EndEnumeration

Enumeration FormMenuItems
  ;
EndEnumeration

Enumeration FormGadgets
  #MainCheckbox
EndEnumeration

Global ev

If OpenWindow(#Main, 0, 0, 132, 75, "CheckboxGadget Flag", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CheckBoxGadget(#MainCheckbox, 8, 10, 106, 20, "Show Password")
  Repeat
    ev = WaitWindowEvent()
    Select ev
      Case #PB_Event_CloseWindow
        Select EventWindow()
          Case #Main
            Break
            
        EndSelect
        
      Case #PB_Event_Gadget
        Select EventGadget()
          Case #MainCheckbox
            If GetGadgetState(#MainCheckbox) = #PB_Checkbox_Checked
              Debug "Checked"
            Else
              Debug "UnChecked"
            EndIf
            
        EndSelect
        
    EndSelect
  ForEver
EndIf

[RASHAD]

Hi Randy
Your checkbox id is 2 not 1
And better use

Code: Select all

If GetGadgetState(2) = 1

[mk-soft]

Hi Randy
Your checkbox id is 2 not 1
And better use

Code: Select all

If GetGadgetState(2) = 1

#PB_CheckBox_Checked is right !

[Randy Walker]

Thank you RASHAD and Thank you mk-soft.
My real goal was trying to create a Show Password Checkbox but I found a really great solution from Piero: viewtopic.php?p=634703#p634703

[Piero]

I found a really great solution from Piero: viewtopic.php?p=634703#p634703

Huh? Did you mean/forget this?
viewtopic.php?t=87334

[Randy Walker]

Huh? Did you mean/forget this?
viewtopic.php?t=87334

Huh? I would not want to restrict users to numeric only passwords. Who does that?

[Piero]

Huh? Did you mean/forget this?
viewtopic.php?t=87334

Huh? I would not want to restrict users to numeric only passwords. Who does that?

Code: Select all

Global StringGadgetFlags ; = #PB_String_Numeric ; set to 0 for normal password