AutoHotkey Community

;________________________________________________________________________
;--------------------
;HiRes Screen Splitter
;--------------------
;
;Split the screen in areas
;Really usefull for HiRes Monitor, make it look like dual monitor !
;
;Hotkey --> WinKey + Arrow direction && WinKey + Numpad 1 2 3 4 5 6 7 8 9
;________________________________________________________________________

#Numpad4::                       
#Left:: ;put the window in the left part of the screen
  WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
  WinMove,A,,0,0,A_ScreenWidth/2,A_ScreenHeight-TrayHeight
return

#Numpad6::
#Right:: ;put the window in the right part of the screen
  WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
  WinMove,A,,A_ScreenWidth/2,0,A_ScreenWidth/2,A_ScreenHeight-TrayHeight
return

#Numpad8::
#Up:: ;put the window in the top of the screen
  WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
  WinMove,A,,0,0,A_ScreenWidth,A_ScreenHeight/2-TrayHeight/2
return

#Numpad2::
#Down:: ;put the window in the bottom of the screen
  WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
  WinMove,A,,0,A_ScreenHeight/2-TrayHeight/2,A_ScreenWidth,A_ScreenHeight/2-TrayHeight/2
return

#Numpad5:: ;Maximize
  WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
  WinMove,A,,0,0,A_ScreenWidth,A_ScreenHeight-TrayHeight/2
return       

#Numpad7:: ;put the window in the upper left corner
  WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
  WinMove,A,,0,0,A_ScreenWidth/2,A_ScreenHeight/2-TrayHeight/2
return

#Numpad9:: ;put the window in the upper right corner
  WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
  WinMove,A,,A_ScreenWidth/2,0,A_ScreenWidth/2,A_ScreenHeight/2-TrayHeight/2
return

#Numpad3:: ;put the window in the bottom right corner
  WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
  WinMove,A,,A_ScreenWidth/2,A_ScreenHeight/2-TrayHeight/2,A_ScreenWidth/2,A_ScreenHeight/2-TrayHeight/2
return

#Numpad1:: ;put the window in the bottom left corner
  WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
  WinMove,A,,0,A_ScreenHeight/2-TrayHeight/2,A_ScreenWidth/2,A_ScreenHeight/2-TrayHeight/2
return

!1::       ;Alt+1 Hotkey
WinGetActiveTitle, TitleString ; Retrieves title into the variable 'TitleString'
Msgbox %TitleString% ; Tell the user what the windows name is in a msg box
return

#!Numpad1::
Msgbox You pressed %A_ThisHotkey%
return

;--------------------
;HiRes Screen Splitter -- by JOnGliko
;--------------------
;
;Split the screen in areas
;Really usefull for HiRes Monitor, make it look like dual monitor !
;
;
;Hotkey for the ACTIVE window--> WinKey + Arrow direction && WinKey + Numpad 1 2 3 4 5 6 7 8 9
;Hotkey for the window under the ACTIVE window--> WinKey + Alt + Arrow direction && WinKey + Alt Numpad 1 2 3 4 5 6 7 8 9
;Special Hotkey --> Two Time on the Up arrow maximize the active window (num 0 on the pad do the same)
;Special Hotkey --> Two Time on the down arrow minimize the active window
;_______________________________________________________________________


#Left::
#Numpad4:: ;put the Active window in the left part of the screen
   ToLeft()
Return

#!Left::
#!Numpad4::
   Send, !{esc}
   ToLeft()
   Send, !+{esc}
Return   
   
#Right::
#Numpad6::  ;put the Active window in the right part of the screen
  ToRight()
Return

#!Right::
#!Numpad6::
   Send, !{esc}
   ToRight()
   Send, !+{esc}
Return

#Up::
#Numpad8::
if (A_PriorHotkey <> "#Up" or A_TimeSincePriorHotkey > 400)
{
   KeyWait, Up
   ToUp() ; One time key press put the Active window to top
   return
}
   ToMaxi() ; Two time key press maximize the active window
Return

#!Numpad8::
#!Up::
   Send, !{esc}
   ToUp()
   Send, !+{esc}
Return

#Down::
#Numpad2::
if (A_PriorHotkey <> "#Down" or A_TimeSincePriorHotkey > 400)
{
   KeyWait, Down
   ToBottom()  ; One time key press put the window on the bottom
   return
}
   WinMinimize, A ; Two time key press minimize the active window
Return

#!Down::
#!Numpad2::
   Send, !{esc}
   ToBottom()
   Send, !+{esc}
Return

#Numpad0:: ;Maximize
   ToMaxi()
Return       

#Numpad7:: ;put the Active window in the upper left corner
   ToUpperLeft()
Return

#!Numpad7:: ;put the window in the upper left corner
   Send, !{esc}
   ToUpperLeft()
   Send, !+{esc}
Return

#Numpad9:: ;put the Active window in the upper right corner
   ToUpperRight()
Return

#!Numpad9:: ;put the window in the upper right corner
   Send, !{esc}
   ToUpperRight()
   Send, !+{esc}
Return

#Numpad3:: ;put the Active window in the bottom right corner
   ToBottomRight()
Return

#!Numpad3:: ;put the window in the bottom right corner
   Send, !{esc}
   ToBottomRight()
   Send, !+{esc}
Return

#Numpad1:: ;put the Active window in the bottom left corner
   ToBottomLeft()
Return

#!Numpad1:: ;put the window in the bottom left corner
   Send, !{esc}
   ToBottomLeft()
   Send, !+{esc}
Return

#Numpad5:: ;Center the Active window
   ToMiddle()
Return

#!Numpad5:: ;Center the window
   Send, !{esc}
   ToMiddle()
   Send, !+{esc}
Return

ToUp()
{
   WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
   WinMove,A,,0,0,A_ScreenWidth,A_ScreenHeight/2-TrayHeight/2
   Return
}
ToBottom()
{
   WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
   WinMove,A,,0,A_ScreenHeight/2-TrayHeight/2,A_ScreenWidth,A_ScreenHeight/2-TrayHeight/2
   Return
}
ToLeft()
{
   WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
   WinMove,A,,0,0,A_ScreenWidth/2,A_ScreenHeight-TrayHeight
   Return
}
ToRight()
{
   WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
   WinMove,A,,A_ScreenWidth/2,0,A_ScreenWidth/2,A_ScreenHeight-TrayHeight
   Return
}
ToMaxi()
{
   WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
   WinMove,A,,0,0,A_ScreenWidth,A_ScreenHeight-TrayHeight
   Return
}
ToMiddle()
{
   WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
   WinMove,A,,A_ScreenWidth/4,0,A_ScreenWidth/2,A_ScreenHeight-TrayHeight
   Return
}
ToUpperLeft()
{
   WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
   WinMove,A,,0,0,A_ScreenWidth/2,A_ScreenHeight/2-TrayHeight/2
   Return
}
ToUpperRight()
{
   WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
   WinMove,A,,A_ScreenWidth/2,0,A_ScreenWidth/2,A_ScreenHeight/2-TrayHeight/2
   Return
}
ToBottomLeft()
{
   WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
   WinMove,A,,0,A_ScreenHeight/2-TrayHeight/2,A_ScreenWidth/2,A_ScreenHeight/2-TrayHeight/2
}
ToBottomRight()
{
   WinGetPos,,,,TrayHeight,ahk_class Shell_TrayWnd,,,
   WinMove,A,,A_ScreenWidth/2,A_ScreenHeight/2-TrayHeight/2,A_ScreenWidth/2,A_ScreenHeight/2-TrayHeight/2
}