MoBiRo
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как сделать увеличение пространства окна? Вот мой скрипт...
Запустите его так как он есть, а потом откройте комментарии... вот хотелось что бы окно так не мигало =\ И вообще странно, что нету никакой команды для увеличения окна...
Код: #include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $Flag = 0
$Main = GUICreate("Resize", 155, 86, 232, 438, -1, $WS_EX_TOOLWINDOW)
$bt_Resize = GUICtrlCreateButton("", 128, 72, 19, 9, 0)
GUISetState(@SW_SHOW, $Main)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $bt_Resize
_Resize ()
EndSwitch
WEnd
Func _Resize ()
If $Flag = 0 Then
For $i = 86 to 220 Step 2
;~ GUIDelete ($Main)
$Main = GUICreate("Resize", 155, $i, 232, 438, -1, $WS_EX_TOOLWINDOW)
GUISetState(@SW_SHOW, $Main)
Next
$bt_Resize = GUICtrlCreateButton("", 128, 72, 19, 9, 0)
$Flag = 1
Else
For $i = 220 to 86 Step -2
;~ GUIDelete ($Main)
$Main = GUICreate("Resize", 155, $i, 232, 438, -1, $WS_EX_TOOLWINDOW)
GUISetState(@SW_SHOW, $Main)
Next
$bt_Resize = GUICtrlCreateButton("", 128, 72, 19, 9, 0)
$Flag = 0
EndIf
EndFunc |
Добавлено:
И можно ли как-либо задать окну прозрачность? Вот именно прозрачность, а не убрать форму GUI оставив все объекты... |
