Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Серый форум → Общение → AutoHotkey → АНК : (из Коллекци)Прокрутка окна под курсором мыши без активации окна
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
ссылка на Коллекцию
В TotalCommander-е есть свой просмотрщик - Lister (ahk_class TLister). При выключенном скрипте - колесико прокручивает текст. При включённом - не реагирует на колесо.
Да, есть окна, которые не реагируют. Смутно помню, что было какое-то решение для по крайней мере некоторых из них, и я его у себя пробовал. Но т.к. из-за него появлялись какие-то глюки с "нормальными" окнами, я от него отказался. В чём там была фишка и где я брал решение, к сожалению, напрочь забылось. Возможно, на англофоруме.
Альтернативное решение — настроить Windows так, чтобы окно активировалось при наведении курсора, но при этом не выходило на передний план.
Альтернативное решение — настроить Windows так, чтобы окно активировалось при наведении курсора, но при этом не выходило на передний план.
Про какую винду идет речь? В winXP таких настроек что-то не припомню.
Есть и в XP и в семёрке. Настраивается через реестр. Но сейчас не помню, это погуглить надо.
HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMaskREG_BINARY, изменить на 9F 3E 05 80.
+перезагрузка.
Или logout + login
Ух ты, даже не знал про неё! 
По идее, команда должна лишь уведомлять приложения о изменении переменных окружения.
Это не альтернатива - при работе скрипта, если в окне два списка, прокручивается тот список который под мышкой. В варианте teadrinker-а - прокручивается тот в котором стоит курсор.
Продолжаю про "не прокручивание с помощью скрипта" - а в чем там проблема? Lister не понимает SendMessage, 0x20A,..?
Вопрос озвученный выше в силе.
На windows 7 скрипт не работает в большинстве программ.
Я пользуюсь этим вариантом:
~*$WheelDown::
~*$WheelUp::
stringtrimleft,Wheel,A_ThisHotkey,3
keywait,%a_thishotkey%,L
if Wheell=0
return
mousegetpos,ctrlx,,win,ctrl
winget,id,id,A
if (win!=id)
{
if ctrl=
winactivate,ahk_id %win%
else
{
ControlGet,Style,Style,,%ctrl%,ahk_id %win%
if (Style & 0x00100000)
{
ControlGetPos,Xctrl,,ctrlW,,%ctrl%,ahk_id %win%
winGetPos,wx,,ww,,ahk_id %win%
ctrlxz:=ctrlx-(wx+Xctrl)
checks:=ctrlxz*100/ctrlW
if (checks>70 and checks<100)
{
if Wheel=WheelDown
loop,6
PostMessage,0x114,1,0,%ctrl%,ahk_id %win%
if Wheel=WheelUp
loop,6
PostMessage,0x114,0,0,%ctrl%,ahk_id %win%
}
else
{
if Wheel=WheelDown
PostMessage,0x115,1,0,%ctrl%,ahk_id %win%
if Wheel=WheelUp
PostMessage,0x115,0,0,%ctrl%,ahk_id %win%
}
}
else
{
if Wheel=WheelDown
PostMessage,0x115,1,0,%ctrl%,ahk_id %win%
if Wheel=WheelUp
PostMessage,0x115,0,0,%ctrl%,ahk_id %win%
}
}
}
else
{
ControlGet,Style,Style,,%ctrl%,ahk_id %id%
if (Style & 0x00100000)
{
ControlGetPos,Xctrl,,ctrlW,,%ctrl%,ahk_id %id%
winGetPos,wx,,ww,,ahk_id %id%
ctrlxz:=ctrlx-(wx+Xctrl)
checks:=ctrlxz*100/ctrlW
if (checks>70 and checks<100)
{
if Wheel=WheelDown
{
loop,6
PostMessage,0x114,1,0,%ctrl%,ahk_id %id%
PostMessage,0x115,0,0,%ctrl%,ahk_id %id%
}
if Wheel=WheelUp
{
loop,6
PostMessage,0x114,0,0,%ctrl%,ahk_id %id%
PostMessage,0x115,1,0,%ctrl%,ahk_id %id%
}
}
}
}
return
Возможно его можно оптимизировать...
Также есть возможность горизонтальной прокрутки если положение мыши в пределах 30 % от правого края контрола (не окна).
Есть только две проблемы:
1) Вращение ролика посылается и в активное окно тоже, можно конечно убрать "~*$", но тогда теряется способность нормально работать в других (некоторых) приложениях, которым нужна "чистая" передача вращения.
2) По той же причине при прокрутке горизонтальной полосы окна, окно прокручивается вверх и влево, вниз и вправо. Исправил возвратом окна вниз и вверх соответственно, но явно видны дерганья.
Если возможно исправить не убирая "~*$" буду очень благодарен.
Возможно добавить ускорение прокрутки.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
