Como eu faço o Auto Hotkey converter “RButton para baixo, ação Mousewheel, RButton para cima” em “MButton para baixo, Mouse para cima e para baixo, MButton para cima” "

Question

Eu tenho um programa que aplica zoom ao pressionar MButton enquanto movo o mouse para cima e para baixo.

Como isso parece um pouco estranho para mim, decidi usar o AHK para permitir que este programa seja ampliado quando a roda do mouse é girada enquanto o RButton está pressionado.

Esta é a minha ideia não funcional (comentou outra abordagem não funcional):

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#Warn  ; Recommended for catching common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
SetTitleMatchMode, 1 ; 1: A window's title must start with the specified WinTitle to be a match.

#IfWinActive Zooming Viewer
~RButton & WheelDown::
    Click, up, right
    Click, down, middle
    Click, Rel, 0, 10, 0
    Click, up, middle
    Click, down, right
~RButton & WheelUp::
    Click, up, right
    Click, down, middle
    Click, Rel, 0, -10, 0
    Click, up, middle
    Click, down, right

;   MouseClick, R, , , , , U
;   MouseClick, M, , , , , D
;   MouseClick, , 0, -10, , , , R
;   MouseClick, M, , , , , U
;   MouseClick, R, , , , , D

Obrigado por qualquer sugestão para deixar-me começar este trabalho, Peter

    

Answer 1

Obrigado, Mikhail V. Essa foi a sugestão correta, o que nos levou a fundar o Ctrl-Wheel . Em segundo lugar, alterar SendMode para "Evento" oferece estabilidade adicional. Em terceiro lugar, "retorno" ajuda a isolar as duas direções de zoom.

Então, isso funciona:

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#Warn  ; Recommended for catching common errors.
SendMode Event
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
SetTitleMatchMode, 1 ; 1: A window's title must start with the specified WinTitle to be a match.

#IfWinActive Zooming Viewer
~RButton & WheelDown::
    Send {Ctrl Down} {WheelUp} {Ctrl Up}
    return
~RButton & WheelUp::
    Send {Ctrl Down} {WheelDown} {Ctrl Up}
    return