--[===[
Author:	YoucefHam
Email:	[email protected]
Discord:	YoucefHam#5634

ADD to Edit Menu "Hotkey Manager"
	"Get Table Hotkeys", => This will show you a list with all the Memory records that have Hotkeys.
	"Remove All Hotkeys", => This will remove all the Hotkeys from All the Memory records.
]===]

local HotkeysManagerName = 'miHotkeysManager'
local HotkeysManagerCaption = '&Hotkey Manager'
local miHotkeysManager

-- Get Table Hotkeys
function GetHotkeys()
	local mr = getAddressList()
	if mr.Count > 0 then
		local _GetHotKeys = ""
		local _KeyCode = {[1]="LBUTTON",[2]="RBUTTON",[3]="CANCEL",[4]="MBUTTON",[5]="XBUTTON1",[6]="XBUTTON2",[8]="Backspace",[9]="TAB",[12]="Clear",[13]="Enter",[16]="SHIFT",[17]="CONTROL",[18]="ALT",[19]="PAUSE",[20]="CAPSLOCK",[27]="ESCAPE",[32]="SPACE",[33]="PGUP",[34]="PGDOWN",[35]="NumpadEnd",[36]="HOME",[37]="LEFT_ARROW",[38]="UP_ARROW",[39]="RIGHT_ARROW",[40]="DOWN_ARROW",[41]="SELECT",[42]="PrintScreen",[43]="EXECUTE",[44]="SNAPSHOT",[45]="INSERT",[46]="DELETE",[47]="HELP",[48]="0",[49]="1",[50]="2",[51]="3",[52]="4",[53]="5",[54]="6",[55]="7",[56]="8",[57]="9",[65]="A",[66]="B",[67]="C",[68]="D",[69]="E",[70]="F",[71]="G",[72]="H",[73]="I",[74]="J",[75]="K",[76]="L",[77]="M",[78]="N",[79]="O",[80]="P",[81]="Q",[82]="R",[83]="S",[84]="T",[85]="U",[86]="V",[87]="W",[88]="X",[89]="Y",[90]="Z",[91]="LWIN",[92]="RWIN",[93]="AppsKey",[95]="Sleep",[96]="NUMPAD0",[97]="NUMPAD1",[98]="NUMPAD2",[99]="NUMPAD3",[100]="NUMPAD4",[101]="NUMPAD5",[102]="NUMPAD6",[103]="NUMPAD7",[104]="NUMPAD8",[105]="NUMPAD9",[106]="NUMPAD_MULTIPLY",[107]="NUMPAD_ADD",[108]="SEPARATOR",[109]="NUMPAD_SUBTRACT",[110]="NUMPAD_DECIMAL",[111]="NUMPAD_DIVIDE",[112]="F1",[113]="F2",[114]="F3",[115]="F4",[116]="F5",[117]="F6",[118]="F7",[119]="F8",[120]="F9",[121]="F10",[122]="F11",[123]="F12",[124]="F13",[125]="F14",[126]="F15",[127]="F16",[128]="F17",[129]="F18",[130]="F19",[131]="F20",[132]="F21",[133]="F22",[134]="F23",[135]="F24",[144]="NUMLOCK",[145]="SCROLLLOCK",[156]="WheelLeft",[157]="WheelRight",[158]="WheelDown",[159]="WheelUp",[160]="LSHIFT",[161]="RSHIFT",[162]="LCONTROL",[163]="RCONTROL",[164]="LALT",[165]="RALT",[166]="Browser_Back",[167]="Browser_Forward",[168]="Browser_Refresh",[169]="Browser_Stop",[170]="Browser_Search",[171]="Browser_Favorites",[172]="Browser_Home",[173]="Volume_Mute",[174]="Volume_Down",[175]="Volume_Up",[176]="Media_Next",[177]="Media_Prev",[178]="Media_Stop",[179]="Media_Play_Pause",[180]="Launch_Mail",[181]="Launch_Media",[182]="Launch_App1",[183]="Launch_App2",[186]=";",[187]="=",[188]=",",[189]="-",[190]=".",[191]="/",[192]="`"}
		for _Record = 0 , mr.Count - 1 do -- Read all records in the Table
			local _keyCount = mr[_Record].HotkeyCount -- Get How many keys
			if _keyCount > 0 then
				local _HotKeys = ""
				for _Hotkey = 0, _keyCount - 1 do -- Read All key list
					local _Keys = ""
					local _KeyData = mr[_Record].Hotkey[_Hotkey].Keys -- Get How many unique keys
					for _Modifiers = 1, #_KeyData  do
						if _KeyCode[mr[_Record].Hotkey[_Hotkey].Keys[_Modifiers]] ~= nil then
							if _Modifiers == 1 	then _Keys = _KeyCode[mr[_Record].Hotkey[_Hotkey].Keys[_Modifiers]]
												else _Keys = _Keys.." + ".._KeyCode[mr[_Record].Hotkey[_Hotkey].Keys[_Modifiers]]
							end
						else
							if _Modifiers == 1 	then _Keys = "VK0"..mr[_Record].Hotkey[_Hotkey].Keys[_Modifiers]
												else _Keys = _Keys.." + ".."VK0"..mr[_Record].Hotkey[_Hotkey].Keys[_Modifiers]
							end
						end
					end
					if _Hotkey == 0 then _HotKeys = _Keys
									else _HotKeys = _HotKeys.."; ".._Keys
					end
				end
				_GetHotKeys = _GetHotKeys.."Rec: "..mr[_Record].getDescription().."\n      HotKeys:  ".._HotKeys.."\n"
			end
		end
		if #_GetHotKeys > 1 then showMessage(_GetHotKeys)
							else showMessage("No HotKeys Found!!!")
		end
	end
end

-- Remove All Hotkeys
function removeAllHotkeys()
	local mr = getAddressList()
	if mr.Count > 0 then
		local _isRemovedAny = false
		for _Record = 0 , mr.Count - 1 do -- Read all records in the Table
			local _keyCount = mr[_Record].HotkeyCount -- Get How many keys
			if _keyCount > 0 then
				_isRemovedAny = true
				for __i = _keyCount - 1, 0, -1 do -- Destroy all HotKeys in the record
					mr[_Record].Hotkey[__i].Destroy()
				end
			end
		end
		if _isRemovedAny 	then showMessage("All Hotkeys Removed")
							else showMessage("No HotKeys Found!!!") end
	end
end

-- Add menus
local function addMenuItem(MenuItem, caption, onClick)
	local newItem = createMenuItem(MenuItem)
	MenuItem.add(newItem)
	newItem.Caption = caption
	newItem.OnClick = onClick
	return newItem
end

-- create Hotkey Manager
local function addHotkeysManagerMenu()
	if not getMainForm().ComponentByName['Edit3'].Visible then getMainForm().ComponentByName['Edit3'].Visible = true end
	local parent = getMainForm().ComponentByName['Edit3'] or getMainForm().Menu.Items
	local separatorMenu = createMenuItem(parent)
	separatorMenu.Caption = '-'
	parent.add(separatorMenu)
	
	local miHotkeysManager = createMenuItem(parent)
	miHotkeysManager.Name = HotkeysManagerName
	miHotkeysManager.Caption = HotkeysManagerCaption
	parent.add(miHotkeysManager)
	
	addMenuItem(miHotkeysManager,translate('&Get Table Hotkeys'), GetHotkeys)
	addMenuItem(miHotkeysManager,'-')
	addMenuItem(miHotkeysManager,translate('&Remove All Hotkeys'), removeAllHotkeys)
end

addHotkeysManagerMenu()