diff options
| -rw-r--r-- | mousewin.ahk | 149 |
1 files changed, 149 insertions, 0 deletions
diff --git a/mousewin.ahk b/mousewin.ahk new file mode 100644 index 0000000..18779b5 --- /dev/null +++ b/mousewin.ahk @@ -0,0 +1,149 @@ +; Easy Window Dragging -- KDE style (requires XP/2k/NT) -- by Jonny +; http://www.autohotkey.com +; This script makes it much easier to move or resize a window: 1) Hold down +; the ALT key and LEFT-click anywhere inside a window to drag it to a new +; location; 2) Hold down ALT and RIGHT-click-drag anywhere inside a window +; to easily resize it; 3) Press ALT twice, but before releasing it the second +; time, left-click to minimize the window under the mouse cursor, right-click +; to maximize it, or middle-click to close it. + +; This script was inspired by and built on many like it +; in the forum. Thanks go out to ck, thinkstorm, Chris, +; and aurelian for a job well done. + +; Change history: +; November 07, 2006: Optimized resizing code in !RButton, courtesy of bluedawn. +; February 05, 2006: Fixed double-alt (the ~Alt hotkey) to work with latest versions of AHK. + +; The Double-Alt modifier is activated by pressing +; Alt twice, much like a double-click. Hold the second +; press down until you click. +; +; The shortcuts: +; Alt + Left Button : Drag to move a window. +; Alt + Right Button : Drag to resize a window. +; Double-Alt + Left Button : Minimize a window. +; Double-Alt + Right Button : Maximize/Restore a window. +; Double-Alt + Middle Button : Close a window. +; +; You can optionally release Alt after the first +; click rather than holding it down the whole time. + +If (A_AhkVersion < "1.0.39.00") +{ + MsgBox,20,,This script may not work properly with your version of AutoHotkey. Continue? + IfMsgBox,No + ExitApp +} + + +; This is the setting that runs smoothest on my +; system. Depending on your video card and cpu +; power, you may want to raise or lower this value. +SetWinDelay,2 + +CoordMode,Mouse +return + +!LButton:: +If DoubleAlt +{ + MouseGetPos,,,KDE_id + ; This message is mostly equivalent to WinMinimize, + ; but it avoids a bug with PSPad. + PostMessage,0x112,0xf020,,,ahk_id %KDE_id% + DoubleAlt := false + return +} +; Get the initial mouse position and window id, and +; abort if the window is maximized. +MouseGetPos,KDE_X1,KDE_Y1,KDE_id +WinGet,KDE_Win,MinMax,ahk_id %KDE_id% +If KDE_Win + return +; Get the initial window position. +WinGetPos,KDE_WinX1,KDE_WinY1,,,ahk_id %KDE_id% +Loop +{ + GetKeyState,KDE_Button,LButton,P ; Break if button has been released. + If KDE_Button = U + break + MouseGetPos,KDE_X2,KDE_Y2 ; Get the current mouse position. + KDE_X2 -= KDE_X1 ; Obtain an offset from the initial mouse position. + KDE_Y2 -= KDE_Y1 + KDE_WinX2 := (KDE_WinX1 + KDE_X2) ; Apply this offset to the window position. + KDE_WinY2 := (KDE_WinY1 + KDE_Y2) + WinMove,ahk_id %KDE_id%,,%KDE_WinX2%,%KDE_WinY2% ; Move the window to the new position. +} +return + +!RButton:: +If DoubleAlt +{ + MouseGetPos,,,KDE_id + ; Toggle between maximized and restored state. + WinGet,KDE_Win,MinMax,ahk_id %KDE_id% + If KDE_Win + WinRestore,ahk_id %KDE_id% + Else + WinMaximize,ahk_id %KDE_id% + DoubleAlt := false + return +} +; Get the initial mouse position and window id, and +; abort if the window is maximized. +MouseGetPos,KDE_X1,KDE_Y1,KDE_id +WinGet,KDE_Win,MinMax,ahk_id %KDE_id% +If KDE_Win + return +; Get the initial window position and size. +WinGetPos,KDE_WinX1,KDE_WinY1,KDE_WinW,KDE_WinH,ahk_id %KDE_id% +; Define the window region the mouse is currently in. +; The four regions are Up and Left, Up and Right, Down and Left, Down and Right. +If (KDE_X1 < KDE_WinX1 + KDE_WinW / 2) + KDE_WinLeft := 1 +Else + KDE_WinLeft := -1 +If (KDE_Y1 < KDE_WinY1 + KDE_WinH / 2) + KDE_WinUp := 1 +Else + KDE_WinUp := -1 +Loop +{ + GetKeyState,KDE_Button,RButton,P ; Break if button has been released. + If KDE_Button = U + break + MouseGetPos,KDE_X2,KDE_Y2 ; Get the current mouse position. + ; Get the current window position and size. + WinGetPos,KDE_WinX1,KDE_WinY1,KDE_WinW,KDE_WinH,ahk_id %KDE_id% + KDE_X2 -= KDE_X1 ; Obtain an offset from the initial mouse position. + KDE_Y2 -= KDE_Y1 + ; Then, act according to the defined region. + WinMove,ahk_id %KDE_id%,, KDE_WinX1 + (KDE_WinLeft+1)/2*KDE_X2 ; X of resized window + , KDE_WinY1 + (KDE_WinUp+1)/2*KDE_Y2 ; Y of resized window + , KDE_WinW - KDE_WinLeft *KDE_X2 ; W of resized window + , KDE_WinH - KDE_WinUp *KDE_Y2 ; H of resized window + KDE_X1 := (KDE_X2 + KDE_X1) ; Reset the initial position for the next iteration. + KDE_Y1 := (KDE_Y2 + KDE_Y1) +} +return + +; "Alt + MButton" may be simpler, but I +; like an extra measure of security for +; an operation like this. +!MButton:: +If DoubleAlt +{ + MouseGetPos,,,KDE_id + WinClose,ahk_id %KDE_id% + DoubleAlt := false + return +} +return + +; This detects "double-clicks" of the alt key. +~Alt:: +DoubleAlt := A_PriorHotKey = "~Alt" AND A_TimeSincePriorHotkey < 400 +Sleep 0 +KeyWait Alt ; This prevents the keyboard's auto-repeat feature from interfering. +return
\ No newline at end of file |