Code: Alles auswählen
EnableExplicit
OpenWindow( 0, 0, 0, 600, 300, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered )
WebGadget( 0, 10, 10, 280, 280, "" )
WebGadget( 1, 310, 10, 280, 280, "" )
Define html$
html$ + "<!DOCTYPE HTML PUBLIC " + Chr(34) + "-//W3C//DTD HTML 4.01 Transitional//EN" + Chr(34) + ">" + #CRLF$
html$ + "<html>" + #CRLF$
html$ + "<head>" + #CRLF$
html$ + "<title>" + "WebGadget Test" + "</title>" + #CRLF$
html$ + "</head>" + #CRLF$
html$ + "<body>" + #CRLF$
html$ + "<p>Test</p>" + #CRLF$
html$ + "</body>" + #CRLF$
html$ + "</html>"
SetGadgetItemText( 0, #PB_Web_HtmlCode, html$ )
CreateFile( 0, GetCurrentDirectory() + "test.html" )
WriteString( 0, html$, #PB_UTF8 )
CloseFile( 0 )
SetGadgetText( 1, "file://"+ GetCurrentDirectory() + "test.html" )
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow