Enumeration
 #Window_0
 #file
 #im_logo
 #rolik
 #text
 #button
 #Web
EndEnumeration
UseJPEGImageDecoder()

CatchImage(#im_logo,?Im1,  ?Im1End-?Im1)
url.s= "file://localhost/"+GetPathPart(ProgramFilename())+"проба.htm"
 
Procedure Cret(nom.s)
Dim Htm.s(10)
Htm(0)  = "<style>body{background-color:#444445;padding:0px;margin:0px}</style>" ; #444445
Htm(1)  = "<iframe"
Htm(2)  = "width='492'"
Htm(3)  = "height='398'"
Htm(4)  = "SCROLLING ='no'"
Htm(5)  = "MARGINWIDTH='0'"
Htm(6)  = "MARGINHEIGHT='0'"
Htm(7)  = "frameborder='no'"
Htm(8)  = "src='http://www.braznica.ru/ru/got_video/issues/"+nom.s+"/'     "
Htm(9)  = "style=' background:none; width:492px; height:398px; overflow:hidden; border:none;'>"
Htm(10) = "</iframe>"

If CreateFile(#file, "проба.htm")
   For x = 0 To 10
     WriteStringN(#file, Htm(x))
   Next x
 CloseFile(#file)
EndIf
EndProcedure

OpenWindow(#Window_0,0,0,492,560,"Большая разница",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered )
 
 ImageGadget(#im_logo,0,0,492,530,ImageID(#im_logo ))
 ;Delay(2000)
 ;ResizeGadget(#im_logo,-1000,#PB_Ignore,#PB_Ignore,#PB_Ignore)
 ;ResizeWindow(#Window_0,#PB_Ignore,#PB_Ignore,#PB_Ignore,450)

 StringGadget(#rolik,   8, 537, 50, 17,"238")             
 TextGadget  (#text,   90, 538, 150, 17,"Набери три цифры")
 ButtonGadget(#button,230, 535, 80, 20,"Загрузить")       

 WebGadget(#Web,-1000,0,492,398,"",#PB_Web_ScrollX)

Repeat
Event=  WaitWindowEvent()
Window= EventWindow()
Gadget= EventGadget()
   Select Event
        Case #PB_Event_Gadget
          Select EventGadget()
             Case #button
              Cret(LSet(GetGadgetText(#rolik), 3))
              SetGadgetText(#Web,url.s)
              ResizeGadget(#im_logo,-1000,#PB_Ignore,#PB_Ignore,#PB_Ignore)
              ResizeGadget(#rolik,   #PB_Ignore,403,#PB_Ignore,#PB_Ignore)
              ResizeGadget(#text,    #PB_Ignore,404,#PB_Ignore,#PB_Ignore)
              ResizeGadget(#button,  #PB_Ignore,402,#PB_Ignore,#PB_Ignore)
              ResizeWindow(#Window_0,#PB_Ignore,#PB_Ignore,#PB_Ignore,426)
              ResizeGadget(#Web,0,   #PB_Ignore,#PB_Ignore,#PB_Ignore)
          EndSelect
   EndSelect
If Event= #PB_Event_CloseWindow
Break
EndIf
ForEver

DataSection
 Im1:
 IncludeBinary "Лого.jpg"  
 Im1End:
EndDataSection