AutoIt
#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 100, 100, 1, 1, $WS_POPUP) $Button1 = GUICtrlCreateButton("Button1", 1, 1, 100, 100) GUISetState(@SW_SHOW) #endregion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 CreateButtonAndGraphic() EndSwitch WEnd Func CreateButtonAndGraphic() $Button1 = GUICtrlCreateButton("Button2", @DesktopWidth / 2, @DesktopHeight / 2, 100, 10) $Graphic1 = GUICtrlCreateGraphic(@DesktopWidth / 2, @DesktopHeight / 2, 500, 400) GUICtrlSetGraphic(-1, $GUI_GR_PENSIZE, 6) GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xFF0000) GUICtrlSetGraphic(-1, $GUI_GR_RECT, 2, 2, 510, 398) EndFunc
