HTML-Anzeige
Verfasst: 13.05.2012 08:08
Hallo zusammen,
mit dem Webgadget lassen sich ja nette Oberflächen basteln. Damit es etwas einfacher geht, habe ich nachstehende Routine gemacht:
damit kann eine Standardvorlage (CSS/HTML) genutzt werden, die man einfach als Binärdatei einbindet.
Vielleicht hat ja noch jemand ein paar schöne CSS -Beispiele (zB für Listen, Tabellen etc.), die wir hier sammeln können ?
CA
Oli
template.htm:
mit dem Webgadget lassen sich ja nette Oberflächen basteln. Damit es etwas einfacher geht, habe ich nachstehende Routine gemacht:
damit kann eine Standardvorlage (CSS/HTML) genutzt werden, die man einfach als Binärdatei einbindet.
Vielleicht hat ja noch jemand ein paar schöne CSS -Beispiele (zB für Listen, Tabellen etc.), die wir hier sammeln können ?
CA
Oli
Code: Alles auswählen
Global HTMLStyle$
Procedure NavigationCallback(Gadget, Url$)
Protected slnk$, bRet
If FindString(url$,"#")>0
slnk$=StringField(URL$,2,"#")
Else
slnk$=Url$
EndIf
Debug slnk$
Select UCase(slnk$)
Case "COMMAND1"
ProcedureReturn #False
Default
EndSelect
ProcedureReturn #True
EndProcedure
Procedure SetHTML (iGadget,sText$,sTemplate$="", bNoScroll=1,AltNavCallback=0)
Protected st$, stmp$
Protected Browser.iwebbrowser2
; iGadget: Webgadget
; sText$: anzuzeigender Text
; sTemplate$: HTML/CSS-Vorlage (optional)
; bNoScroll: rechte Scrollbar ausblenden
; AltNavCallback: Alternative Callbackfunction für Ereignisverarbeitung
If IsGadget(iGadget)
Browser.iwebbrowser2=GetWindowLongPtr_(GadgetID(iGadget),#GWL_USERDATA)
If browser
browser\put_Silent(#True)
EndIf
If sTemplate$=""
st$=HTMLStyle$
Else
st$=sTemplate$
EndIf
If bNoScroll=1: stmp$="scroll='no'":EndIf
st$=ReplaceString(st$,"[SCROLL]",stmp$)
st$=ReplaceString(st$,"[TEXT]",sText$)
SetGadgetItemText(iGadget,#PB_Web_HtmlCode,st$)
If AltNavCallback=0
SetGadgetAttribute(iGadget, #PB_Web_NavigationCallback, @NavigationCallback())
Else
SetGadgetAttribute(iGadget, #PB_Web_NavigationCallback, AltNavCallback)
EndIf
EndIf
EndProcedure
DataSection
HTML_Template:
IncludeBinary "template.htm"
HTML_Template_End:
EndDataSection
HTMLStyle$=PeekS(?HTML_Template,?HTML_Template_End-?HTML_Template)
; Sample
If OpenWindow(0, 0, 0, 600, 300, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
id=WebGadget(#PB_Any, 10, 10, 580, 280, "")
sSampletext$= "<b>Aber hallo</b> <p id='infobox'>Ein Kasten</p>"
sSampletext$+"<h1>Und nun noch ein Link</h1><a href='#command1'>Befehl 1</a>"
sSampletext$+ "<hr id='line'>"
sSampletext$+"<h1>Und jetzt eine Linkliste</h1><p id='box' width='150'><a class='link' href='#command2'>Befehl 2</a><a class='link' href='#command3'>Befehl 3</a></p>"
sethtml(id,sSampletext$)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIfCode: Alles auswählen
<html>
<body [SCROLL] oncontextmenu = 'javascript:return false;'>
<style type="text/css">
body { background-color:#FFFFFF;
*
{
font-family:helvetica;
font-size:10pt;
}
h1 {
font-family:helvetica;
font-size:12pt;
font-weight:bold
}
#rahmen {
border-width:1.5px;
border-style:solid;
border-color:#c0c0c0;
background-color:#e0e0e0;
padding:0.5em;
text-align:justify;
font-family:helvetica;
font-size:small;
width: 200px;
}
#box {
border-width:1.5px;
border-style:solid;
border-color:#c0c0c0;
text-align:justify;
font-family:helvetica;
font-size:10pt;
padding: 0px 0px 0px 0px;
margin-left: 0px;
width:120px;
}
#infobox {
border-width:1.5px;
border-style:solid;
border-color:#c0c0c0;
background-color:#E0E0E0;
text-align:justify;
font-family:helvetica;
font-size:10pt;
margin-left: 0px;
}
#line {
border-width:0.2pt;
border-style:solid;
border-color:blue;
}
a.link{
display:block;
width: 120px;
color:#000000;
text-align:center;
text-decoration:none;
}
a.link:hover{
color:#ffffff;
text-decoration:none;
background-color:#006699;
}
</style>
[TEXT]
</body<
</html>
Die Idee hat ja durchaus einen gewissen Charme, für mich insbesondere weil GifAnims auch ohne extra Code