#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Local $hGUI = GUICreate("Example", 700,700)
Local $idMyedit = GUICtrlCreateEdit("" , 0,0, 500,250, $ES_AUTOVSCROLL + $WS_VSCROLL)
Local $idLabel = GUICtrlCreateLabel("путь к изображению",5, 300,250)
Local $idInput = GUICtrlCreateInput("i.jpg", 5, 350, 300, 20)
Local $idButton = GUICtrlCreateButton("создать разметку", 5,400, 150, 25)
GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $idButton
Local $image = GUICtrlRead($idInput)
Local $q = """"
Local $d =""
$d &= "<html>" & @CRLF & _
"<head>" & @CRLF & _
"<script>" & @CRLF & _
"function myfunc1()" & @CRLF & _
"{" & @CRLF & _
"var i = document.getElementById('myimage');" & @CRLF & _
"i.height+=15;" & @CRLF & _
"i.width+=15;" & @CRLF & _
"}" & @CRLF & _
"</script>" & @CRLF & _
"</head>" & @CRLF & _
"<body onload=" & $q & "setInterval('myfunc1()', 1000)" & $q & ">" & @CRLF & _
"<center>" & @CRLF & _
"<img id='myimage' height='200' width='200' src='" &$image& "'>" & @CRLF & _
"</center>" & @CRLF & _
"</body>" & @CRLF & _
"</html>"
GUICtrlSetData($idMyedit,$d)
EndSwitch
WEnd
|