mirror of
https://github.com/jgpaiva/GridMove.git
synced 2024-10-05 18:31:04 +01:00
568 lines
12 KiB
AutoHotkey
568 lines
12 KiB
AutoHotkey
;GridMove
|
|
;By jgpaiva
|
|
;date: May 2006
|
|
;function: Adjusts windows to a predefined or user-defined desktop grid.
|
|
|
|
Command:
|
|
|
|
GoSub, ShowGroups
|
|
|
|
Drop_Command:
|
|
Settimer,Drop_Command,off
|
|
OSDwrite("- -")
|
|
Input,FirstNumber,I L1 T10,{esc},1,2,3,4,5,6,7,8,9,0,m,r,n,M,v,a,e
|
|
If ErrorLevel = Max
|
|
{
|
|
OSDwrite("| |")
|
|
sleep,200
|
|
GoSub,Command
|
|
}
|
|
If (ErrorLevel = "Timeout" OR ErrorLevel = "EndKey")
|
|
{
|
|
GoSub, Command_Hide
|
|
return
|
|
}
|
|
|
|
If FirstNumber is not number
|
|
{
|
|
If (FirstNumber = "M")
|
|
{
|
|
winget,state,minmax,A
|
|
if state = 1
|
|
WinRestore,A
|
|
else
|
|
PostMessage, 0x112, 0xF030,,, A,
|
|
}
|
|
Else If (FirstNumber = "e")
|
|
{
|
|
GoSub, Command_Hide
|
|
exitapp
|
|
return
|
|
}
|
|
Else If (FirstNumber = "A")
|
|
{
|
|
GoSub, Command_Hide
|
|
gosub,AboutHelp
|
|
return
|
|
}
|
|
Else If (FirstNumber = "V")
|
|
{
|
|
GoSub, Command_Hide
|
|
msgbox,NOT DONE!!
|
|
; WinMove, A, ,%WinLeft%,%GridTop%, %WinWidth%,% GridBottom - GridTop,
|
|
; StoreWindowState(WindowId,WinLeft,WinTop,WinWidth,WinHeight)
|
|
return
|
|
}
|
|
Else If (FirstNumber = "R")
|
|
{
|
|
GoSub, Command_Hide
|
|
Reload
|
|
}
|
|
Else If FirstNumber = n
|
|
{
|
|
gosub, NextGrid
|
|
gosub, command
|
|
return
|
|
}
|
|
GoSub, Command_Hide
|
|
return
|
|
}
|
|
|
|
If (NGroups < FirstNumber * 10)
|
|
{
|
|
If (FirstNumber = "0")
|
|
{
|
|
GoSub, Command_Hide
|
|
WinMinimize,A
|
|
return
|
|
}
|
|
GoSub, Command_Hide
|
|
MoveToGrid(FirstNumber)
|
|
return
|
|
}
|
|
|
|
Command2:
|
|
output := FirstNumber . " -"
|
|
OSDwrite(Output)
|
|
Input,SecondNumber,I L1 T2,{esc}{enter},1,2,3,4,5,6,7,8,9,0
|
|
If ErrorLevel = Max
|
|
{
|
|
OSDwrite("")
|
|
sleep,500
|
|
GoSub,Command2
|
|
}
|
|
|
|
If(ErrorLevel = "Timeout")
|
|
{
|
|
If (FirstNumber = "0")
|
|
{
|
|
GoSub, Command_Hide
|
|
WinMinimize,A
|
|
return
|
|
}
|
|
GoSub, Command_Hide
|
|
MoveToGrid(FirstNumber)
|
|
return
|
|
}
|
|
If(ErrorLevel = "EndKey:enter")
|
|
{
|
|
If (FirstNumber = "0")
|
|
{
|
|
GoSub, Command_Hide
|
|
WinMinimize,A
|
|
return
|
|
}
|
|
GoSub, Command_Hide
|
|
MoveToGrid(FirstNumber)
|
|
return
|
|
}
|
|
If(ErrorLevel = "EndKey:esc")
|
|
{
|
|
GoSub, Command_Hide
|
|
return
|
|
}
|
|
|
|
If firstnumber = 0
|
|
GridNumber := SecondNumber
|
|
else
|
|
GridNumber := FirstNumber . SecondNumber
|
|
GoSub, Command_Hide
|
|
MoveToGrid(GridNumber)
|
|
return
|
|
|
|
OSDCreate()
|
|
{
|
|
global OSD
|
|
Gui,4: +ToolWindow +AlwaysOnTop -Disabled -SysMenu -Caption
|
|
Gui,4: Font,S13
|
|
Gui,4: Add, Button, vOSD x0 y0 w100 h30 ,
|
|
Gui,4: Color, EEAAEE
|
|
Gui,4: Show, x0 y0 w0 h0 noactivate, OSD
|
|
Gui,4: hide
|
|
WinSet, TransColor, EEAAEE,OSD
|
|
return
|
|
}
|
|
|
|
OSDWrite(Value)
|
|
{
|
|
Global OSD
|
|
Global Monitor1Width
|
|
Global Monitor1Height
|
|
Global Monitor1Top
|
|
Global Monitor1Left
|
|
XPos := Monitor1Left + Monitor1Width / 2 - 50
|
|
YPos := Monitor1Top + Monitor1Height / 2 - 15
|
|
GuiControl, 4:Text, OSD, %value%
|
|
Gui,4: +ToolWindow +AlwaysOnTop -Disabled -SysMenu -Caption
|
|
Gui,4:Show, x%Xpos% y%Ypos% w100 h30 noactivate
|
|
return
|
|
}
|
|
|
|
OSDHide()
|
|
{
|
|
Gui,4:hide,
|
|
return
|
|
}
|
|
|
|
MoveToGrid(GridToMove)
|
|
{
|
|
global
|
|
triggerTop := %GridToMove%TriggerTop
|
|
triggerBottom := %GridToMove%TriggerBottom
|
|
triggerRight := %GridToMove%TriggerRight
|
|
triggerLeft := %GridToMove%TriggerLeft
|
|
GridBottom :=0
|
|
GridRight :=0
|
|
GridTop :=0
|
|
GridLeft :=0
|
|
|
|
GridTop := %GridToMove%GridTop
|
|
GridBottom := %GridToMove%GridBottom
|
|
GridRight := %GridToMove%GridRight
|
|
GridLeft := %GridToMove%GridLeft
|
|
|
|
|
|
WinGetPos, WinLeft, WinTop, WinWidth, WinHeight,A
|
|
WinGetClass,WinClass,A
|
|
WinGet,WindowId,id,A
|
|
WinGet,WinStyle,Style,A
|
|
|
|
if SafeMode
|
|
if not (WinStyle & 0x40000) ;0x40000 = WS_SIZEBOX = WS_THICKFRAME
|
|
{
|
|
Return
|
|
}
|
|
|
|
if (WinClass = "DV2ControlHost" OR Winclass = "Progman"
|
|
OR Winclass = "Shell_TrayWnd")
|
|
Return
|
|
|
|
If Winclass in %Exceptions%
|
|
Return
|
|
|
|
If (GridTop = )
|
|
return
|
|
|
|
If (GridLeft = "WindowWidth" AND GridRight = "WindowWidth")
|
|
{
|
|
WinGetClass,WinClass,A
|
|
|
|
if ShouldUseSizeMoveMessage(WinClass)
|
|
SendMessage WM_ENTERSIZEMOVE, , , ,ahk_id %windowid%
|
|
|
|
WinMove, A, ,%WinLeft%,%GridTop%, %WinWidth%,% GridBottom - GridTop,
|
|
|
|
if ShouldUseSizeMoveMessage(WinClass)
|
|
SendMessage WM_EXITSIZEMOVE, , , ,ahk_id %windowid%
|
|
StoreWindowState(WindowId,WinLeft,WinTop,WinWidth,WinHeight)
|
|
return
|
|
}
|
|
If (GridTop = "WindowHeight" AND GridBottom = "WindowHeight")
|
|
{
|
|
WinGetClass,WinClass,A
|
|
|
|
if ShouldUseSizeMoveMessage(WinClass)
|
|
SendMessage WM_ENTERSIZEMOVE, , , ,ahk_id %windowid%
|
|
|
|
WinMove, A, ,%GridLeft%,%WinTop%, % GridRight - GridLeft,%WinHeight%,
|
|
|
|
if ShouldUseSizeMoveMessage(WinClass)
|
|
SendMessage WM_EXITSIZEMOVE, , , ,ahk_id %windowid%
|
|
StoreWindowState(WindowId,WinLeft,WinTop,WinWidth,WinHeight)
|
|
return
|
|
}
|
|
If (GridTop = "AlwaysOnTop")
|
|
{
|
|
WinSet, AlwaysOnTop, Toggle,A
|
|
return
|
|
}
|
|
If (GridTop = "Maximize")
|
|
{
|
|
winget,state,minmax,A
|
|
if state = 1
|
|
WinRestore,A
|
|
else
|
|
PostMessage, 0x112, 0xF030,,, A,
|
|
return
|
|
}
|
|
If (GridTop = "Run")
|
|
{
|
|
Run,%GridLeft% ,%GridRight%
|
|
return
|
|
}
|
|
if (GridTop = "Restore")
|
|
{
|
|
data := GetWindowState(WindowId)
|
|
If data
|
|
{
|
|
GridLeft := WindowX
|
|
GridRight := WindowX + WindowWidth
|
|
GridTop := WindowY
|
|
GridBottom:= WindowY + WindowHeight
|
|
WinRestore,A
|
|
|
|
WinGetClass,WinClass,A
|
|
|
|
if ShouldUseSizeMoveMessage(WinClass)
|
|
SendMessage WM_ENTERSIZEMOVE, , , ,ahk_id %windowid%
|
|
|
|
WinMove, A, ,%GridLeft%,%GridTop%,% GridRight - GridLeft,% GridBottom - GridTop
|
|
|
|
if ShouldUseSizeMoveMessage(WinClass)
|
|
SendMessage WM_EXITSIZEMOVE, , , ,ahk_id %windowid%
|
|
|
|
StoreWindowState(WindowId,WinLeft,WinTop,WinWidth,WinHeight)
|
|
}
|
|
return
|
|
}
|
|
GridTop := round(GridTop)
|
|
GridLeft := round(GridLeft)
|
|
GridRight := round(GridRight)
|
|
GridBottom := round(GridBottom)
|
|
|
|
GridWidth := GridRight - GridLeft
|
|
GridHeight := GridBottom - GridTop
|
|
|
|
WinRestore,A
|
|
|
|
WinGetClass,WinClass,A
|
|
|
|
if ShouldUseSizeMoveMessage(WinClass)
|
|
SendMessage WM_ENTERSIZEMOVE, , , ,ahk_id %windowid%
|
|
|
|
WinMove, A, ,%GridLeft%,%GridTop%,%GridWidth%,%GridHeight%
|
|
|
|
if ShouldUseSizeMoveMessage(WinClass)
|
|
SendMessage WM_EXITSIZEMOVE, , , ,ahk_id %windowid%
|
|
|
|
StoreWindowState(WindowId,WinLeft,WinTop,WinWidth,WinHeight)
|
|
return
|
|
}
|
|
|
|
Command_Hide:
|
|
critical,on
|
|
Gosub, Cancel
|
|
critical,off
|
|
GoSub, HideGroups
|
|
OSDHide()
|
|
return
|
|
|
|
DefineHotkeys:
|
|
loop,9
|
|
{
|
|
Hotkey, %FastMoveModifiers%%A_Index%, WinHotkeys
|
|
Hotkey, %FastMoveModifiers%Numpad%A_Index%, WinHotkeys
|
|
}
|
|
Hotkey, %FastMoveModifiers%0, WinHotKey
|
|
Hotkey, %FastMoveModifiers%Numpad0, WinHotkeys
|
|
if FastMoveMeta <>
|
|
Hotkey, %FastMoveModifiers%%FastMoveMeta%, WinHotkeysMeta
|
|
return
|
|
|
|
WinHotkeys:
|
|
StringRight,Number,A_ThisHotkey,1
|
|
MoveToGrid(Number)
|
|
return
|
|
|
|
WinHotkeysMeta:
|
|
GoSub, ShowGroups
|
|
|
|
Settimer,Drop_Command,off
|
|
OSDwrite("- -")
|
|
Input,FirstNumber,I L1 T10,{esc},1,2,3,4,5,6,7,8,9,0,m,r,n,M,v,a,e
|
|
If ErrorLevel = Max
|
|
{
|
|
OSDwrite("| |")
|
|
sleep,200
|
|
GoSub,WinHotkeysMeta
|
|
}
|
|
If (ErrorLevel = "Timeout" OR ErrorLevel = "EndKey")
|
|
{
|
|
GoSub, Command_Hide
|
|
return
|
|
}
|
|
|
|
If FirstNumber is not number
|
|
{
|
|
If (FirstNumber = "M")
|
|
{
|
|
winget,state,minmax,A
|
|
if state = 1
|
|
WinRestore,A
|
|
else
|
|
PostMessage, 0x112, 0xF030,,, A,
|
|
}
|
|
Else If (FirstNumber = "e")
|
|
{
|
|
GoSub, Command_Hide
|
|
exitapp
|
|
return
|
|
}
|
|
Else If (FirstNumber = "A")
|
|
{
|
|
GoSub, Command_Hide
|
|
gosub,AboutHelp
|
|
return
|
|
}
|
|
Else If (FirstNumber = "V")
|
|
{
|
|
GoSub, Command_Hide
|
|
msgbox,NOT DONE!!
|
|
; WinMove, A, ,%WinLeft%,%GridTop%, %WinWidth%,% GridBottom - GridTop,
|
|
; StoreWindowState(WindowId,WinLeft,WinTop,WinWidth,WinHeight)
|
|
return
|
|
}
|
|
Else If (FirstNumber = "R")
|
|
{
|
|
GoSub, Command_Hide
|
|
Reload
|
|
}
|
|
Else If FirstNumber = n
|
|
{
|
|
gosub, NextGrid
|
|
gosub, command
|
|
return
|
|
}
|
|
GoSub, Command_Hide
|
|
return
|
|
}
|
|
|
|
GoSub, Command_Hide
|
|
FirstNumber := FirstNumber + 10
|
|
MoveToGrid(FirstNumber)
|
|
return
|
|
|
|
WinHotkey:
|
|
MoveToGrid("10")
|
|
return
|
|
|
|
MoveToPrevious:
|
|
direction = back
|
|
|
|
MoveToNext:
|
|
if direction <> back
|
|
direction = forward
|
|
|
|
WinGetPos,WinLeft,WinTop,WinWidth,WinHeight,A
|
|
current = 0
|
|
loop %NGroups%
|
|
{
|
|
triggerTop := %A_Index%TriggerTop
|
|
triggerBottom := %A_Index%TriggerBottom
|
|
triggerRight := %A_Index%TriggerRight
|
|
triggerLeft := %A_Index%TriggerLeft
|
|
|
|
GridToMove := A_index
|
|
GridTop := %GridToMove%GridTop
|
|
GridBottom := %GridToMove%GridBottom
|
|
GridRight := %GridToMove%GridRight
|
|
GridLeft := %GridToMove%GridLeft
|
|
|
|
If GridTop = WindowHeight
|
|
continue
|
|
If GridLeft = WindowWidth
|
|
continue
|
|
If GridTop = AlwaysOnTop
|
|
continue
|
|
If GridTop = Maximize
|
|
continue
|
|
If GridTop = Run
|
|
continue
|
|
If GridTop = Restore
|
|
continue
|
|
|
|
GridTop := round(GridTop)
|
|
GridBottom := round(GridBottom)
|
|
GridRight := round(GridRight)
|
|
GridLeft := round(GridLeft)
|
|
|
|
GridHeight := GridBottom - GridTop
|
|
GridWidth := GridRight - GridLeft
|
|
|
|
if (WinTop = GridTop && WinLeft = GridLeft
|
|
&& WinHeight = GridHeight && WinWidth = GridWidth)
|
|
{
|
|
current := a_index
|
|
break
|
|
}
|
|
;msgbox,% GridTop GridBottom Grid
|
|
}
|
|
if (current = 0 AND direction = "back")
|
|
current := ngroups + 1
|
|
|
|
if direction = forward
|
|
{
|
|
loop %NGroups%
|
|
{
|
|
if (a_index <= current)
|
|
continue
|
|
|
|
GridToMove := A_index
|
|
GridTop := %GridToMove%GridTop
|
|
GridBottom := %GridToMove%GridBottom
|
|
GridRight := %GridToMove%GridRight
|
|
GridLeft := %GridToMove%GridLeft
|
|
|
|
If GridTop = WindowHeight
|
|
continue
|
|
If GridLeft = WindowWidth
|
|
continue
|
|
If GridTop = AlwaysOnTop
|
|
continue
|
|
If GridTop = Maximize
|
|
continue
|
|
If GridTop = Run
|
|
continue
|
|
If GridTop = Restore
|
|
continue
|
|
|
|
MoveToGrid(A_Index)
|
|
direction =
|
|
return
|
|
}
|
|
loop %NGroups%
|
|
{
|
|
GridToMove := A_index
|
|
GridTop := %GridToMove%GridTop
|
|
GridBottom := %GridToMove%GridBottom
|
|
GridRight := %GridToMove%GridRight
|
|
GridLeft := %GridToMove%GridLeft
|
|
|
|
If GridTop = WindowHeight
|
|
continue
|
|
If GridLeft = WindowWidth
|
|
continue
|
|
If GridTop = AlwaysOnTop
|
|
continue
|
|
If GridTop = Maximize
|
|
continue
|
|
If GridTop = Run
|
|
continue
|
|
If GridTop = Restore
|
|
continue
|
|
|
|
MoveToGrid(A_Index)
|
|
direction =
|
|
return
|
|
}
|
|
}
|
|
|
|
if direction = back
|
|
{
|
|
loop %NGroups%
|
|
{
|
|
if (Ngroups - a_index + 1 >= current)
|
|
continue
|
|
|
|
GridToMove := NGroups - A_index + 1
|
|
GridTop := %GridToMove%GridTop
|
|
GridBottom := %GridToMove%GridBottom
|
|
GridRight := %GridToMove%GridRight
|
|
GridLeft := %GridToMove%GridLeft
|
|
|
|
If GridTop = WindowHeight
|
|
continue
|
|
If GridLeft = WindowWidth
|
|
continue
|
|
If GridTop = AlwaysOnTop
|
|
continue
|
|
If GridTop = Maximize
|
|
continue
|
|
If GridTop = Run
|
|
continue
|
|
If GridTop = Restore
|
|
continue
|
|
|
|
MoveToGrid(Ngroups - A_Index + 1)
|
|
direction =
|
|
return
|
|
}
|
|
loop %NGroups%
|
|
{
|
|
GridToMove := NGroups - A_index + 1
|
|
GridTop := %GridToMove%GridTop
|
|
GridBottom := %GridToMove%GridBottom
|
|
GridRight := %GridToMove%GridRight
|
|
GridLeft := %GridToMove%GridLeft
|
|
|
|
If GridTop = WindowHeight
|
|
continue
|
|
If GridLeft = WindowWidth
|
|
continue
|
|
If GridTop = AlwaysOnTop
|
|
continue
|
|
If GridTop = Maximize
|
|
continue
|
|
If GridTop = Run
|
|
continue
|
|
If GridTop = Restore
|
|
continue
|
|
|
|
MoveToGrid(Ngroups - A_Index + 1)
|
|
direction =
|
|
return
|
|
}
|
|
}
|
|
direction =
|
|
return
|