EnableExplicit

Enumeration Gadget
	#GadgetHK
	#btnApply
EndEnumeration

Enumeration Hotkey
	#HK_ID = 1001
; 	#HK_ID2
EndEnumeration

#Window = 0

Define HotkeyCode.l
Define VirtKey
Define ModKey
Define hGUI, hHotkey, hFont
Define flgHK

; Not a required function, only to save to an ini file
Procedure.s GetKey(HotkeyCode)
	Protected ModKey, Key$, sep$ = " + "
	ModKey = HotkeyCode >> 8
	If ModKey & #HOTKEYF_CONTROL
    Key$ + sep$ + "Ctrl"
	EndIf
	If ModKey & #HOTKEYF_SHIFT
    Key$ + sep$ + "Shift"
	EndIf
	If ModKey & #HOTKEYF_ALT
    Key$ + sep$ + "Alt"
	EndIf
	Key$ + sep$ + Chr(HotkeyCode & $FF)
	Key$ = Mid(Key$, Len(sep$) + 1)
	ProcedureReturn Key$
EndProcedure


Procedure GetModKey(MOD)
	Protected ModKey = 0
	If MOD & #HOTKEYF_SHIFT
    ModKey | #MOD_SHIFT
	EndIf
	If MOD & #HOTKEYF_CONTROL
    ModKey | #MOD_CONTROL
	EndIf
	If MOD & #HOTKEYF_ALT
    ModKey | #MOD_ALT
	EndIf
	ProcedureReturn ModKey
EndProcedure

;- GUI
hGUI = OpenWindow(#Window, 0, 0, 240, 70, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If hGUI
	hHotkey = CreateWindowEx_(0, #HOTKEY_CLASS, 0, #WS_CHILD | #WS_VISIBLE | #WS_TABSTOP,10, 10, 200, 25, hGUI, 0, 0, 0)
	SendMessage_(hHotkey, #HKM_SETHOTKEY, #PB_Shortcut_J | (#HOTKEYF_CONTROL << 8), 0)
	hFont = LoadFont(0, "Arial", 11)
	If hFont
    SendMessage_(hHotkey, #WM_SETFONT, hFont, #True)
	EndIf
	ButtonGadget(#btnApply, 10, 40, 100, 28, "Apply")
	Repeat
    Select WaitWindowEvent()
    	Case #WM_HOTKEY
        Select EventwParam()
        	Case #HK_ID
            Debug "hotkey called"
            MessageRequester("", "1") ; for a test of a compiled program
        EndSelect
    	Case #PB_Event_Gadget
        Select EventGadget()
        	Case #btnApply
            If flgHK And Not UnregisterHotKey_(hGUI, #HK_ID) ; reassignment works without unregistering
            	Debug "Could not unregister the hotkey"
            	Continue
            EndIf
            HotkeyCode = SendMessage_(hHotkey, #HKM_GETHOTKEY, 0, 0)
            If Not HotkeyCode
            	Debug "Cancel the hotkey (Backspace)"
            	flgHK = 0
            	Continue
            EndIf
            Debug HotkeyCode
            Debug GetKey(HotkeyCode)
            ModKey = GetModKey(HotkeyCode >> 8) ; HiWord
            VirtKey = HotkeyCode & $FF ; LoWord
            If RegisterHotKey_(hGUI, #HK_ID, ModKey, VirtKey)
            	flgHK = 1
            Else
            	Debug "Failed to register hotkey"
            	flgHK = 0
            EndIf
        EndSelect
    	Case #PB_Event_CloseWindow
        DestroyWindow_(hHotkey)
        If flgHK
        	UnregisterHotKey_(hGUI, #HK_ID)
        EndIf
        CloseWindow(#Window)
        End
    EndSelect
	ForEver
EndIf