RomchegChe
Новичок
- Сообщения
- 37
- Репутация
- 1
Здравствуйте, Уважаемые!
Пытаюсь сделать простейшую изменяемую графику, создаю прямоугольник и хочу что бы он постепенно уменьшался
Пытаюсь сделать простейшую изменяемую графику, создаю прямоугольник и хочу что бы он постепенно уменьшался
Код:
#include <GUIConstantsEx.au3>
$guiMain =GUICreate("main",320, 170, 1000, 530)
$InfoGraphic = GUICtrlCreateGraphic(0, 0, 200, 10, 0)
GUICtrlSetGraphic($InfoGraphic, $GUI_GR_COLOR, 0xff0000, 0xff0000)
GUICtrlSetGraphic($InfoGraphic, $GUI_GR_RECT, 0, 0, 200, 10)
GUISetState(@SW_SHOW, $guiMain)
$n = 1
Do
$msg = GUIGetMsg()
Sleep(100)
GUICtrlSetGraphic($InfoGraphic, $GUI_GR_COLOR, 0xff0000, 0xff0000)
GUICtrlSetGraphic($InfoGraphic, $GUI_GR_RECT, 0, 0, 200 - $n, 10)
$n = $n + 1
Until $msg = $GUI_EVENT_CLOSE