AutoHotkey Community

;___________________________________________
;______Add Scroll Support   -  Rajat________


#SingleInstance force
CoordMode, ToolTip, Screen
SetDefaultMouseSpeed, 0
SetMouseDelay, -1




lines = 3


ToolTip, Control+Left click on Scroll-Up button, 1, 1
Hotkey, ^lbutton, up


exit


up:
   Loop
   {
      GetKeyState, State, LButton
      if State = U
         Break
      Sleep, 10
   }
   Hotkey, ^lbutton, down
   MouseGetPos, upX, upY
   WinGet, winID, ID, A
   ToolTip, Control+Left click on Scroll-Down button, 1, 1
Return

down:
   Hotkey, ^lbutton, off
   MouseGetPos, dnX, dnY
   ToolTip
   Hotkey, ~WheelDown, ScrDn
   Hotkey, ~WheelUp, ScrUp
Return

ScrDn:
   IfWinNotExist, ahk_id %winID%,, ExitApp
   IfWinNotActive, ahk_id %winID%,, Return
   MouseGetPos, X, Y
   MouseClick, L, %dnX%, %dnY%, %lines%
   MouseMove, %X%, %Y%
Return

ScrUp:
   IfWinNotExist, ahk_id %winID%,, ExitApp
   IfWinNotActive, ahk_id %winID%,, Return
   MouseGetPos, X, Y
   MouseClick, L, %upX%, %upY%, %lines%
   MouseMove, %X%, %Y%
Return

;___________________________________________
;______Add Scroll Support   -  Rajat________


#SingleInstance force
CoordMode, ToolTip, Screen
SetDefaultMouseSpeed, 0
SetMouseDelay, -1




lines = 3


ToolTip, Control+Left click on window (control) to scroll), 1, 1
Hotkey, ^lbutton, select
exit


select:
   Loop
   {
      GetKeyState, State, LButton
      if State = U
         Break
      Sleep, 10
   }
   Hotkey, ^lbutton, off
   WinGet, winID, ID, A
   ControlGetFocus, control, A
   ToolTip
   Hotkey, ~WheelDown, ScrDn
   Hotkey, ~WheelUp, ScrUp
Return


ScrUp:
   IfWinNotExist, ahk_id %winID%,, ExitApp
   IfWinNotActive, ahk_id %winID%,, Return
   Loop, %lines%
      SendMessage, 0x115, 0, 0, %control%, ahk_id %winID%
Return

ScrDn:
   IfWinNotExist, ahk_id %winID%,, ExitApp
   IfWinNotActive, ahk_id %winID%,, Return
   Loop, %lines%
      SendMessage, 0x115, 1, 0, %control%, ahk_id %winID%
Return