Build-a-Browser

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|551\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Off Topic -> Build-a-Browser
Page : 1 Prev 2 Next
Wed, 15 Oct 2014, 14:46
dna	; A Basic Blitz Web Browser! win=CreateWindow("Basic Blitz Web Browser",100,100,500,500,0,35) ; Create htmlview gadget html = CreateHtmlView(0,0,500,480,win) ; Ensure the HTML view will stretch to meet the size of the window when it is resized SetGadgetLayout html,1,1,1,1 ; Go to URL HtmlViewGo html,"http:\\www.blitzbasic.com" ; Create label gadget that will display current url label=CreateLabel("",0,480,500,20,win,3) ; Ensure that the label stays at the bottom of the window SetGadgetLayout label,1,1,0,1 Repeat id = WaitEvent() If id=$803 Then Exit ; If gadget event occurs... If id=$401 ; Set label's text to that of the htmlview current url. This is the url of the page currently displayed by the htmlview gadget SetGadgetText label,HtmlViewCurrentURL$(html) EndIf Forever --v There it is kuron. Right from the samples in B Plus. Kind of surprised that it's not in B3D since I regard the 3D functions as being more forward than a compiler that lacks embedded 3D capability. -=-=- DNA
Wed, 15 Oct 2014, 15:08
dna	It works. I loaded a website but the window gave the message that the browser was out of date. -=-=- DNA
Wed, 15 Oct 2014, 15:52
dna	Oh. It's my version of IE then. I run windows 7 Home Premium and since I moved away from IE in favor of Chrome, its an older version. I worry that more memory would be needed to run the newer IE browser and so I do not update the thing. -=-=- DNA
Page : 1 Prev 2 Next