josh/files
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

upgrade JoshsAutoHotKey.ahk

Browse Source
This commit is contained in:
Josh Holtrop 2011-07-21 14:34:07 -04:00
parent 6e14a14b9b
commit 165f56e4fd
1 changed files with 112 additions and 98 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

212
JoshsAutoHotKey.ahk
View File

@ -1,6 +1,6 @@
; JoshsAutoHotKey.ahk ; JoshsAutoHotKey.ahk
; Version 1.1 ; Version 1.2
; 2008-12-03 ; 2009-03-18
; ;
; Original version from ; Original version from
; http://www.autohotkey.com/docs/scripts/EasyWindowDrag_(KDE).htm ; http://www.autohotkey.com/docs/scripts/EasyWindowDrag_(KDE).htm
@ -18,6 +18,13 @@
; You can optionally release Alt after the first ; You can optionally release Alt after the first
; click rather than holding it down the whole time. ; 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") If (A_AhkVersion < "1.0.39.00")
{ {
MsgBox,20,,This script may not work properly with your version of AutoHotkey. Continue? MsgBox,20,,This script may not work properly with your version of AutoHotkey. Continue?
@ -34,105 +41,112 @@ SetWinDelay,2
CoordMode,Mouse CoordMode,Mouse
return return
!LButton:: ;!LButton::
;If DoubleAlt ;#LButton::
;{ ;;If DoubleAlt
; MouseGetPos,,,KDE_id ;;{
; ; This message is mostly equivalent to WinMinimize, ;; MouseGetPos,,,KDE_id
; ; but it avoids a bug with PSPad. ;; ; This message is mostly equivalent to WinMinimize,
; PostMessage,0x112,0xf020,,,ahk_id %KDE_id% ;; ; but it avoids a bug with PSPad.
; DoubleAlt := false ;; PostMessage,0x112,0xf020,,,ahk_id %KDE_id%
; return ;; DoubleAlt := false
;} ;; return
; Get the initial mouse position and window id, and ;;}
; abort if the window is maximized. ;; Get the initial mouse position and window id, and
MouseGetPos,KDE_X1,KDE_Y1,KDE_id ;; abort if the window is maximized.
WinGet,KDE_Win,MinMax,ahk_id %KDE_id% ;MouseGetPos,KDE_X1,KDE_Y1,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
!RButton::
;If DoubleAlt
;{
; MouseGetPos,,,KDE_id
; ; Toggle between maximized and restored state.
;WinGet,KDE_Win,MinMax,ahk_id %KDE_id% ;WinGet,KDE_Win,MinMax,ahk_id %KDE_id%
;If KDE_Win ;If KDE_Win
; WinRestore,ahk_id %KDE_id%
; Else
; WinMaximize,ahk_id %KDE_id%
; DoubleAlt := false
; return ; 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 ;return
; abort if the window is maximized.
MouseGetPos,KDE_X1,KDE_Y1,KDE_id ;!RButton::
WinGet,KDE_Win,MinMax,ahk_id %KDE_id% ;#RButton::
If KDE_Win ;;If DoubleAlt
return ;;{
WinActivate,ahk_id %KDE_id% ;; MouseGetPos,,,KDE_id
; Get the initial window position and size. ;; ; Toggle between maximized and restored state.
WinGetPos,KDE_WinX1,KDE_WinY1,KDE_WinW,KDE_WinH,ahk_id %KDE_id% ;; WinGet,KDE_Win,MinMax,ahk_id %KDE_id%
; Define the window region the mouse is currently in. ;; If KDE_Win
; The four regions are Up and Left, Up and Right, Down and Left, Down and Right. ;; WinRestore,ahk_id %KDE_id%
If (KDE_X1 < KDE_WinX1 + KDE_WinW / 2) ;; Else
KDE_WinLeft := 1 ;; WinMaximize,ahk_id %KDE_id%
Else ;; DoubleAlt := false
KDE_WinLeft := -1 ;; return
If (KDE_Y1 < KDE_WinY1 + KDE_WinH / 2) ;;}
KDE_WinUp := 1 ;; Get the initial mouse position and window id, and
Else ;; abort if the window is maximized.
KDE_WinUp := -1 ;MouseGetPos,KDE_X1,KDE_Y1,KDE_id
; left only ;WinGet,KDE_Win,MinMax,ahk_id %KDE_id%
If (KDE_X1 < KDE_WinX1 + KDE_WinW / 4 and abs(KDE_Y1 - KDE_WinY1 - KDE_WinH / 2) < KDE_WinH / 4) ;If KDE_Win
KDE_WinUp := 0 ; return
If (KDE_X1 > KDE_WinX1 + 3 * KDE_WinW / 4 and abs(KDE_Y1 - KDE_WinY1 - KDE_WinH / 2) < KDE_WinH / 4) ;WinActivate,ahk_id %KDE_id%
KDE_WinUp := 0 ;; Get the initial window position and size.
If (KDE_Y1 < KDE_WinY1 + KDE_WinH / 4 and abs(KDE_X1 - KDE_WinX1 - KDE_WinW / 2) < KDE_WinW / 4) ;WinGetPos,KDE_WinX1,KDE_WinY1,KDE_WinW,KDE_WinH,ahk_id %KDE_id%
KDE_WinLeft := 0 ;; Define the window region the mouse is currently in.
If (KDE_Y1 > KDE_WinY1 + 3 * KDE_WinH / 4 and abs(KDE_X1 - KDE_WinX1 - KDE_WinW / 2) < KDE_WinW / 4) ;; The four regions are Up and Left, Up and Right, Down and Left, Down and Right.
KDE_WinLeft := 0 ;If (KDE_X1 < KDE_WinX1 + KDE_WinW / 2)
Loop ; KDE_WinLeft := 1
{ ;Else
GetKeyState,KDE_Button,RButton,P ; Break if button has been released. ; KDE_WinLeft := -1
If KDE_Button = U ;If (KDE_Y1 < KDE_WinY1 + KDE_WinH / 2)
break ; KDE_WinUp := 1
MouseGetPos,KDE_X2,KDE_Y2 ; Get the current mouse position. ;Else
; Get the current window position and size. ; KDE_WinUp := -1
WinGetPos,KDE_WinX1,KDE_WinY1,KDE_WinW,KDE_WinH,ahk_id %KDE_id% ;; left only
If KDE_WinLeft = 0 ;If (KDE_X1 < KDE_WinX1 + KDE_WinW / 4 and abs(KDE_Y1 - KDE_WinY1 - KDE_WinH / 2) < KDE_WinH / 4)
KDE_X2 := 0 ; KDE_WinUp := 0
Else ;If (KDE_X1 > KDE_WinX1 + 3 * KDE_WinW / 4 and abs(KDE_Y1 - KDE_WinY1 - KDE_WinH / 2) < KDE_WinH / 4)
KDE_X2 -= KDE_X1 ; Obtain an offset from the initial mouse position. ; KDE_WinUp := 0
If KDE_WinUp = 0 ;If (KDE_Y1 < KDE_WinY1 + KDE_WinH / 4 and abs(KDE_X1 - KDE_WinX1 - KDE_WinW / 2) < KDE_WinW / 4)
KDE_Y2 := 0 ; KDE_WinLeft := 0
Else ;If (KDE_Y1 > KDE_WinY1 + 3 * KDE_WinH / 4 and abs(KDE_X1 - KDE_WinX1 - KDE_WinW / 2) < KDE_WinW / 4)
KDE_Y2 -= KDE_Y1 ; KDE_WinLeft := 0
; Then, act according to the defined region. ;Loop
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 ; GetKeyState,KDE_Button,RButton,P ; Break if button has been released.
, KDE_WinW - KDE_WinLeft *KDE_X2 ; W of resized window ; If KDE_Button = U
, KDE_WinH - KDE_WinUp *KDE_Y2 ; H of resized window ; break
KDE_X1 += KDE_X2 ; Reset the initial position for the next iteration. ; MouseGetPos,KDE_X2,KDE_Y2 ; Get the current mouse position.
KDE_Y1 += KDE_Y2 ; ; Get the current window position and size.
} ; WinGetPos,KDE_WinX1,KDE_WinY1,KDE_WinW,KDE_WinH,ahk_id %KDE_id%
return ; 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
; This detects "double-clicks" of the alt key. ; This detects "double-clicks" of the alt key.
;~Alt:: ;~Alt::
@ -174,7 +188,7 @@ WinActivate,ahk_id %KDE_id%
; Explorer windows so I can scroll in the "Folders" pane and ; Explorer windows so I can scroll in the "Folders" pane and
; the main pane independently ; the main pane independently
WinGetClass class,ahk_id %KDE_id% WinGetClass class,ahk_id %KDE_id%
if (class = "ExploreWClass") if (class = "ExploreWClass" or class = "CabinetWClass")
{ {
Send {MButton} Send {MButton}
} }
@ -185,7 +199,7 @@ $WheelUp::
MouseGetPos,,,KDE_id MouseGetPos,,,KDE_id
WinActivate,ahk_id %KDE_id% WinActivate,ahk_id %KDE_id%
WinGetClass class,ahk_id %KDE_id% WinGetClass class,ahk_id %KDE_id%
if (class = "ExploreWClass") if (class = "ExploreWClass" or class = "CabinetWClass")
{ {
Send {MButton} Send {MButton}
} }