PageRenderTime 44ms CodeModel.GetById 19ms RepoModel.GetById 1ms app.codeStats 0ms

/ahk_scripts/tools/lib/EasyWindowDrag.ahk

http://github.com/jixiuf/my_autohotkey_scripts
AutoHotKey | 45 lines | 31 code | 3 blank | 11 comment | 3 complexity | 0e5d98aa794c51f6e270113e60369377 MD5 | raw file
Possible License(s): GPL-3.0 
    

  1. ; Easy Window Dragging (requires XP/2k/NT)

    2. 

  2. ; http://www.autohotkey.com

    3. 

  3. ; Normally, a window can only be dragged by clicking on its title bar.

    4. 

  4. ; This script extends that so that any point inside a window can be dragged.

    5. 

  5. ; To activate this mode, hold down CapsLock or the middle mouse button while

    6. 

  6. ; clicking, then drag the window to a new position.

    7. 

  7. 

    8. 

  8. ; Note: You can optionally release Capslock or the middle mouse button after

    9. 

  9. ; pressing down the mouse button rather than holding it down the whole time.

    10. 

  10. ; This script requires v1.0.25+.

    11. 

  11. 

    12. 

  12. ~MButton & LButton::

    13. 

  13. CapsLock & LButton::

    14. 

  14. CoordMode, Mouse  ; Switch to screen/absolute coordinates.

    15. 

  15. MouseGetPos, EWD_MouseStartX, EWD_MouseStartY, EWD_MouseWin

    16. 

  16. WinGetPos, EWD_OriginalPosX, EWD_OriginalPosY,,, ahk_id %EWD_MouseWin%

    17. 

  17. WinGet, EWD_WinState, MinMax, ahk_id %EWD_MouseWin% 

    18. 

  18. if EWD_WinState = 0  ; Only if the window isn't maximized 

    19. 

  19. 	SetTimer, EWD_WatchMouse, 10 ; Track the mouse as the user drags it.

    20. 

  20. return

    21. 

  21. 

    22. 

  22. EWD_WatchMouse:

    23. 

  23. GetKeyState, EWD_LButtonState, LButton, P

    24. 

  24. if EWD_LButtonState = U  ; Button has been released, so drag is complete.

    25. 

  25. {

    26. 

  26. 	SetTimer, EWD_WatchMouse, off

    27. 

  27. 	return

    28. 

  28. }

    29. 

  29. GetKeyState, EWD_EscapeState, Escape, P

    30. 

  30. if EWD_EscapeState = D  ; Escape has been pressed, so drag is cancelled.

    31. 

  31. {

    32. 

  32. 	SetTimer, EWD_WatchMouse, off

    33. 

  33. 	WinMove, ahk_id %EWD_MouseWin%,, %EWD_OriginalPosX%, %EWD_OriginalPosY%

    34. 

  34. 	return

    35. 

  35. }

    36. 

  36. ; Otherwise, reposition the window to match the change in mouse coordinates

    37. 

  37. ; caused by the user having dragged the mouse:

    38. 

  38. CoordMode, Mouse

    39. 

  39. MouseGetPos, EWD_MouseX, EWD_MouseY

    40. 

  40. WinGetPos, EWD_WinX, EWD_WinY,,, ahk_id %EWD_MouseWin%

    41. 

  41. SetWinDelay, -1   ; Makes the below move faster/smoother.

    42. 

  42. WinMove, ahk_id %EWD_MouseWin%,, EWD_WinX + EWD_MouseX - EWD_MouseStartX, EWD_WinY + EWD_MouseY - EWD_MouseStartY

    43. 

  43. EWD_MouseStartX := EWD_MouseX  ; Update for the next timer-call to this subroutine.

    44. 

  44. EWD_MouseStartY := EWD_MouseY

    45. 

  45. return

    46. 

  46.