PureBasic Forums - English

Code: Select all

;{                                                                        Must be before Open any window
Global Pv.l
#SPI_SETKEYBOARDCUES = $100B

SystemParametersInfo_(#SPI_GETKEYBOARDCUES, 0, @Pv, 0)                   ;Get the current status for the running system
SystemParametersInfo_(#SPI_SETKEYBOARDCUES, 0, 1, 0)                     ;Show underlined letters for keyboard navigation and gadget focus rectangle
;SystemParametersInfo_(#SPI_SETKEYBOARDCUES, 0, 0, 0)                    ;Hide underlined letters for keyboard navigation and gadget focus rectangle
;}
OpenWindow(0, 100, 100, 220, 180, "Tab Test", #PB_Window_SystemMenu)
  If CreateMenu(0, WindowID(0))
    MenuTitle("&Project") 
    MenuItem(1, "&Open"   +Chr(9)+"Ctrl+O") 
    MenuItem(2, "&Save"   +Chr(9)+"Ctrl+S") 
    MenuItem(3, "Save &As"+Chr(9)+"Ctrl+A") 
    MenuItem(4, "&Close"  +Chr(9)+"Ctrl+C") 
  EndIf 
  StringGadget(0, 10, 10, 200, 20, "") 
  CheckBoxGadget(1, 10, 40,200, 20, "&CheckBox1")
  ButtonGadget(2, 10, 70, 200, 20, "Button&1") 
  StringGadget(3, 10, 100, 200, 20, "") 
  ButtonGadget(4, 10, 130, 200, 20, "Button&2")
  SetActiveGadget(0)
  
  Repeat 
   EventID = WaitWindowEvent()
   
   Select EventID

    Case #PB_Event_Gadget
    
     Select EventGadget()
     
           Case 2
            MessageRequester("","Button1 pressed", #MB_ICONERROR)                 
                
     EndSelect
     
    Case #PB_Event_CloseWindow      
        ;{                                                                      To set the system to it's default
        If Pv = 0
            SystemParametersInfo_(#SPI_SETKEYBOARDCUES, 0, 0, 0)
        EndIf
        ;}
        Quit = 1
             
  EndSelect
         
Until Quit = 1

End