AHK: Замена gui контролу "Hotkey"

#NoEnv
#SingleInstance Force
Gui, +AlwaysOnTop

; Сохраняем в библиотеке путь и секцию в ини файле, для удобства использования Hotkey_Read и Hotkey_Write.
Hotkey_IniPath(A_ScriptDir "\Hotkey.ini")
Hotkey_IniSection("Hotkeys")

/*
Создаём контролы, это стандартные контролы Edit, в которые при их фокусе можно будет вводить свои горячие клавиши:

Hotkey_Add(ControlOption, Name, Option = "", Hotkey = "", Func = "", BindString = "", ByRef Hwnd = "")

ControlOption - Такие же опции как и для Gui контрола Edit. По умолчанию применяются опции r1 +ReadOnly +Center.
	Далее прописываются общие для всех контролов опции, если Вы их указали в Hotkey_Arr("ControlOption"),
	далее то что укажите в ControlOption, то есть если Вы где то укажите -Center, то +Center по умолчанию будет отменён.
	ReadOnly выключать не желательно, иначе при некоторых условиях пользователь сможет что то написать.
	В конце поста есть ссылка как изменить цвет фона и текста.
	Если у вас несколько окон, укажите в самом начале имя окна и двоеточие "GuiName:", или проще перед созданием сделайте
	окно по умолчанию с помощью команды "Gui, GuiName:Default" или "Gui, New".

Name - Ваше уникальное имя для контрола. Имя не может быть числом.

Option - Опции определяющие определяемые клавиши, и поведение при этом.
	Указываем строку из возможных букв "KMLRJDSWZNG1", в любой последовательности и регистре:
	если не указано, то - "K".

	K - Определять клавиши клавиатуры
	M - Кнопки мыши без левой и правой.
	L - Левая кнопка мыши, для определения необходимо: при зажатой левой отпустить правую кнопку.
	R - Правая кнопка мыши, определяется при отпускании кнопки.
	J - Кнопки джойстика, определяются без модификаторов, и без опции W.

	N - 11 Numpad клавиш зависящих от состояния Numlock сохраняются по виртуальному коду. Без неё, как скан код, то есть сработают при любом состоянии Numlock.
		Желательно наличие или отсутствие этой опции во всех контролах внутри группы, так как при разнных опциях есть конфликт их сравнения при повторах.

	D - Определять модификаторы как левые и правые.
	S - Определять только одну нажатую клавишу, то есть без комбинации с модификаторами. С этим параметром опция "D" и "Z" не имеет смысла.
	W - Определять как двойной хоткей вида "RControl & RShift". С этим параметром опции "D", "Z" и "S" не имеют смысла. Первой в паре не может быть колёсико мыши и джойстик.
	Z - Можно задать обычный хоткей с модификаторами, или один модификатор.

	Gn - Указываем "G" и сразу за ней номер группы (целое положительное число больше нуля). В контролах из одной группы не могут быть назначены одинаковые ГК.
		При повторе, поле ввода очищается, те контролы в которых назначен аналогичный хоткей, обозначаются миганием.
		Можно получать сообщение в своей функции, о том в каких контролах было совпадение, см. спойлер "Обработка повторов в группах".
		Для страховки, при закрытии и\или показе окна с уже созданными контролами, можно запускать Hotkey_Group("CheckAll") для дополнительной проверки повторов.

	Двойной клик по контролу очищает определённые в нём клавиши.

Hotkey - Указываем хоткей для отображения в контроле, в данном случае читаем из файла.
	Hotkey должен быть вида: "<^vk57", или "+Space" и.т.п. а не как строка в контроле.
	Учтите, что указав свой хоткей в виде строки он не будет сохранён в ини файл.
	Вы можете после создания контрола использовать Hotkey_Write, или первым символом в хоткее указать ":",
	в этом случае запись будет произведена в ключ с именем указанным в Name, и только если путь и секция 
	уже сохранены в Hotkey_IniPath и Hotkey_IniSection.
	Также если путь и секция уже сохранены, можно передать Hotkey как символ "*", в этом случае  он будет
	прочитан с помощью Hotkey_Read с переданным вами именем во втором параметре (т.е. результат будет таким же как в этом примере). 
	Модификаторы указываются в порядке ^+!#.
	Как правильно указать клавишу, см. ссылку "Синтаксис указания хоткеев" в конце поста.

Func - Указываем имя функции которая в первом параметре принимает Name, во втором (необязательном) Hwnd контрола.
	Функция вызывается при вводе хоткея пользователем и после проверки повторов.

BindString - Вы можете сохранить для себя строку привязанную к контролу по его имени.

Hwnd - Вы можете указать имя своей переменной (без кавычек), для сохранения хэндла контрола. Но Вы всегда можете получить хэндл контрола из его имени - Hotkey_ID(имя).
	В этой версии сделано так, что хэндл контрола вам не должен понадобится, все обращения к функциям контролов производятся по имени.
*/

Hotkey_Add("w300", "MyHotkey1", "G1KD", Hotkey_Read("MyHotkey1"), "Save")
Hotkey_Add("wp y+10", "MyHotkey2", "G1KMLRJ", Hotkey_Read("MyHotkey2"), "Save")

; Демо контрол.
Gui, Add, Edit, Center vText wp
Gui, Show
Return

Save(Name) {
    ; Записываем в ини файл. Путь и секция используются из Hotkey_IniPath и Hotkey_IniSection которые указали в начале.
    ; Hotkey_Write возвращает то что записал.
	HotKey := Hotkey_Write(Name)
    ; Просто для демонстрации.
    GuiControl, , Text, % Name " = " HotKey
}

GuiClose() {
    ExitApp
}

Hotkey_BanKey("LAlt|RAlt")  ;	Запретить Alt для всех контролов

Hotkey_Read(Name, Section = "", FilePath = "")

Hotkey_Write(Name, Section = "", FilePath = "")

Hotkey_IniPath(Path)

Hotkey_IniSection(Section)

Hotkey_HKToSend(HK, Count = "")

MsgBox % Hotkey_HKToSend("~*$>^<+vk53") ; ^+{vk53}
MsgBox % Hotkey_HKToSend("^vk53") ; ^{vk53}
MsgBox % Hotkey_HKToSend("vk53") ; {vk53}
MsgBox % Hotkey_HKToSend("Enter") ; {Enter}
MsgBox % Hotkey_HKToSend("sc19 & Enter")  ; {sc19}{Enter}

Hotkey_HKToSendEx(HK, Count = "")

MsgBox % Hotkey_HKToSendEx("~*$>^<+vk53") ; {RCtrl Down}{LShift Down}{vk53}{RCtrl Up}{LShift Up}
MsgBox % Hotkey_HKToSendEx("^vk53") ; {LCtrl Down}{vk53}{LCtrl Up}
MsgBox % Hotkey_HKToSendEx("vk53") ; {vk53}
MsgBox % Hotkey_HKToSendEx("Enter") ; {Enter}
MsgBox % Hotkey_HKToSendEx("sc19 & Enter")  ;	{sc19 Down}{Enter Down}{sc19 Up}{Enter Up}

MsgBox % Hotkey_HKToStr(HK)

MsgBox % Hotkey_ID(ID)

Hotkey_Set(Name, Hotkey)

MsgBox % Hotkey_Arr("Hook")

MsgBox % Hotkey_Options(Name)

Hotkey_ChangeOption(Name, Option)

Hotkey_Delete(Name, Destroy = 1)

Hotkey_InitHotkeys(bool)

Hotkey_Arr("ResetAllways", True)  ; Запускать перед созданием контролов.

for name, hwnd in Hotkey_Arr("AllHotkeys")
	MsgBox % name "`n" hwnd 

MsgBox % Hotkey_Arr("BindString")[Name]

MsgBox % Hotkey_Value(Name)

MsgBox % Hotkey_ValueText(Name)

Hotkey_Arr("OnlyEngSym", True)  ; Запускать перед созданием контролов.

Hotkey_Arr("Empty", "Мой текст")  ; Запускать перед созданием контролов.

Hotkey_Arr("User")

Hotkey_KillFocus(Name = "")

Hotkey_SetFocus(Name)

Hotkey_Arr("KillFocus", true)  ; Запускать перед созданием контролов.

Hotkey_Move(Name, Option)

Hotkey_Disable(Name)

Hotkey_Hide(Name)

Hotkey_Arr("OnFocus", Func("OnFocusFunc"))

OnFocusFunc(name) { 
	MsgBox % name
}