AutoHotkey Community

; HalfWindows.ahk - Troy Chard - version 1.1 - April 13, 2009
; AutoHotkey Script
; Description: Ctrl+Arrow moves window to that half of the screen.
; eg: Ctrl+LeftArrow moves window to left half screen.  Ctrl+TopArrow to
; the top half of screen.  etc.

#NoEnv  ; for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; for new scripts, superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

; It's best to compute work area every time as user may alter
; task bar position or screen-res.

LeftHalfWindow()
{
   SysGet, area, MonitorWorkArea
   w:=((areaRight-areaLeft)/2)
   h:=(areaBottom-areaTop)

   WinRestore, A   
   WinMove, A, , 0, 0,%w%,%h%
}

RightHalfWindow()
{
   SysGet, area, MonitorWorkArea
   w:=((areaRight-areaLeft)/2)
   h:=(areaBottom-areaTop)

   WinRestore, A
   WinMove, A, , w, 0, w, h   ;Middle of screen is same as w.
}

TopHalfWindow()
{
   SysGet, area, MonitorWorkArea
   w:=(areaRight-areaLeft)
   h:=((areaBottom-areaTop)/2)

   WinRestore, A
   WinMove, A, , 0, 0, w, h
}

BottomHalfWindow()
{
   SysGet, area, MonitorWorkArea
   w:=(areaRight-areaLeft)
   h:=((areaBottom-areaTop)/2)

   WinRestore, A
   WinMove, A, , 0, h, w, h   ;Middle of screen is same as h.
}

;Key Bindings
; Ctrl+Arrow Key moves window to that 1/2 of screen.
; eg: Ctrl+UpArrow moves to top 1/2 of screen.

^Left::  LeftHalfWindow()
^Right:: RightHalfWindow()

^Up::   TopHalfWindow()
^Down:: BottomHalfWindow()

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#SingleInstance force
SetBatchLines -1
; -------------------
; START CONFIGURATION
; -------------------
HotKey, #Left, StickLeft
HotKey, #Numpad4, StickLeft
HotKey, #NumpadLeft, StickLeft
HotKey, #Right, StickRight
HotKey, #Numpad6, StickRight
HotKey, #NumpadRight, StickRight
HotKey, #Up, StickUp
HotKey, #Numpad8, StickUp
HotKey, #NumpadUp, StickUp
HotKey, #Down, StickDown
HotKey, #Numpad2, StickDown
HotKey, #NumpadDown, StickDown
HotKey, #Numpad5, CenterWindow
HotKey, #NumpadClear, CenterWindow
HotKey, #Numpad7, StickNW
HotKey, #NumpadHome, StickNW
HotKey, #Numpad1, StickSW
HotKey, #NumpadEnd, StickSW
HotKey, #Numpad9, StickNE
HotKey, #NumpadPgUp, StickNE
HotKey, #Numpad3, StickSE
HotKey, #NumpadPgDn, StickSE
HotKey, #Numpad0, MinWin
HotKey, #NumpadIns, MinWin
HotKey, #NumpadDot, TrayWin
HotKey, #NumpadDel, TrayWin
; --------------------
; END OF CONFIGURATION
; --------------------
OnExit, ExitSub
IsHidden = 0
return


StickLeft:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , 0, 0, A_ScreenWidth / 2, A_ScreenHeight - 30
return


StickRight:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , A_ScreenWidth / 2, 0, A_ScreenWidth / 2, A_ScreenHeight - 30
return


StickUp:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , 0, 0, A_ScreenWidth, (A_ScreenHeight - 30 ) / 2
return


StickDown:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , 0, (A_ScreenHeight - 30 ) / 2, A_ScreenWidth, (A_ScreenHeight - 30 ) / 2
return


CenterWindow:
    WinGetPos, , , WW, WH, A
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , ( A_ScreenWidth - WW ) / 2, (A_ScreenHeight - 30 - WH ) / 2
return


StickNW:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , 0, 0, A_ScreenWidth / 2, (A_ScreenHeight - 30 ) / 2
return


StickSW:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , 0, (A_ScreenHeight - 30 ) / 2, A_ScreenWidth / 2, (A_ScreenHeight - 30 ) / 2
return


StickNE:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , A_ScreenWidth / 2, 0, A_ScreenWidth / 2, (A_ScreenHeight - 30 ) / 2
return


StickSE:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , A_ScreenWidth / 2, (A_ScreenHeight - 30 ) / 2, A_ScreenWidth / 2, (A_ScreenHeight - 30 ) / 2
return


MinWin:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMinimize, A
return


TrayWin:
    WinGet, UID, ID, A
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        GroupAdd, TrayWindow, ahk_id %UID%
    if IsHidden = 0
    {
        WinHide, ahk_group TrayWindow
        IsHidden = 1
        ;TrayTip,, hidden 1
    }
    else
    {
        WinShow, ahk_group TrayWindow
        IsHidden = 0
        ;TrayTip,, hidden 0
    }
return


ExitSub:
    WinShow, ahk_group TrayWindow
    ExitApp

; Easy window location and size utility "One sixth", version 1.0
; Based on script by paftdunk
; Modifications by Mak Sym

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#SingleInstance force
SetBatchLines -1
; -------------------
; START CONFIGURATION
; -------------------
HotKey, #Left, StickLeft
HotKey, #Numpad4, StickLeft
HotKey, #NumpadLeft, StickLeft
HotKey, #Right, StickRight
HotKey, #Numpad6, StickRight
HotKey, #NumpadRight, StickRight
HotKey, #Up, StickUp
HotKey, #Numpad8, StickUp
HotKey, #NumpadUp, StickUp
HotKey, #Down, StickDown
HotKey, #Numpad2, StickDown
HotKey, #NumpadDown, StickDown
HotKey, #Numpad5, CenterWindow
HotKey, #NumpadClear, CenterWindow
HotKey, #Numpad7, StickNW
HotKey, #NumpadHome, StickNW
HotKey, #Numpad1, StickSW
HotKey, #NumpadEnd, StickSW
HotKey, #Numpad9, StickNE
HotKey, #NumpadPgUp, StickNE
HotKey, #Numpad3, StickSE
HotKey, #NumpadPgDn, StickSE
HotKey, #Numpad0, MinWin
HotKey, #NumpadIns, MinWin
HotKey, #NumpadDot, TrayWin
HotKey, #NumpadDel, TrayWin

HotKey, #NumpadDiv, ExpandLeft
HotKey, #NumpadMult, ExpandRight
HotKey, #!NumpadDiv, ContractLeft
HotKey, #!NumpadMult, ContractRight

HotKey, #NumpadSub, ExpandUp
HotKey, #NumpadAdd, ExpandDown
HotKey, #!NumpadSub, ContractUp
HotKey, #!NumpadAdd, ContractDown

; --------------------
; END OF CONFIGURATION
; --------------------
OnExit, ExitSub
IsHidden = 0
return

ExpandLeft:
    WinGetPos, WX, WY, WW, WH, A
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , WX - (A_ScreenWidth / 6), , WW + (A_ScreenWidth / 6)
return

ContractLeft:
    WinGetPos, WX, WY, WW, WH, A
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , WX + (A_ScreenWidth / 6), , WW - (A_ScreenWidth / 6)
return

ExpandRight:
    WinGetPos, WX, WY, WW, WH, A
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , WX, , WW + (A_ScreenWidth / 6)
return

ContractRight:
    WinGetPos, WX, WY, WW, WH, A
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , WX, , WW - (A_ScreenWidth / 6)
return

ExpandUp:
    WinGetPos, WX, WY, WW, WH, A
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , , WY - ((A_ScreenHeight - 60) / 6), , WH + ((A_ScreenHeight - 60) / 6)
return

ContractUp:
    WinGetPos, WX, WY, WW, WH, A
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , , WY + ((A_ScreenHeight - 60) / 6), , WH - ((A_ScreenHeight - 60) / 6)
return

ExpandDown:
    WinGetPos, WX, WY, WW, WH, A
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , , WY, , WH + ((A_ScreenHeight - 60) / 6)
return

ContractDown:
    WinGetPos, WX, WY, WW, WH, A
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , , WY, , WH - ((A_ScreenHeight - 60) / 6)
return


StickLeft:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , 0, 0, A_ScreenWidth / 2, A_ScreenHeight - 60
return


StickRight:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , A_ScreenWidth / 2, 0, A_ScreenWidth / 2, A_ScreenHeight - 60
return


StickUp:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , 0, 0, A_ScreenWidth, (A_ScreenHeight - 60 ) / 2
return


StickDown:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , 0, (A_ScreenHeight - 60 ) / 2, A_ScreenWidth, (A_ScreenHeight - 60 ) / 2
return


CenterWindow:
    WinGetPos, , , WW, WH, A
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , ( A_ScreenWidth - WW ) / 2, (A_ScreenHeight - 60 - WH ) / 2
return


StickNW:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , 0, 0, A_ScreenWidth / 2, (A_ScreenHeight - 60 ) / 2
return


StickSW:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , 0, (A_ScreenHeight - 60 ) / 2, A_ScreenWidth / 2, (A_ScreenHeight - 60 ) / 2
return


StickNE:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , A_ScreenWidth / 2, 0, A_ScreenWidth / 2, (A_ScreenHeight - 60 ) / 2
return


StickSE:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMove, A, , A_ScreenWidth / 2, (A_ScreenHeight - 60 ) / 2, A_ScreenWidth / 2, (A_ScreenHeight - 60 ) / 2
return


MinWin:
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        WinMinimize, A
return


TrayWin:
    WinGet, UID, ID, A
    WinGetClass, class, A
    if class != Shell_TrayWnd
    if class != Progman
    if class != DV2ControlHost
        GroupAdd, TrayWindow, ahk_id %UID%
    if IsHidden = 0
    {
        WinHide, ahk_group TrayWindow
        IsHidden = 1
        ;TrayTip,, hidden 1
    }
    else
    {
        WinShow, ahk_group TrayWindow
        IsHidden = 0
        ;TrayTip,, hidden 0
    }
return


ExitSub:
    WinShow, ahk_group TrayWindow
    ExitApp

WinGetClass, class, A
if class != Shell_TrayWnd
if class != Progman
if class != DV2ControlHost

WinGetClass, class, A
if class not in Shell_TrayWnd,Progman,DV2ControlHost

; Add excluded windows to the "Excluded" group:
GroupAdd, Excluded, ahk_class Shell_TrayWnd
GroupAdd, Excluded, ahk_class Progman
GroupAdd, Excluded, ahk_class DV2ControlHost
; Applies to hotkeys created afterwards with the Hotkey command:
Hotkey, IfWinNotActive, ahk_group Excluded
; This would also work for hotkeys between this and the next #IfWin:
;   #IfWinNotActive, ahk_group Excluded