Enumeration  
  #Window_0
  #file
  #im_logo
  #rolik
  #text
  #button
  #Web
  #but1
  #but2
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,"Загрузить")  
  ButtonGadget(#but1,350, 535, 40, 20,"<<<")
  ButtonGadget(#but2,400, 535, 40, 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)
  ResizeGadget(#but1,#PB_Ignore,402,#PB_Ignore,#PB_Ignore)
  ResizeGadget(#but2,#PB_Ignore,402,#PB_Ignore,#PB_Ignore)
  Case #but1
  SetGadgetText(#rolik, Str(Val(GetGadgetText(#rolik))-1))
  Case #but2
  SetGadgetText(#rolik, Str(Val(GetGadgetText(#rolik))+1))
  EndSelect  
  EndSelect  
If Event= #PB_Event_CloseWindow  
Break
EndIf  
ForEver

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