#LButton:: ; Win+LButton - перетаскивание окна мышью (Win+RButton - возврат)
CoordMode, Mouse
MouseGetPos mx0, my0, win0
WinGetPos, x0, y0,,,% "ahk_id " win0
WinGet ws, MinMax, % "ahk_id " win0
If !ws
SetTimer win_update, 10
return
win_update:
If !GetKeyState("LButton","P")
{
SetTimer win_update, off
return
}
CoordMode, Mouse
MouseGetPos, mx, my
WinGetPos x, y, , , % "ahk_id " win0
dx:=mx-mx0, dy:=my-my0
SetWinDelay, -1
WinMove % "ahk_id " win0, ,% x+dx,% y+dy
mx0:=mx, my0:=my
return
#RButton::
KeyWait RButton
KeyWait LWin
If win0 && x0 && y0
WinMove % "ahk_id " win0,,% x0,% y0
return |
