#NoEnv
#SingleInstance Force
SetWinDelay -1
SetBatchLines -1
DetectHiddenWindows On
Menu, Tray, Icon, shell32.dll, 47
#MaxThreadsPerHotkey 1
/*
Скрипт для быстрого масштабирования писем в превью и редакторе FoxMail
Клавиши:
Колесико с зажатым Ctrl
"Серые" плюс и минус
Ctrl+= и Ctrl+-
*/
#IfWinActive ahk_class TFoxMainFrm.UnicodeClass ahk_exe Foxmail.exe
^WheelDown::
NumpadSub up::
^- up::Zoom("{Down 6}{Right}{Enter}")
^WheelUp::
NumpadAdd up::
^= up::Zoom("{Down 6}{Right}{Down}{Enter}")
#IfWinActive ahk_class TMailViewerForm.UnicodeClass ahk_exe Foxmail.exe
^WheelDown::
NumpadSub up::
^- up::Zoom("{End}{Up}{Right}{End}{Up}{Right}{Enter}")
^WheelUp::
NumpadAdd up::
^= up::Zoom("{End}{Up}{Right}{End}{Up}{Right}{Down}{Enter}")
Zoom(keys) {
Global
If (A_ThisHotkey~="Wheel")
Sleep 200
hwnd:=WinExist("A")
ControlFocus Chrome_WidgetWin_01
ControlClick TTBXButton1
WinWait ahk_class TTBXPopupWindow ahk_exe Foxmail.exe, , 1
WinHide ahk_class TTBXPopupWindow ahk_exe Foxmail.exe
SendInput % keys
WinHide ahk_class TTBXPopupWindow ahk_exe Foxmail.exe
Sleep 50
WinActivate ahk_id %hwnd%
ControlFocus Chrome_WidgetWin_01, ahk_id %hwnd%
Sleep 100
}
|
