;
;By jgpaiva
;date: February 2007
;Function: Move window to the other screen

Sysget,MonitorCount,MonitorCount
If (MonitorCount <> 2)
{
  msgbox, you need 2 monitors to run this program!
  exitapp
}

Sysget,Monitor1,Monitor,1
Sysget,Monitor2,Monitor,2

  If Monitor2Left > Monitor1Left
  {
	MonitorRLeft := Monitor2Left
	MonitorRRight := Monitor2Right
	MonitorRTop := Monitor2Top
	MonitorRBottom := Monitor2Bottom
	MonitorLLeft := Monitor1Left
	MonitorLRight := Monitor1Right
	MonitorLTop := Monitor1Top
	MonitorLBottom := Monitor1Bottom
  }
  else
  {
	MonitorRLeft := Monitor1Left
	MonitorRRight := Monitor1Right
	MonitorRTop := Monitor1Top
	MonitorRBottom := Monitor1Bottom
	MonitorLLeft := Monitor2Left
	MonitorLRight := Monitor2Right
	MonitorLTop := Monitor2Top
	MonitorLBottom := Monitor2Bottom
  }
MonitorLHeight := MonitorLBottom - MonitorLTop
MonitorLWidth  := MonitorLRight  - MonitorLLeft
MonitorRHeight := MonitorRBottom - MonitorRTop
MonitorRWidth  := MonitorRRight  - MonitorRLeft

Menu,Tray,Add,MoveWindow,MoveWindow
Menu,Tray,Default,MoveWindow
Menu,Tray,Standard
return

#z::
Movewindow:
  WinGet,MinMax,MinMax,A
  
  If (MinMax = 1)
  {
    WinRestore,A
  }
  WinGetPos,X,Y,Width,Height,A
  Midpoint := x + (Width/2)
  If (Midpoint >= MonitorRLeft)
  {
    ;;window in Right Monitor
    WinX := X - MonitorRLeft
  }
  else
  {
    ;;window in Left Monitor
    WinX := X + MonitorRLeft
  }
  
  WinY := Y
  WinWidth := Width
  WinHeight := Height
  WinMove,A,,WinX,WinY,WinWidth,WinHeight
  
  If (MinMax = 1)
  {
    WinMaximize,A
  }
return