From 165f56e4fd0288285001e4bf83a6f9b6b7950e33 Mon Sep 17 00:00:00 2001 From: Josh Holtrop Date: Thu, 21 Jul 2011 14:34:07 -0400 Subject: [PATCH] upgrade JoshsAutoHotKey.ahk --- JoshsAutoHotKey.ahk | 210 +++++++++++++++++++++++--------------------- 1 file changed, 112 insertions(+), 98 deletions(-) diff --git a/JoshsAutoHotKey.ahk b/JoshsAutoHotKey.ahk index 5c4210b..09ae797 100644 --- a/JoshsAutoHotKey.ahk +++ b/JoshsAutoHotKey.ahk @@ -1,6 +1,6 @@ ; JoshsAutoHotKey.ahk -; Version 1.1 -; 2008-12-03 +; Version 1.2 +; 2009-03-18 ; ; Original version from ; http://www.autohotkey.com/docs/scripts/EasyWindowDrag_(KDE).htm @@ -18,6 +18,13 @@ ; You can optionally release Alt after the first ; click rather than holding it down the whole time. +; From Mike Zwagerman, 2009-03-18: +; This changes increase the Maximum Number of Hotkeys allowed +; per interval from the default of 70 to 200 +#MaxHotkeysPerInterval 200 + +#SingleInstance force + If (A_AhkVersion < "1.0.39.00") { MsgBox,20,,This script may not work properly with your version of AutoHotkey. Continue? @@ -34,105 +41,112 @@ 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 +;!LButton:: +;#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 +;WinActivate,ahk_id %KDE_id% +;; Get the initial window position. +;WinGetPos,KDE_WinX1,KDE_WinY1,WinWidth,WinHeight,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) +; +;; SysGet,Mon1,Monitor,1 +;; SysGet,Mon2,Monitor,2 +;; MsgBox, (%Mon1Left%,%Mon1Top%,%Mon1Right%,%Mon1Bottom%), (%Mon2Left%,%Mon2Top%,%Mon2Right%,%Mon2Bottom%) +; +; WinMove,ahk_id %KDE_id%,,%KDE_WinX2%,%KDE_WinY2% ; Move the window to the new position. ;} -; 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 -WinActivate,ahk_id %KDE_id% -; 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 +;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 +;!RButton:: +;#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 +;WinActivate,ahk_id %KDE_id% +;; 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 +;; left only +;If (KDE_X1 < KDE_WinX1 + KDE_WinW / 4 and abs(KDE_Y1 - KDE_WinY1 - KDE_WinH / 2) < KDE_WinH / 4) +; KDE_WinUp := 0 +;If (KDE_X1 > KDE_WinX1 + 3 * KDE_WinW / 4 and abs(KDE_Y1 - KDE_WinY1 - KDE_WinH / 2) < KDE_WinH / 4) +; KDE_WinUp := 0 +;If (KDE_Y1 < KDE_WinY1 + KDE_WinH / 4 and abs(KDE_X1 - KDE_WinX1 - KDE_WinW / 2) < KDE_WinW / 4) +; KDE_WinLeft := 0 +;If (KDE_Y1 > KDE_WinY1 + 3 * KDE_WinH / 4 and abs(KDE_X1 - KDE_WinX1 - KDE_WinW / 2) < KDE_WinW / 4) +; KDE_WinLeft := 0 +;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% +; If KDE_WinLeft = 0 +; KDE_X2 := 0 +; Else +; KDE_X2 -= KDE_X1 ; Obtain an offset from the initial mouse position. +; If KDE_WinUp = 0 +; KDE_Y2 := 0 +; Else +; 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 ; Reset the initial position for the next iteration. +; KDE_Y1 += KDE_Y2 ;} -; 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 -WinActivate,ahk_id %KDE_id% -; 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 -; left only -If (KDE_X1 < KDE_WinX1 + KDE_WinW / 4 and abs(KDE_Y1 - KDE_WinY1 - KDE_WinH / 2) < KDE_WinH / 4) - KDE_WinUp := 0 -If (KDE_X1 > KDE_WinX1 + 3 * KDE_WinW / 4 and abs(KDE_Y1 - KDE_WinY1 - KDE_WinH / 2) < KDE_WinH / 4) - KDE_WinUp := 0 -If (KDE_Y1 < KDE_WinY1 + KDE_WinH / 4 and abs(KDE_X1 - KDE_WinX1 - KDE_WinW / 2) < KDE_WinW / 4) - KDE_WinLeft := 0 -If (KDE_Y1 > KDE_WinY1 + 3 * KDE_WinH / 4 and abs(KDE_X1 - KDE_WinX1 - KDE_WinW / 2) < KDE_WinW / 4) - KDE_WinLeft := 0 -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% - If KDE_WinLeft = 0 - KDE_X2 := 0 - Else - KDE_X2 -= KDE_X1 ; Obtain an offset from the initial mouse position. - If KDE_WinUp = 0 - KDE_Y2 := 0 - Else - 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 ; Reset the initial position for the next iteration. - KDE_Y1 += KDE_Y2 -} -return +;return ; This detects "double-clicks" of the alt key. ;~Alt:: @@ -174,7 +188,7 @@ WinActivate,ahk_id %KDE_id% ; Explorer windows so I can scroll in the "Folders" pane and ; the main pane independently WinGetClass class,ahk_id %KDE_id% -if (class = "ExploreWClass") +if (class = "ExploreWClass" or class = "CabinetWClass") { Send {MButton} } @@ -185,7 +199,7 @@ $WheelUp:: MouseGetPos,,,KDE_id WinActivate,ahk_id %KDE_id% WinGetClass class,ahk_id %KDE_id% -if (class = "ExploreWClass") +if (class = "ExploreWClass" or class = "CabinetWClass") { Send {MButton} }