GridMove/other/DoubleClickDrag.ahk
2013-02-22 09:58:19 +00:00

46 lines
940 B
AutoHotkey

;SCRIPTNAME!
;By jgpaiva
;date:
;Function:
#SingleInstance, Force
#InstallMouseHook
CoordMode,Mouse,Screen
settimer, FirstStep, 100
return
FirstStep:
GetKeyState, State, LButton, P
If State = U
{
return
}
SecondStep:
KeyWait, LButton, T0.2
If errorlevel = 1
return
KeyWait, LButton, D T0.2
If errorlevel = 1
return
Send,{LButton up}
MouseGetPos, OldMouseX, OldMouseY
Loop
{
GetKeyState, State, LButton, P
If State = U
break
MouseGetPos, MouseX, MouseY
WinGetPos,WindowX, WindowY,,,A
;tooltip,% "MouseX: " . MouseX . " MouseY: " . MouseY . "`nWindowX: " . WindowX . " WindowY: " . WindowY . "`nmouseX - oldmouseX: " . mouseX - oldmouseX
WinMove, A,, % WindowX + MouseX - OldMouseX, % WindowY + MouseY - OldMouseY
OldMouseX := MouseX
OldMouseY := MouseY
}
Tooltip,
Goto, FirstStep