Страница 1 из 1
Автоактивация вкладок
Добавлено: Пн май 03, 2010 07:59
fuji
Здравствуйте. Что нужно изменить в этом куске AHK-скрипта, чтобы он заработал в TC 7.5, т.е. активировал бы вкладки при наведении на них курсора. Заранее спасибо.
; Tabs (Total Commander & system tabs)
else if (ctl = "TMyPanel3") or (ctl = "TMyPanel7") or (ctl = "WindowsForms10.Window.8.app.0.378734a2") or (ctl = "SysTabControl321")
{
Click
return
}
Добавлено: Пн май 03, 2010 14:08
Andrey_A
Я не силён в скриптах, но у меня в библиотеки есть .ahk скрипт "Прокрутка колесом мыши вкладок TC". Может это то что нужно, в 7.5а работает
Код: Выделить всё
#SingleInstance force
; Запуск приложения
;Run, TOTALCMD.EXE
; Ожидание открытия окна
WinWait, ahk_class TTOTAL_CMD
; Запуск таймера для проверки существования процесса
SetTimer, CheckTC, On
WheelUp::
WheelDown::
MouseGetPos, MouseX, MouseY, WinID, ControlNN, 1
WinGetClass, WinClass, % "ahk_id " WinID
; Прокрутка колесом мыши вкладок TC
If (WinClass = "TTOTAL_CMD" && RegExMatch(ControlNN, "TMyTabControl[12]"))
{ PostMessage, 1075, % TC_Cmd := "400" (ControlNN = "TMyTabControl1" ? "1" : "2"), 0,, % "ahk_class " WinClass
PostMessage, 1075, % TC_Cmd := "300" (A_ThisHotkey = "WheelDown" ? "5" : "6"), 0,, % "ahk_class " WinClass
}
; Прокрутка окна под курсором мыши без активации
Else, PostMessage 0x20A, ((A_ThisHotKey="WheelUp")-.5)*A_EventInfo*(120<<17),(MouseY<<16)|MouseX, % ControlNN, % "ahk_id " WinID
Return
CheckTC:
Process, Exist, TOTALCMD.EXE
If !ErrorLevel
ExitApp
Return