;Autor: Josef Sniatecki

EnableExplicit

Define EventID

Procedure.s CheckCapsLock()
  If GetKeyState_(#VK_CAPITAL)
    ProcedureReturn "Caps Lock: On"
  Else
    ProcedureReturn "Caps Lock: Off"
  EndIf
EndProcedure

Procedure.s CheckNumLock()
  If GetKeyState_(#VK_NUMLOCK)
    ProcedureReturn "Num Lock: On"
  Else
    ProcedureReturn "Num Lock: Off"
  EndIf
EndProcedure

Procedure.s CheckScrollLock()
  If GetKeyState_(#VK_SCROLL)
    ProcedureReturn "Scroll Lock: On"
  Else
    ProcedureReturn "Scroll Lock: Off"
  EndIf
EndProcedure

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  TextGadget(1,10,10,100,20,"",0)
  TextGadget(2,10,30,100,20,"",0)
  TextGadget(3,10,50,100,20,"",0)
  
  SetGadgetText(1,CheckCapsLock())
  SetGadgetText(2,CheckScrollLock())
  SetGadgetText(3,CheckNumLock())
  
Repeat
EventID=WaitWindowEvent()
If EventID=#WM_KEYUP
  SetGadgetText(1,CheckCapsLock())
  SetGadgetText(2,CheckScrollLock())
  SetGadgetText(3,CheckNumLock())
EndIf
Until EventID = #PB_Event_CloseWindow
EndIf