Mouse scroll

[mikhail22]

Here I want to share the Mouse Scroll script that I wrote.
I keep the sources on Github and update regularly.

Please see the link for downloads and full description:
https://github.com/Mikhail22/Autohotkey---Mouse-scroll

So, in short it is a simple app which adds very nice mouse scroll functionality, system-wide.
I have chosen the right mouse button for toggling the scrolling, since it turns out that there is
no better option, at least for a traditional 2-button mouse.
It work super fine in Firefox with smooth scrolling enabled, and in GUI elements that scroll smoothly,
like e.g. Windows 10 main menu app list.
Actually works great with non-smooth scrolling as well.

To scroll, hold the right button and move the mouse vertically.
For the context menu, double-click the right mouse button.

Options that can be set (via editing variables in the source):

- speed adjustment
- invert scroll direction
- double right-click delay threshold (to open the context menu)


Feel free to comment and suggest improvements!

Currently I have only one minor problem with it - in order to work correctly, the app must be
run as two separate scripts - one that blocks the right mouse button and another one - main app.
I was trying hard to make it one script, but it never worked correctly - if I put the code that blocks
the right button into the main app, there appear some glitches, namely the rbutton is not blocked
completely: 1 of 10 times the rbutton event still leaks and opens the context menu.
Only putting it into a separate file solved it.
So it is a minor inconvenience for potential users, as they need to keep 2 scripts running.
Maybe experts can suggest some clever way to reliably block the rbutton from tmain app.

---

Update: 25 March 2019

Check out updated version on github. Major improvement to scrolling experience:
now it works much better by lower scroll speed (k) and in general, more precise and smooth.
Thanks to derekpock, who suggested this fix and made a PR on github.

[adegard]

thanks for sharing @mikhail22
I tried it and found it very usefull! especially on touchpad..

Spoiler

[EDIT] : you don't need 3 files, but only one:
- mouse-scroll-v02.ahk.
- I prefer don't block rbutton, I used "Shift" key instead is great
- I prefer put direction movement same as scroll (so false)

Code: Select all

/*
Mouse Scroll v.02 
by Mikhail V., 2018 
tested on Windows 10, AHK 1.1.28

Note: this app uses right mouse button to toggle the scroll, so the rbutton must be blocked
(see rbutton-block.ahk) to prevent the context menu popup. 
To invoke the context menu, use double-Rightclick, or Ctrl-Rightclick.

== Usage ==
Press and hold the right mouse button and move the mouse vertically.
To set another key: see line 
>    pan := getkeystate("rbutton", "P")
To swap the scroll direction: see line
>    swap := false
*/


#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetStoreCapsLockMode, Off
; install mouse hook - it is needed to read the physical state 
; of the mouse button if it is blocked by another thread
#InstallMouseHook

Menu, tray, icon, %A_WinDir%\system32\shell32.dll, 15

; block the right mouse button
;rbutton::return

; min function
min(a, b) {
	if (b < a) {
		return b
	}
	return a
}

; scroll function : d = direction, n = amount of scrolls
scroll(d, n) {
	if (d = 1) {
		send, {wheeldown %n% } 
	}
	if (d = 0) {
		send, {wheelup %n%} 
	}
}

; === SETTINGS ===
k := 0.2						; scroll speed coefficient (higher k = more speed)
T := 300						; double-Rightclick threshold, millseconds
swap := false 					; swap scroll direction
; swap := false 
movelimit := 15				; max amount of scroll at once (better leave as is)
; ==============

mousegetpos, , Yp									; get mouse Y position
panp := getkeystate("Shift", "P")					; save key state / set the key used to scroll
tikp := A_TickCount									; save time

loop 
{
	sleep 30
	pan := getkeystate("Shift", "P")				; set the key used to scroll
	pan_on := (pan > panp)							; check if key state is changed 
	panp := pan
	; tooltip %pan%
	mousegetpos, , Y									; get current mouse position Y
	dY := k * (Y - Yp)								; relative mouse movement
	Yp := Y											; save Y position
	moves := min(floor(abs(dY)), movelimit)			; amount of scroll events per once
	direct := (dY >= 0) ^ swap						; get direction
	; tooltip,  %direct% , %dY%	
	if (pan = true) {
		scroll(direct, moves)
	}
	/*
	; ===  context menu on double-Rightclick
	if (pan_on = true) {
		tik := A_TickCount							; get current time
		dt := tik - tikp								; get time past from previous r-click
		tikp := tik										; save current time in a temp variable
		if (dt < T) {
			send {rbutton}
		}
	}
    */
	 
}


; +esc:: exitapp

[mikhail22]

you don't need 3 files, but only one:
- mouse-scroll-v02.ahk.
- I prefer don't block rbutton, I used "Shift" key instead is great

Yes, if you use other button and there is no conflict, only the main script is needed.
Though using mouse button has one big benefit - one hand operation. E.g. just browsing
usually don't need much keybord input, so most of the time my left hand is free.