summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorbreadcat2015-04-10 02:32:46 +0100
committerbreadcat2015-04-10 02:32:46 +0100
commit41360bb2158aaa026b8e55c9c69ce42881be2aaf (patch)
treee42060fad73643806ac63c122f5d0f9aebdf3625
parent97405f371626282a6db8ebedf9d55c42c7ebc246 (diff)
downloadahka-41360bb2158aaa026b8e55c9c69ce42881be2aaf.tar.gz
ahka-41360bb2158aaa026b8e55c9c69ce42881be2aaf.tar.bz2
ahka-41360bb2158aaa026b8e55c9c69ce42881be2aaf.zip
Formatting change
Consistent tab, casing and indentation. Done with an automatic tool so there will probably be some errors I'll pick up later.
-rw-r--r--ahk-assistant.ahk60
-rw-r--r--functions.ahk526
2 files changed, 295 insertions, 291 deletions
diff --git a/ahk-assistant.ahk b/ahk-assistant.ahk
index 79d6367..d17caca 100644
--- a/ahk-assistant.ahk
+++ b/ahk-assistant.ahk
@@ -26,18 +26,18 @@ SetNumLockState, AlwaysOn
#+q::Run notepad.exe "%A_MyDocuments%\Vault\docs\faulties.txt"
#w::Run firefox.exe
#+w::Run firefox.exe -private-window
-#e:: dirWorking()
-#+e:: dirSync()
+#e::dirWorking()
+#+e::dirSync()
^!e::Run ::{20d04fe0-3aea-1069-a2d8-08002b30309d} ;my computer
^!r::Run mstsc ;remote desktop connection
-#t:: launchTerminal()
+#t::launchTerminal()
#+t::Run cmd
^!t::pasteTelephone()
#y::send,{end}{shift down}{home}{shift up}{del}https://www.youtube.com/watch?v={ctrl down}v{ctrl up} ;create youtube link from ID
^!b::Run %programfiles%\TeamViewer\Version9\TeamViewer.exe
^!v::Run %programfiles%\TightVNC\tvnviewer.exe
#p::Run "%ProgramFilesX86%\PuTTY\putty.exe" ;putty
-^!k:: launchKeepass()
+^!k::launchKeepass()
#c::Run calc
#\::SendMessage 0x112, 0xF170, 2, , Program Manager ;win+\ - screen standby
SC029::Send, 0 ;Backtick send zeroes
@@ -45,19 +45,17 @@ SC029::Send, 0 ;Backtick send zeroes
^SC029::Send, `¬ ;C-Backtick send negations
RAlt & j::ShiftAltTab
RAlt & k::AltTab
-Capslock::Backspace
+CapsLock::BackSpace
!^0::SoundSet +5 ;volume up
!^9::SoundSet -5 ;volume down
^!+Up::run %A_ScriptDir%\resswitch.exe /WIDTH:1920 /HEIGHT:1080 ;1080p screen resolution
^!+Down::run %A_ScriptDir%\resswitch.exe /WIDTH:1280 /HEIGHT:720 ;720p screen resolution
XButton1::Send {Click 2} ;remap logitech m570 x1 to double click
XButton2::Send {MButton} ;remap logitech m570 x2 to wheel click
-#Space:: insertDate()
+#Space::insertDate()
#+Space::insertDateTime()
Insert::appendClipboard()
^!Space::toggleAudioDevice()
-
-;kde-windows (Easy Window Dragging -- KDE style (requires XP/2k/NT) -- by Jonny)
!LButton::kdeMove()
!RButton::kdeResize()
@@ -137,7 +135,7 @@ Insert::appendClipboard()
;application specific hotkeys
#IfWinActive ahk_class CabinetWClass ;explorer
- Capslock::explorerUp()
+ CapsLock::explorerUp()
F6::Send !d ;addressbar
Ralt & Enter::Send {AppsKey}{Up}{Enter} ; ralt-enter properties
F1:: ;overflow to rename, help is useless in explorer
@@ -149,27 +147,29 @@ Insert::appendClipboard()
#IfWinActive
#IfWinActive ahk_class FontViewWClass ;font previewer
- Capslock::Send !{F4} ;quit
+ CapsLock::Send !{F4} ;quit
#IfWinActive
#IfWinActive ahk_class SciCalc ; windows xp calc
- Capslock::Send !{F4} ;quit
+ CapsLock::Send !{F4} ;quit
#IfWinActive
+
#IfWinActive ahk_class CalcFrame ; windows 7 calc
- Capslock::Send !{F4} ;quit
+ CapsLock::Send !{F4} ;quit
#IfWinActive
#IfWinActive ahk_class ShImgVw:CPreviewWnd ;photoviewer windows xp
- Capslock::Send !{F4} ;quit
+ CapsLock::Send !{F4} ;quit
#IfWinActive
+
#IfWinActive ahk_class Photo_Lightweight_Viewer ;photoviewer windows 7
- Capslock::Send !{F4} ;quit
+ CapsLock::Send !{F4} ;quit
Up:: ;overflow
Down::Return ;fixes up/down breaking left/right navigation
#IfWinActive
#IfWinActive ahk_class SUMATRA_PDF_FRAME ;sumatra pdf
- Capslock::Send !{F4} ;quit
+ CapsLock::Send !{F4} ;quit
^b::Send {F12} ; ctrl+b for bookmarks
!Enter::Send ^l ;fullscreen
#IfWinActive
@@ -177,14 +177,14 @@ Insert::appendClipboard()
#IfWinActive ahk_class MediaPlayerClassicW ;mpc-hc
1::Send 2^1 ;1 keeps borders
Ralt & Enter::Send !{Enter} ; ralt-enter fullscreens
- Capslock::Send !{F4} ;quit
+ CapsLock::Send !{F4} ;quit
p::Send ^7 ;p for playlist
#IfWinActive
#IfWinActive ahk_class mpv ;mpv
Alt & Enter:: ;overflow to fullscreen below
- Ralt & Enter::Send f ; ralt-enter fullscreens
- Capslock::Send !{F4} ;quit
+ Ralt & Enter::Send f ; ralt-Enter fullscreens
+ CapsLock::Send !{F4} ;quit
#IfWinActive
#IfWinActive ahk_class rctrl_renwnd32 ;outlook
@@ -249,17 +249,17 @@ Insert::appendClipboard()
F11::borderlessFullscreen()
#IfWinActive
-
-ScriptReload: ;auto-reload on change
-{
- FileGetAttrib, FileAttribs, %A_ScriptFullPath%
- IfInString, FileAttribs, A
+;auto-reload on change
+ScriptReload:
{
- FileSetAttrib, -A, %A_ScriptFullPath%
- TrayTip, Reloading Script..., %A_ScriptName%, , 1
- Sleep, 1000
- Reload
- TrayTip
+ FileGetAttrib, FileAttribs, %A_ScriptFullPath%
+ IfInString, FileAttribs, A
+ {
+ FileSetAttrib, -A, %A_ScriptFullPath%
+ TrayTip, Reloading Script..., %A_ScriptName%, , 1
+ Sleep, 1000
+ Reload
+ TrayTip
+ }
+ Return
}
- Return
-}
diff --git a/functions.ahk b/functions.ahk
index 13df5ba..254e7d7 100644
--- a/functions.ahk
+++ b/functions.ahk
@@ -1,344 +1,348 @@
dirWorking() {
-if A_OSVersion in WIN_XP
- {
- Run explorer %A_MyDocuments%
- }
- Else
- {
- Run explorer %A_MyDocuments%\..\Downloads
- }
- Return
+ If A_OSVersion in WIN_XP
+ {
+ Run explorer %A_MyDocuments%
+ }
+ Else
+ {
+ Run explorer %A_MyDocuments%\..\Downloads
+ }
+ Return
}
dirSync() {
-if A_OSVersion in WIN_XP
- {
- Run explorer %A_MyDocuments%\Vault
- }
- Else
- {
- Run explorer %A_MyDocuments%\..\Vault
- }
- Return
+ If A_OSVersion in WIN_XP
+ {
+ Run explorer %A_MyDocuments%\Vault
+ }
+ Else
+ {
+ Run explorer %A_MyDocuments%\..\Vault
+ }
+ Return
}
launchTerminal() {
-if A_OSVersion in WIN_XP
- {
- Run C:\cygwin\bin\mintty.exe -
- }
- Else
- {
- Run C:\cygwin64\bin\mintty.exe -
- }
- Return
+ If A_OSVersion in WIN_XP
+ {
+ Run C:\cygwin\bin\mintty.exe -
+ }
+ Else
+ {
+ Run C:\cygwin64\bin\mintty.exe -
+ }
+ Return
}
launchKeepass() {
-if A_OSVersion in WIN_XP
- {
- Run "%A_MyDocuments%\Vault\docs\keepass\KeePass.exe"
- }
- Else
- {
- Run "%A_MyDocuments%\..\Vault\docs\keepass\KeePass.exe"
- }
- Return
+ If A_OSVersion in WIN_XP
+ {
+ Run "%A_MyDocuments%\Vault\docs\keepass\KeePass.exe"
+ }
+ Else
+ {
+ Run "%A_MyDocuments%\..\Vault\docs\keepass\KeePass.exe"
+ }
+ Return
}
insertDate() {
- FormatTime, CurrentDateTime,, yyyy-MM-dd
- Send %CurrentDateTime%
- return
+ FormatTime, CurrentDateTime,, yyyy-MM-dd
+ Send %CurrentDateTime%
+ Return
}
+
insertDateTime() {
- FormatTime, CurrentDateTime,, yyyy-MM-dd HHmm
- Send %CurrentDateTime%
- return
+ FormatTime, CurrentDateTime,, yyyy-MM-dd HHmm
+ Send %CurrentDateTime%
+ Return
}
appendClipboard() {
- newclipboard = %clipboard%
- Send, ^c
- clipboard = %newclipboard%`r`n%clipboard%
- return
+ newclipboard = %clipboard%
+ Send, ^c
+ clipboard = %newclipboard%`r`n%clipboard%
+ Return
}
pasteTelephone() {
- StringReplace, clipboard, clipboard, +44, 0, All ;translate intl codes
- StringReplace, clipboard, clipboard, %A_SPACE%,, All ;remove spaces
- StringReplace, clipboard, clipboard, %A_Tab%, `,, All ;remove tabs
- StringReplace, clipboard, clipboard, `,,, All ;remove commas
- StringReplace, clipboard, clipboard, `r,, All ;remove lines
- StringReplace, clipboard, clipboard, `n,, All ;remove lines
- StringReplace, clipboard, clipboard, -,, All ;remove hyphens
- StringReplace, clipboard, clipboard, (,, All ;remove lbracket
- StringReplace, clipboard, clipboard, ),, All ;remove rbracket
- StringLeft, 5digits, clipboard, 5
- StringRight, 6digits, clipboard, 6
- Send %5digits% %6digits%
- return
+ StringReplace, clipboard, clipboard, +44, 0, All ;translate intl codes
+ StringReplace, clipboard, clipboard, %A_Space%,, All ;remove Spaces
+ StringReplace, clipboard, clipboard, %A_Tab%, `,, All ;remove tabs
+ StringReplace, clipboard, clipboard, `,,, All ;remove commas
+ StringReplace, clipboard, clipboard, `r,, All ;remove Lines
+ StringReplace, clipboard, clipboard, `n,, All ;remove Lines
+ StringReplace, clipboard, clipboard, -,, All ;remove hyphens
+ StringReplace, clipboard, clipboard, (,, All ;remove lbracket
+ StringReplace, clipboard, clipboard, ),, All ;remove rbracket
+ StringLeft, 5Digits, clipboard, 5
+ StringRight, 6Digits, clipboard, 6
+ Send %5Digits% %6Digits%
+ Return
}
typeSyncDocs() {
-if A_OSVersion in WIN_XP
- {
- Send %A_MyDocuments%\Vault\docs\
- }
- Else
- {
- Send C:\Users\%A_UserName%\Vault\docs\
- }
- Return
+ If A_OSVersion in WIN_XP
+ {
+ Send %A_MyDocuments%\Vault\docs\
+ }
+ Else
+ {
+ Send C:\Users\%A_UserName%\Vault\docs\
+ }
+ Return
}
+
typeDocuments() {
-if A_OSVersion in WIN_XP
- {
- Send %A_MyDocuments%
- }
- Else
- {
- Send C:\Users\%A_UserName%\
- }
- Return
+ If A_OSVersion in WIN_XP
+ {
+ Send %A_MyDocuments%
+ }
+ Else
+ {
+ Send C:\Users\%A_UserName%\
+ }
+ Return
}
+
typeVault() {
-if A_OSVersion in WIN_XP
- {
- Send %A_MyDocuments%\Vault\
- }
- Else
- {
- Send C:\Users\%A_UserName%\Vault\
- }
- Return
+ If A_OSVersion in WIN_XP
+ {
+ Send %A_MyDocuments%\Vault\
+ }
+ Else
+ {
+ Send C:\Users\%A_UserName%\Vault\
+ }
+ Return
}
+
typeCygwin() {
-if A_OSVersion in WIN_XP
- {
- Send C:\cygwin\home\%A_UserName%\
- }
- Else
- {
- Send C:\cygwin64\home\%A_UserName%\
- }
- Return
+ If A_OSVersion in WIN_XP
+ {
+ Send C:\cygwin\home\%A_UserName%\
+ }
+ Else
+ {
+ Send C:\cygwin64\home\%A_UserName%\
+ }
+ Return
}
cmdPaste() { ;C-v / S-insert pastes into cmd
- CoordMode, Mouse, Relative
- MouseMove, 100, 100
- Send {RButton}p
- return
+ CoordMode, Mouse, Relative
+ MouseMove, 100, 100
+ Send {RButton}p
+ Return
}
explorerUp() { ;up one folder
- if A_OSVersion in WIN_XP
- {
- Send {Backspace}
- }
- Else
- {
- Send !{Up}
- }
- Return
+ If A_OSVersion in WIN_XP
+ {
+ Send {BackSpace}
+ }
+ Else
+ {
+ Send !{Up}
+ }
+ Return
}
explorerRename() {
- if A_OSVersion in WIN_XP
- {
- Send {F2}{Ctrldown}{Home}{Shiftdown}{End}{Ctrlup}{Left 4}{Shiftup} ; rename (hopefully) deselects file extension
- }
- Else
- {
- Send {F2}
- }
- Return
+ If A_OSVersion in WIN_XP
+ {
+ Send {F2}{CtrlDown}{Home}{ShiftDown}{End}{CtrlUp}{Left 4}{ShiftUp} ; Rename (hopefully) deselects file extension
+ }
+ Else
+ {
+ Send {F2}
+ }
+ Return
}
explorerCMD() { ;open command prompt in current location
- ClipSaved := ClipboardAll
- Send !d^c
- Run, cmd /K "cd `"%clipboard%`""
- Clipboard := ClipSaved
- ClipSaved =
- Return
+ ClipSaved := ClipboardAll
+ Send !d^c
+ Run, cmd /K "cd `"%clipboard%`""
+ Clipboard := ClipSaved
+ ClipSaved =
+ Return
}
explorerHidden() { ;toggle show/hide hidden folders, stolen from http://www.autohotkey.com/board/topic/68131-turn-off-show-hidden-files-at-boot/
- RegRead, HiddenFiles_Status, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden
- If HiddenFiles_Status = 2
- RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden, 1
- Else
- RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden, 2
- WinGetClass, eh_Class,A
- If (eh_Class = "#32770" OR A_OSVersion = "WIN_VISTA" OR A_OSVersion = "WIN_7")
- send, {F5}
- Else PostMessage, 0x111, 28931,,, A
- Return
+ RegRead, HiddenFiles_Status, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden
+ If HiddenFiles_Status = 2
+ RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden, 1
+ Else
+ RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden, 2
+ WinGetClass, eh_Class,A
+ If (eh_Class = "#32770" OR A_OSVersion = "WIN_VISTA" OR A_OSVersion = "WIN_7")
+ Send, {F5}
+ Else PostMessage, 0x111, 28931,,, A
+ Return
}
explorerNewDir() { ;allows xp to create new folder from keypress
- if A_OSVersion in WIN_XP
- {
- Send !fwf
- }
- Else
- {
- Send ^+n
- }
- Return
+ If A_OSVersion in WIN_XP
+ {
+ Send !fwf
+ }
+ Else
+ {
+ Send ^+n
+ }
+ Return
}
explorerNewFile() { ;create a new blank text file
- if A_OSVersion in WIN_XP
- {
- Send !fwt{End}{Left 4}{ShiftDown}{Home}{ShiftUp} ;new text file, and deselect file extension
- }
- Else
- {
- Send !fwt ;clever windows 7 already knows to skip file extensions
- }
- Return
+ If A_OSVersion in WIN_XP
+ {
+ Send !fwt{End}{Left 4}{ShiftDown}{Home}{ShiftUp} ;new text file, and deselect file extension
+ }
+ Else
+ {
+ Send !fwt ;clever windows 7 already knows to skip file extensions
+ }
+ Return
}
excelFormulaBar() { ;jumps to formula bar
- CoordMode, Mouse, Relative
- MouseMove, 180, 60
- Send {LButton}
- return
+ CoordMode, Mouse, Relative
+ MouseMove, 180, 60
+ Send {LButton}
+ Return
}
borderlessFullscreen() { ;borderless fullscreen script from PCGW (http://pcgamingwiki.com/wiki/Glossary:Borderless_fullscreen_windowed#Borderless_scripts)
- WinGet, WindowID, ID, A
- WinSet, Style, -0xC40000, ahk_id %WindowID%
- WinMove, ahk_id %WindowID%, , 0, 0, A_ScreenWidth, A_ScreenHeight
- return
+ WinGet, WindowID, ID, A
+ WinSet, Style, -0xC40000, ahk_id %WindowID%
+ WinMove, ahk_id %WindowID%, , 0, 0, A_ScreenWidth, A_ScreenHeight
+ Return
}
-;toggle between default audio output (http://ml.pe/optimizing/2013/changing-the-default-sound-device-using-autohotkey/)
-toggleAudioDevice() {
+toggleAudioDevice() { ;toggle between default audio output (http://ml.pe/optimizing/2013/changing-the-default-sound-device-using-autohotkey/)
switch := !switch
If (switch)
usePlaybackDevice(1)
- else
+ Else
usePlaybackDevice(3)
- return
- }
- usePlaybackDevice(device) {
- Run, mmsys.cpl
- WinWaitActive, Sound ahk_class #32770
- ControlSend, SysListView321,{Down %device%}, Sound ahk_class #32770
- ControlClick, Button2, Sound ahk_class #32770
- WinClose, Sound ahk_class #32770
-}
+ Return
+ }
-winSplit() { ;split active and previous window side by side, press again to swap positions
- splitToggle := !splitToggle
- If (splitToggle) {
- Tile("R")
- Sleep, 15
- Send {AltDown}{Tab}{AltUp}
- Sleep, 10
- Tile("L")
- Sleep, 15
- Send {AltDown}{Tab}{AltUp}
- }
- else {
- Send {AltDown}{Tab}{AltUp}
- Sleep, 10
- winSplit()
- }
- return
+usePlaybackDevice(device) {
+ Run, mmsys.cpl
+ WinWaitActive, Sound ahk_class #32770
+ ControlSend, SysListView321,{Down %device%}, Sound ahk_class #32770
+ ControlClick, Button2, Sound ahk_class #32770
+ WinClose, Sound ahk_class #32770
}
-kdeMove() {
- MouseGetPos,KDE_X1,KDE_Y1,KDE_id
- WinGet,KDE_Win,MinMax,ahk_id %KDE_id%
- If KDE_Win
- WinRestore, A
- 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.
+winSplit() { ;split active and previous window side by side, press again to swap positions
+ splitToggle := !splitToggle
+ If (splitToggle = "1") {
+ Tile("R")
+ Sleep, 15
+ Send {AltDown}{Tab}{AltUp}
+ Sleep, 10
+ Tile("L")
+ Sleep, 15
+ Send {AltDown}{Tab}{AltUp}
+ }
+ Else {
+ Send {AltDown}{Tab}{AltUp}
+ Sleep, 10
+ winSplit()
+ }
+ Return
}
- return
+
+kdeMove() { ;kde-windows (Easy Window Dragging -- KDE style (requires XP/2k/NT) -- by Jonny)
+ MouseGetPos,KDE_X1,KDE_Y1,KDE_id
+ WinGet,KDE_Win,MinMax,ahk_id %KDE_id%
+ If KDE_Win
+ WinRestore, A
+ 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
}
kdeResize() {
- MouseGetPos,KDE_X1,KDE_Y1,KDE_id
- WinGet,KDE_Win,MinMax,ahk_id %KDE_id%
- If KDE_Win
- WinRestore, A
- ; 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
+ MouseGetPos,KDE_X1,KDE_Y1,KDE_id
+ WinGet,KDE_Win,MinMax,ahk_id %KDE_id%
+ If KDE_Win
+ WinRestore, A
+ ; 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
}
Tile(Pos)
-{
- WinGetClass, class, A
- IfInString , shell_TrayWnd,Progman,Button,DV2ControlHost, %class%
- Return
- IfWinExist,ahk_class Shell_TrayWnd
- SysGet, m, MonitorWorkArea
+ {
+ WinGetClass, class, A
+ IfInString , shell_TrayWnd,Progman,Button,DV2ControlHost, %class%
+ Return
+ IfWinExist,ahk_class Shell_TrayWnd
+ SysGet, m, MonitorWorkArea
Else SysGet, m, Monitor
- WinGetPos, MWT_X, MWT_Y, MWT_W, MWT_H, A
- SendMessage, 0x1F,,,, A
- WinGet, MWT_active, MinMax, A
- if (MWT_active = 1)
- WinRestore, A
+ WinGetPos, MWT_X, MWT_Y, MWT_W, MWT_H, A
+ SendMessage, 0x1F,,,, A
+ WinGet, MWT_active, MinMax, A
+ If (MWT_active = 1)
+ WinRestore, A
If (Pos = "T")
- WinMove, A,, 0, 0, mRight, mBottom/2
+ WinMove, A,, 0, 0, mRight, mBottom/2
If (Pos = "B")
- WinMove, A,, 0, mBottom/2, mRight, mBottom/2
+ WinMove, A,, 0, mBottom/2, mRight, mBottom/2
If (Pos = "L")
- WinMove, A,, 0, 0, mRight/2, mBottom
+ WinMove, A,, 0, 0, mRight/2, mBottom
If (Pos = "R")
- WinMove, A,, mRight/2, 0, mRight/2, mBottom
+ WinMove, A,, mRight/2, 0, mRight/2, mBottom
If (Pos = "TL")
- WinMove, A,, 0, 0, mRight/2, mBottom/2
+ WinMove, A,, 0, 0, mRight/2, mBottom/2
If (Pos = "TR")
- WinMove, A,, mRight/2, 0, mRight/2, mBottom/2
+ WinMove, A,, mRight/2, 0, mRight/2, mBottom/2
If (Pos = "BR")
- WinMove, A,, mRight/2, mBottom/2, mRight/2, mBottom/2
+ WinMove, A,, mRight/2, mBottom/2, mRight/2, mBottom/2
If (Pos = "BL")
- WinMove, A,, 0, mBottom/2, mRight/2, mBottom/2
-}
+ WinMove, A,, 0, mBottom/2, mRight/2, mBottom/2
+ }
Return