fuji
Joined: 03 May 2010 Posts: 1
|
(Separately) Posted: Mon May 03, 2010 07:59 Post subject: Автоактивация вкладок |
|
|
Здравствуйте. Что нужно изменить в этом куске 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
} |
|
Andrey_A
Joined: 10 Apr 2009 Posts: 394 Location: Сочи
|
(Separately) Posted: Mon May 03, 2010 14:08 Post subject: |
|
|
Я не силён в скриптах, но у меня в библиотеки есть .ahk скрипт "Прокрутка колесом мыши вкладок TC". Может это то что нужно, в 7.5а работает Code: | #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 |
|
|