Kiffi wrote:@Perkin: I cannot reproduce your problem. Do you have a xhtml-file for me?
Greetings ... Kiffi
Save this as test.xhtml (All upto < body > is from real file needed, the body is just Lorem text to fill the page, but still shows the same problem)
Code: Select all
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <title>Unknown</title>
</head>
<body>
<h1>Prologue</h1>
<p>Lorem ipsum dolor sit amet, consectetur adipiscing elit.</p>
<p>Nulla ac tellus nunc.</p>
<p>Phasellus imperdiet leo metus, et gravida lacus.</p>
<p>Donec metus ligula, elementum at pellentesque pellentesque, suscipit ac nunc.</p>
<p>Etiam lobortis, massa ac aliquam auctor, augue nisl sagittis urna, at dapibus tellus erat ullamcorper ligula.</p>
<p>Praesent orci dui, pulvinar id convallis a, faucibus non mauris.</p>
<p>Donec tellus augue, tempus sed facilisis sed, fringilla quis leo.</p>
<p>Mauris vulputate, leo ac facilisis vulputate, enim orci interdum augue, in blandit quam turpis quis dui.</p>
<p>Morbi dictum luctus velit nec faucibus.</p>
<p>Cras vitae tortor purus, ut tincidunt mauris.</p>
<p>Sed at velit nisl.</p>
<p>Donec eu mauris tortor, interdum condimentum erat.</p>
<p>Nam egestas turpis eget nibh laoreet pharetra.</p>
<p>Suspendisse a sem eros, ut pulvinar enim.</p>
<p>In sed elit eu nulla accumsan tincidunt eget sit amet ipsum.</p>
<p>Nullam ut massa rutrum dolor placerat tempor accumsan eget purus.</p>
</body>
</html>
Then try and open it with this, (fixed missing 'if zfile' from first post' code)
Code: Select all
If OpenWindow(1, 0, 0, 800, 600, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)
	
	ButtonGadget(0,4,4,60,24,"Open")
	WebGadget(1, 0,30, 800, 570,"")
	
	Repeat
		event = WaitWindowEvent()
		Select event
			Case #PB_Event_Gadget
				Select EventGadget()
					Case 0
						zfile.s=OpenFileRequester("Open File...","","Any|*.html;*.htm;*.xhtml*",0)
						If zfile
 							SetGadgetText(1,zfile)
						EndIf
				EndSelect
		EndSelect
	Until event = #PB_Event_CloseWindow
EndIf