AutoHotkey: ScrollLock functionality

; Total Commander:
; Scroll without moving the cursor if ScrollLock is turned on.
;

$Down:: TCScroll( 1 )
$Up:: TCScroll( 0 )

TCScroll( xnDirecton )
{
	GetKeyState, sScrollLockState, ScrollLock, T

	if (not WinActive( "ahk_class TTOTAL_CMD" )) or (sScrollLockState != "D")
	{
		if (xnDirecton = 1)
			Send {Down}
		else
			Send {Up}
		Return
	}

	ControlGetFocus sActivePanel, A
	PostMessage 0x115, xnDirecton, 0, %sActivePanel%, A
	Return
}

Back to AutoHotkey