Серый форум — AHK: Замена стандартного элемента управления "Hotkey"

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-10-19T14:50:00Z

Нет, просто чтобы туда не печатался текст, зачем память есть.

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-10-19T14:21:55Z

serzh82saratov Так на много лучше. А главное, что универсально работает, что не может не радовать? А ReadOnly необходимо, чтобы фокус сразу шёл сюда?

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-10-19T13:26:31Z

Vitalkerrain пишет:

Вот это вообще прикол, не догадался бы

Ещё +ReadOnly надо, я добавил в примере выше.

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-10-19T13:14:43Z

Выложил новую версию, костыли не нужны. Добавил OnFocus, в данном случае полезно для сброса таймера.


#SingleInstance Force
#NoEnv
#UseHook
#IF !Hotkey_Arr("Hook")
#IF

Hotkey_Arr("OnFocus", Func("OnFocusFunc"))  
Hotkey_IniPath("Hotkey.ini")
Hotkey_IniSection("Hotkeys")

Gui, Color, 0xFFDD8A, 0xFFFFAA
Gui, Font, s12
Gui, Add, Tab, x0 y0 w233 h25 -Wrap vTabMain , Основная|Дополнительная

Gui, Tab, Основная
Gui, Add, Edit, x0 y0 w0 h0 +ReadOnly  ; Добавлено только чтобы при включении вкладки фокус не был на хоткее, можно убрать
Gui, Add, Text, cRed x10 y50, Press %A_Index%:
Hotkey_Add("x90 y50 w400 cRed Section", "Press" A_Index, "G1KMLRJD", "*", "FuncPress", "Send" A_Index)
Gui, Add, Text, x10 y90, Send %A_Index%:
Hotkey_Add("x90 y90 w400", "Send" A_Index, "KMLRJ", "*", "FuncSend") 
Gui, Add, GroupBox, wp+100 h14 y+10 xm
Gui, Add, Edit, wp y+20 r10
FuncPress("Press" A_Index), FuncSend("Send" A_Index)

Gui, Tab, Дополнительная
Gui, Add, Edit, x0 y0 w0 h0 +ReadOnly  ; Добавлено только чтобы при включении вкладки фокус не был на хоткее, можно убрать
Gui, Add, Text, cRed x10 y50, Press 1:
Hotkey_Add("x90 y50 w400 cRed Section", "Press" 1, "G1KMLRJD", "*", "FuncPress", "Send" 1)
Gui, Add, Text, x10 y90, Send 1:
Hotkey_Add("x90 y90 w400", "Send" 1, "KMLRJ", "*", "FuncSend") 
Gui, Add, GroupBox, wp+100 h14 y+10 xm
Gui, Add, Edit, wp y+20 r10 
FuncPress("Press" 1), FuncSend("Send" 1)

Gui, Show 
return 

FuncPress(name) {
	Static PrKey := {}  
	SetTimer, Hotkey_KillFocus, -500  
	Hotkey, IF, !Hotkey_Arr("Hook")
	Hotkey, % PrKey[name], Off, UseErrorLevel
	PrKey[name] := Hotkey_Write(name)  
	fn := Func("ActionPress").Bind(Hotkey_Arr("BindString")[Name]) 
	Hotkey, % PrKey[name], % fn, On, UseErrorLevel 
	Hotkey, IF
}

OnFocusFunc(name) { 
	SetTimer, Hotkey_KillFocus, -500
}

FuncSend(name) { 
	SetTimer, Hotkey_KillFocus, -500  
	Hotkey_Arr("User")["StrSend_" name] := Hotkey_HKToSend(Hotkey_Write(name)) 
}

ActionPress(name) {  
	SendInput % Hotkey_Arr("User")["StrSend_" name]
}

GuiClose() {
    ExitApp
}

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-10-19T12:27:10Z

serzh82saratov Я думаю это нужно добавить в шапку, это просто гениально ещё раз огромная вам благодарность.
Вот это вообще прикол, не догадался бы

Gui, Add, Edit, x0 y0 w0 h0  ; Добавлено только чтобы при включении вкладки фокус не был на хоткее

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-10-19T12:22:41Z

Vitalkerrain пишет:

а вот если бы было много табов, тем боле внутри друг друга, то думаю уже было бы сложнее выкручиваться.

Хотя нет, костыль можно упростить.


#SingleInstance Force
#NoEnv
#UseHook
#IF !Hotkey_Arr("Hook")
#IF
 
Hotkey_IniPath("Hotkey.ini")
Hotkey_IniSection("Hotkeys")

Gui, +HwndhGui
Gui, Color, 0xFFDD8A, 0xFFFFAA
Gui, Font, s12
Gui, Add, Tab, x0 y0 w233 h25 -Wrap vTabMain , Основная|Дополнительная

Gui, Tab, Основная
Gui, Add, Edit, x0 y0 w0 h0  ; Добавлено только чтобы при включении вкладки фокус не был на хоткее, можно убрать
Gui, Add, Text, cRed x10 y50, Press %A_Index%:
Hotkey_Add("x90 y50 w400 cRed Section", "Press" A_Index, "G1KMLRJD", "*", "FuncPress", "Send" A_Index)
Gui, Add, Text, x10 y90, Send %A_Index%:
Hotkey_Add("x90 y90 w400", "Send" A_Index, "KMLRJ", "*", "FuncSend") 
Gui, Add, GroupBox, wp+100 h14 y+10 xm
FuncPress("Press" A_Index), FuncSend("Send" A_Index)й
Gui, Add, Edit, wp y+20 r10

Gui, Tab, Дополнительная
Gui, Add, Edit, x0 y0 w0 h0  ; Добавлено только чтобы при включении вкладки фокус не был на хоткее, можно убрать
Gui, Add, Text, cRed x10 y50, Press 1:
Hotkey_Add("x90 y50 w400 cRed Section", "Press" 1, "G1KMLRJD", "*", "FuncPress", "Send" 1)
Gui, Add, Text, x10 y90, Send 1:
Hotkey_Add("x90 y90 w400", "Send" 1, "KMLRJ", "*", "FuncSend") 
Gui, Add, GroupBox, wp+100 h14 y+10 xm
FuncPress("Press" 1), FuncSend("Send" 1)
Gui, Add, Edit, wp y+20 r10

Gui, Tab 
Gui, Add, Text, x0 y0 w0 h0 Hidden hwndhDummy
Hotkey_Arr("Focus")[hGui] := hDummy

Gui, Show 
SetTimer, Terminator, 500 ; Специально мало поставил, чтобы быстрее отслеживать
return 

Terminator() {
	Hotkey_KillFocus()
}

FuncPress(name) {
	Static PrKey := {}  
	Hotkey, IF, !Hotkey_Arr("Hook")
	Hotkey, % PrKey[name], Off, UseErrorLevel
	PrKey[name] := Hotkey_Write(name)  
	fn := Func("ActionPress").Bind(Hotkey_Arr("BindString")[Name]) 
	Hotkey, % PrKey[name], % fn, On, UseErrorLevel 
	Hotkey, IF
}

FuncSend(name) { 
	Hotkey_Arr("User")["StrSend_" name] := Hotkey_HKToSend(Hotkey_Write(name)) 
}

ActionPress(name) {  
	SendInput % Hotkey_Arr("User")["StrSend_" name]
}

GuiClose() {
    ExitApp
}

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-10-19T12:08:00Z

Так ещё исправьте.


Terminator() {
	ControlGetFocus, ControlNN, A
	ControlGet, hFocus, Hwnd, , %ControlNN%, A 
	If (Hotkey_ID(hFocus) = "")
		Return
	GuiControlGet, FocusTab,, TabMain 
	GuiControl, Focus, % FocusTab = "Основная" ? "Dummy3" : FocusTab = "Дополнительная" ? "Dummy3" : ""
}

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-10-19T12:07:13Z

serzh82saratov Действительно работает, благодарю. Для моего случая в принципе должно хватить, а вот если бы было много табов, тем боле внутри друг друга, то думаю уже было бы сложнее выкручиваться. Странно конечно работают TAB в AHK.

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-10-19T12:01:00Z

Пока только могу предложить костыль в вашем коде.
Навскидку не вспомню как определять принадлежность контрола к вкладке.


#SingleInstance Force
#NoEnv
#UseHook
#IF !Hotkey_Arr("Hook")
#IF
 
Hotkey_IniPath("Hotkey.ini")
Hotkey_IniSection("Hotkeys")

Gui, Color, 0xFFDD8A, 0xFFFFAA
Gui, Font, s12
Gui, Add, Tab, x0 y0 w233 h25 -Wrap vTabMain , Основная|Дополнительная
Gui, Tab, Основная
	Gui, Add, Text, 0 0 0 0 Hidden vDummy1
Gui, Add, Text, cRed x10 y50, Press %A_Index%:
	Hotkey_Add("x90 y50 w400 cRed Section", "Press" A_Index, "G1KMLRJD", "*", "FuncPress", "Send" A_Index)
	Gui, Add, Text, x10 y90, Send %A_Index%:
	Hotkey_Add("x90 y90 w400", "Send" A_Index, "KMLRJ", "*", "FuncSend") 
	Gui, Add, GroupBox, wp+100 h14 y+10 xm
	FuncPress("Press" A_Index), FuncSend("Send" A_Index)
	Gui, Add, Edit, wp y+20 r10
Gui, Tab, Дополнительная
	Gui, Add, Text, 0 0 0 0 Hidden vDummy2
Gui, Add, Text, cRed x10 y50, Press 1:
	Hotkey_Add("x90 y50 w400 cRed Section", "Press" 1, "G1KMLRJD", "*", "FuncPress", "Send" 1)
	Gui, Add, Text, x10 y90, Send 1:
	Hotkey_Add("x90 y90 w400", "Send" 1, "KMLRJ", "*", "FuncSend") 
	Gui, Add, GroupBox, wp+100 h14 y+10 xm
	FuncPress("Press" 1), FuncSend("Send" 1) 
Gui, Add, Edit, wp y+20 r10
Gui, Show
Terminator()
return 

Terminator() { 
	GuiControlGet, FocusTab,, TabMain 
	GuiControl, Focus, % FocusTab = "Основная" ? "Dummy1" : FocusTab = "Дополнительная" ? "Dummy2" : ""
}
FuncPress(name) {
	SetTimer, Terminator, 500 ; Специально мало поставил, чтобы быстрее отслеживать
	Static PrKey := {}  
	Hotkey, IF, !Hotkey_Arr("Hook")
	Hotkey, % PrKey[name], Off, UseErrorLevel
	PrKey[name] := Hotkey_Write(name)  
	fn := Func("ActionPress").Bind(Hotkey_Arr("BindString")[Name]) 
	Hotkey, % PrKey[name], % fn, On, UseErrorLevel 
	Hotkey, IF
}

FuncSend(name) { 
	Hotkey_Arr("User")["StrSend_" name] := Hotkey_HKToSend(Hotkey_Write(name)) 
}

ActionPress(name) {  
	SendInput % Hotkey_Arr("User")["StrSend_" name]
}

GuiClose() {
    ExitApp
}

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-10-19T11:01:04Z

Уважаемый serzh82saratov, испытываю трудность с фокусом на разных ТАБах, если на первой вкладке фокус снимается, то на второй уже нет. Пробовал и Tab3, тоже самое. Это можно как-то пофиксить? Краткий код прилагаю

#Include Hotkey.Ahk

#SingleInstance Force
#NoEnv
#UseHook
#IF !Hotkey_Arr("Hook")
#IF
 
Hotkey_IniPath("Hotkey.ini")
Hotkey_IniSection("Hotkeys")

Gui, Color, 0xFFDD8A, 0xFFFFAA
Gui, Font, s12
Gui, Add, Tab, x0 y0 w233 h25 -Wrap vTabMain , Основная|Дополнительная
Gui, Tab, Основная
Gui, Add, Text, cRed x10 y50, Press %A_Index%:
	Hotkey_Add("x90 y50 w400 cRed Section", "Press" A_Index, "G1KMLRJD", "*", "FuncPress", "Send" A_Index)
	Gui, Add, Text, x10 y90, Send %A_Index%:
	Hotkey_Add("x90 y90 w400", "Send" A_Index, "KMLRJ", "*", "FuncSend") 
	Gui, Add, GroupBox, wp+100 h14 y+10 xm
	FuncPress("Press" A_Index), FuncSend("Send" A_Index)
	Gui, Add, Edit, wp y+20 r10
Gui, Tab, Дополнительная
Gui, Add, Text, cRed x10 y50, Press 1:
	Hotkey_Add("x90 y50 w400 cRed Section", "Press" 1, "G1KMLRJD", "*", "FuncPress", "Send" 1)
	Gui, Add, Text, x10 y90, Send 1:
	Hotkey_Add("x90 y90 w400", "Send" 1, "KMLRJ", "*", "FuncSend") 
	Gui, Add, GroupBox, wp+100 h14 y+10 xm
	FuncPress("Press" 1), FuncSend("Send" 1)
Gui, Add, Edit, wp y+20 r10
Gui, Show
Terminator()
return 
Terminator() {
		Hotkey_KillFocus(Name)
}
FuncPress(name) {
	SetTimer, Terminator, 500 ; Специально мало поставил, чтобы быстрее отслеживать
	Static PrKey := {}  
	Hotkey, IF, !Hotkey_Arr("Hook")
	Hotkey, % PrKey[name], Off, UseErrorLevel
	PrKey[name] := Hotkey_Write(name)  
	fn := Func("ActionPress").Bind(Hotkey_Arr("BindString")[Name]) 
	Hotkey, % PrKey[name], % fn, On, UseErrorLevel 
	Hotkey, IF
}

FuncSend(name) { 
	Hotkey_Arr("User")["StrSend_" name] := Hotkey_HKToSend(Hotkey_Write(name)) 
}

ActionPress(name) {  
	SendInput % Hotkey_Arr("User")["StrSend_" name]
}

GuiClose() {
    ExitApp
}

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-08-07T20:53:46Z

При опции Edit r1, высота не действительна, если r1 удалить, ну в общем сами увидите, советую просто увеличить шрифт, тогда в соответствии с ним будет выстроена высота Edit.


Gui, Add, Edit, h88 r1
Gui, Show
Return

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-08-07T13:32:29Z

Уважаемый serzh82saratov А можно ли как-то пофиксить параметр высоты у кнопок? "h" он просто не работает при любых значениях, а с шириной всё нормально.

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-08-04T15:59:07Z

serzh82saratov пишет:

более тут упростить нечего

ТА-ДА

#Include Hotkey.Ahk
#NoEnv
#SingleInstance Force
Hotkey_Arr("OnlyEngSym", True)
Gui, +AlwaysOnTop
Hotkey_IniPath(A_ScriptDir "\Hotkey.ini"), Hotkey_IniSection("Hotkeys")
Hotkey_Add("w300", "MyHotkey1", "G1KD", "*", "Save")
Hotkey_Add("wp y+10", "MyHotkey2", "G1KMLRJ", "*", "Save")
Hotkey_Add("wp y+10", "MyHotkey3", "G1KMLRJ", "*", "Save")
Gui, Show
Save(name)
Return

Save(name) {
	for name in Hotkey_Arr("AllHotkeys") {
			Static PrKey := {}  
			Hotkey, % PrKey[name], Off, UseErrorLevel
				PrKey[name] := Hotkey_Write(name) 
			Hotkey, % PrKey[name], L_%name%, On , UseErrorLevel 
			}
		Sleep, 2500
			Hotkey_KillFocus(Name)
}

GuiClose() {
    ExitApp
}
L_MyHotkey1:
Send, % Hotkey_HKToSend(Hotkey_Value("MyHotkey2"))
Sleep, 75
Send, % Hotkey_HKToSend(Hotkey_Value("MyHotkey3"))
	Return
	
L_MyHotkey2:
Send, % Hotkey_HKToSend("Enter")
	Return

L_MyHotkey3:
Send, % Hotkey_HKToSend(Hotkey_Value("MyHotkey1"))
	Return

Отталкиваясь от ваших постов.

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-08-04T15:33:24Z

Если ещё есть вопросы, задавайте.

Re: AHK: Замена стандартного элемента управления "Hotkey"

2020-08-04T15:28:01Z

serzh82saratov И на том спасибо)