Что нового
Автор:
Фильтры

Mover|Resizer - таскаем и изменяем окна по сетке

V

VitAl2013

Гость
AutoIt: 3.3+
Версия: 0.1
Категория: Окна и диалоги
Описание: Перемещать и переобразмеривать окна по сетке 4х4. Сидит в трее, если нажать Ctrl+стрелка, то будет перемещать окно. Если Shift+стрелки, то ресайзить.
Код:
Код: 
;"MR" (Mover|Resizer) version 0.1

HotKeySet ("^{Left}", "fmLeft")
HotKeySet ("^{Right}", "fmRight")
HotKeySet ("^{UP}", "fmUP")
HotKeySet ("^{DOWN}", "fmDOWN")

HotKeySet ("+{Left}", "fvLeft")
HotKeySet ("+{Right}", "fvRight")
HotKeySet ("+{UP}", "fvUP")
HotKeySet ("+{DOWN}", "fvDOWN")

dim $ax[4], $ay[4], $aw[4], $ah[4], $active[4], $result[4]

$tray=WinGetPos("[CLASS:Shell_TrayWnd]")

For $x = 0 to 3 Step 1
    $ax[$x] = Round((@DesktopWidth/4)*($x+1))
Next

For $y = 0 to 3 Step 1
    $ay[$y] = Round(((@DesktopHeight-$tray[3])/4)*($y+1))
Next

;MsgBox (64, "", $ay[0] &" "& $ay[1] &" "& $ay[2] &" "& $ay[3] )

For $w = 0 to 3 Step 1
    $aw[$w] = Round((@DesktopWidth/4)*($w+1))
Next

For $h = 0 to 3 Step 1
    $ah[$h] = Round(((@DesktopHeight-$tray[3])/4)*($h+1))
Next

While 1
	$nMsg = GUIGetMsg()
WEnd

Func fmLeft()
WinSetState ("[ACTIVE]","", @SW_RESTORE)
$active=WinGetPos ("[ACTIVE]")
if $active[0] > 0 AND $active[0] < $ax[0] Then
	$result[0] = 0
ElseIf $active[0] >	$ax[0] and  $active[0] < $ax[1] Then
	$result[0] = $ax[0]
ElseIf $active[0] > $ax[1] and  $active[0] < $ax[2] Then
	$result[0] = $ax[1]
ElseIf $active[0] > $ax[2] and  $active[0] < $ax[3] Then
	$result[0] = $ax[2]
ElseIf $active[0] = 0 Then
	$result[0] = 0
ElseIf $active[0] = $ax[0] Then
	$result[0] = 0
ElseIf $active[0] = $ax[1] Then
	$result[0] = $ax[0]
ElseIf $active[0] = $ax[2] Then
	$result[0] = $ax[1]
EndIf
WinMove("[ACTIVE]","", $result[0], $active[1], $active[2], $active[3])
EndFunc

Func fmRight()
WinSetState ("[ACTIVE]","", @SW_RESTORE)
$active=WinGetPos ("[ACTIVE]")
if $active[0] > 0 AND $active[0] < $ax[0] Then
	$result[0] = $ax[0]
ElseIf $active[0] >	$ax[0] and  $active[0] < $ax[1] Then
	$result[0] = $ax[1]
ElseIf $active[0] > $ax[1] and  $active[0] < $ax[2] Then
	$result[0] = $ax[2]
ElseIf $active[0] > $ax[2] and  $active[0] < $ax[3] Then
	$result[0] = $ax[2]
ElseIf $active[0] = 0 Then
	$result[0] = $ax[0]
ElseIf $active[0] = $ax[0] Then
	$result[0] = $ax[1]
ElseIf $active[0] = $ax[1] Then
	$result[0] = $ax[2]
ElseIf $active[0] = $ax[2] Then
	$result[0] = $ax[2]
EndIf
WinMove("[ACTIVE]","", $result[0], $active[1], $active[2], $active[3])
EndFunc

Func fmUP()
WinSetState ("[ACTIVE]","", @SW_RESTORE)
$active=WinGetPos ("[ACTIVE]")
if $active[1] > 0 AND $active[1] < $ay[0] Then
	$result[1] = 0
ElseIf $active[1] >	$ay[0] and  $active[1] < $ay[1] Then
	$result[1] = $ay[0]
ElseIf $active[1] > $ay[1] and  $active[1] < $ay[2] Then
	$result[1] = $ay[1]
ElseIf $active[1] > $ay[2] and  $active[1] < $ay[3] Then
	$result[1] = $ay[2]
ElseIf $active[1] = 0 Then
	$result[1] = 0
ElseIf $active[1] = $ay[0] Then
	$result[1] = 0
ElseIf $active[1] = $ay[1] Then
	$result[1] = $ay[0]
ElseIf $active[1] = $ay[2] Then
	$result[1] = $ay[1]
EndIf
WinMove("[ACTIVE]", "", $active[0], $result[1],  $active[2], $active[3])
EndFunc

Func fmDOWN()
WinSetState ("[ACTIVE]","", @SW_RESTORE)
$active=WinGetPos ("[ACTIVE]")
if $active[1] > 0 AND $active[1] < $ay[0] Then
	$result[1] = $ay[0]
ElseIf $active[1] >	$ay[0] and  $active[1] < $ay[1] Then
	$result[1] = $ay[1]
ElseIf $active[1] > $ay[1] and  $active[1] < $ay[2] Then
	$result[1] = $ay[2]
ElseIf $active[1] > $ay[2] and  $active[1] < $ay[3] Then
	$result[1] = $ay[2]
ElseIf $active[1] = 0 Then
	$result[1] = $ay[0]
ElseIf $active[1] = $ay[0] Then
	$result[1] = $ay[1]
ElseIf $active[1] = $ay[1] Then
	$result[1] = $ay[2]
ElseIf $active[1] = $ay[2] Then
	$result[1] = $ay[2]
EndIf
WinMove("[ACTIVE]", "", $active[0], $result[1],  $active[2], $active[3])
EndFunc

Func fvLeft()
WinSetState ("[ACTIVE]","", @SW_RESTORE)
$active=WinGetPos ("[ACTIVE]")
if $active[2] > 0 AND $active[2] < $aw[0] Then
	$result[2] = 0
ElseIf $active[2] >	$aw[0] and  $active[2] < $aw[1] Then
	$result[2] = $aw[0]
ElseIf $active[2] > $aw[1] and  $active[2] < $aw[2] Then
	$result[2] = $aw[1]
ElseIf $active[2] > $aw[2] and  $active[2] < $aw[3] Then
	$result[2] = $aw[2]
ElseIf $active[2] = $aw[0] Then
	$result[2] = $aw[0]
ElseIf $active[2] = $aw[1] Then
	$result[2] = $aw[0]
ElseIf $active[2] = $aw[2] Then
	$result[2] = $aw[1]
ElseIf $active[2] = $aw[3] Then
	$result[2] = $aw[2]
EndIf
WinMove("[ACTIVE]","", $active[0], $active[1], $result[2], $active[3])
EndFunc

Func fvRight()
WinSetState ("[ACTIVE]","", @SW_RESTORE)
$active=WinGetPos ("[ACTIVE]")
if $active[2] > 0 AND $active[2] < $aw[0] Then
	$result[2] = $aw[0]
ElseIf $active[2] >	$aw[0] and  $active[2] < $aw[1] Then
	$result[2] = $aw[1]
ElseIf $active[2] > $aw[1] and  $active[2] < $aw[2] Then
	$result[2] = $aw[2]
ElseIf $active[2] > $aw[2] and  $active[2] < $aw[3] Then
	$result[2] = $aw[2]
ElseIf $active[2] = $aw[0] Then
	$result[2] = $aw[1]
ElseIf $active[2] = $aw[1] Then
	$result[2] = $aw[2]
ElseIf $active[2] = $aw[2] Then
	$result[2] = $aw[3]
ElseIf $active[2] = $aw[3] Then
	$result[2] = $aw[3]
EndIf
WinMove("[ACTIVE]","", $active[0], $active[1], $result[2], $active[3])
EndFunc

Func fvUP()
WinSetState ("[ACTIVE]","", @SW_RESTORE)
$active=WinGetPos ("[ACTIVE]")
if $active[3] > 0 AND $active[3] < $ah[0] Then
	$result[3] = $ah[0]
ElseIf $active[3] >	$ah[0] and  $active[3] < $ah[1] Then
	$result[3] = $ah[0]
ElseIf $active[3] > $ah[1] and  $active[3] < $ah[2] Then
	$result[3] = $ah[1]
ElseIf $active[3] > $ah[2] and  $active[3] < $ah[3] Then
	$result[3] = $ah[2]
ElseIf $active[3] = $ah[0] Then
	$result[3] = $ah[0]
ElseIf $active[3] = $ah[1] Then
	$result[3] = $ah[0]
ElseIf $active[3] = $ah[2] Then
	$result[3] = $ah[1]
ElseIf $active[3] = $ah[3] Then
	$result[3] = $ah[2]
EndIf
WinMove("[ACTIVE]","", $active[0], $active[1], $active[2], $result[3])
EndFunc

Func fvDOWN()
WinSetState ("[ACTIVE]","", @SW_RESTORE)
$active=WinGetPos ("[ACTIVE]")
if $active[3] > 0 AND $active[3] < $ah[0] Then
	$result[3] = $ah[0]
ElseIf $active[3] >	$ah[0] and  $active[3] < $ah[1] Then
	$result[3] = $ah[1]
ElseIf $active[3] > $ah[1] and  $active[3] < $ah[2] Then
	$result[3] = $ah[2]
ElseIf $active[3] > $ah[2] and  $active[3] < $ah[3] Then
	$result[3] = $ah[3]
ElseIf $active[3] = $ah[0] Then
	$result[3] = $ah[1]
ElseIf $active[3] = $ah[1] Then
	$result[3] = $ah[2]
ElseIf $active[3] = $ah[2] Then
	$result[3] = $ah[3]
ElseIf $active[3] = $ah[3] Then
	$result[3] = $ah[3]
EndIf
WinMove("[ACTIVE]","", $active[0], $active[1], $active[2], $result[3])
EndFunc

Скриншота нет, так как работает из трея.

Автор: VitAl2013
Дальнейшие планы: адаптация под 2 монитора, добавление функций развёртки как в 7ке - мышкой по краю двойной клик, кастомная сетка, трейное меню и иконка другая. :smile:
 
kaster

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Re: Mover|Resizer

Просьба к участникам форума протестировать.
Если глюков замечено не будет, перенесу в раздел разработок
 
madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,323
Re: Mover|Resizer

У меня глюков нет. :smile:
 
SyDr

SyDr

Сидра
Сообщения
651
Репутация
158
Re: Mover|Resizer

Код: 
While 1
    $nMsg = GUIGetMsg()
WEnd
Нажмите, чтобы раскрыть...
Это зачем?

Оператор Select очень похож, но обычно используется в ситуации, когда необходимо проверить множество условий.
Этот оператор обычно легче читать, чем длинный блок с If/ElseIf. Например:

$var = 30

Select
Case $var > 1 AND $var <= 10
MsgBox(0, "Пример", "$var больше 1")

Case $var > 10 AND $var <= 20
MsgBox(0, "Пример", "$var больше 10")

Case $var > 20 AND $var <= 30
MsgBox(0, "Пример", "$var больше 20")

Case $var > 30 AND $var <= 40
MsgBox(0, "Пример", "$var больше 30")

Case $var > 40
MsgBox(0, "Пример", "$var больше 40")
EndSelect
 
CreatoR

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,673
Репутация
2,486
Re: Mover|Resizer

Kaster [?]
Если глюков замечено не будет, перенесу в раздел разработок
Нажмите, чтобы раскрыть...
Предварительно переименовав тему и подправив оформление темы (хотя это скорее к автору темы :smile: ).
 
Автор
V

VitAl2013

Гость
Re: Mover|Resizer

Это зачем?
Нажмите, чтобы раскрыть...
а у меня она сразу завершается если без этого.
Про select была мысль, но мне от чего-то показалось что if работает быстрее. Ну и если метить на кастомную сетку, то этот блок надо переписывать начисто всё равно.

Предварительно переименовав тему
Нажмите, чтобы раскрыть...
Как именно? Ткните носом плиз.
 
kaster

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Re: Mover|Resizer

название и содержание на подобие вот этих. - http://autoit-script.ru/index.php?board=7.0
плюс, можешь воспользоваться вот этим инструментом - http://autoit-script.ru/index.php?topic=144.0
ну и не забудь почитать вот это - http://autoit-script.ru/index.php?topic=9.0
 
Yashied

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
Re: Mover|Resizer

OffTopic:
Это сообщение посчитали полезным следующие участники...

:smile:
 
Автор
V

VitAl2013

Гость
Вроде отредактировал. :whistle:
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Верх