АК
https://youtu.be/ZEpaQeMtXn0
Size: a a a
АК
OK
#if WinActive("ahk_exe InDesign.exe")
WheelUp:: Send "!{WheelUp}" ;zoom+
WheelDown:: Send "!{WheelDown}" ;zoom-
OK
Mouse(keys*) {
loopKeys(action) {
loop keys.Length()
Send "{" keys[A_Index] " " action "}"
}
MouseGetPos X1, Y1
loopKeys "down"
KeyWait RegexReplace(RegexReplace(A_ThisHotkey, "^.* ", ""), "^[!+^#~]*", "") ;ltrim hotkey
loopKeys "up"
MouseGetPos X2, Y2
if X1 = X2 and Y1 = Y2
Send "{" A_ThisHotkey "}"
}
#if WinActive("ahk_exe InDesign.exe")
MButton:: Mouse "Space", "LButton" ;pan
OK
OK
AP
EC
EC
;AHK v1
#2::WPA_MoveMouseToMonitor(1)
#1::WPA_MoveMouseToMonitor(2)
WPA_MoveMouseToMonitor(md) {
SysGet, mc, MonitorCount
if (md<1 or md>mc)
Return
Loop, %mc%
SysGet, mon%A_Index%, MonitorWorkArea, %A_Index%
;Destination monitor
mdx := mon%md%Left
mdy := mon%md%Top
mdw := mon%md%Right - mdx
mdh := mon%md%Bottom - mdy
mdxc := mdx+mdw/2, mdyc := mdy+mdh/2
CoordMode, Mouse, Screen
MouseMove, mdxc, mdyc, 0
}
VL
;AHK v1
#2::WPA_MoveMouseToMonitor(1)
#1::WPA_MoveMouseToMonitor(2)
WPA_MoveMouseToMonitor(md) {
SysGet, mc, MonitorCount
if (md<1 or md>mc)
Return
Loop, %mc%
SysGet, mon%A_Index%, MonitorWorkArea, %A_Index%
;Destination monitor
mdx := mon%md%Left
mdy := mon%md%Top
mdw := mon%md%Right - mdx
mdh := mon%md%Bottom - mdy
mdxc := mdx+mdw/2, mdyc := mdy+mdh/2
CoordMode, Mouse, Screen
MouseMove, mdxc, mdyc, 0
}
EC
EC
VL
EC
OK
OK
EC
OK
OK
AP
OK