XProfan

Internet-Browser mit XProfan
usermessages 16
declare WebControl&, a&, a$
---- Fenster + Menü ----
WindowTitle Internet-Browser in XProfan 11
cls
appendmenubar 101,<
appendmenubar 102,>
appendmenubar 103,&X
appendmenubar 104,&Aktualisieren
appendmenubar 105,&Startseite
appendmenubar 106,&Suchen
appendmenubar 107,&Datei öffnen
appendmenubar 108,&Ordner öffnen
appendmenubar 109,&URL öffnen
---- WebControl erzeugen ----
WebControl&=create(HTMLWin,%hwnd,mmj.mxii.com,0,0,0,width(%hwnd),height(%hwnd))
---- Programmschleife ----

while 1

    if %key=4

        setwindowpos WebControl&=0,0-width(%hwnd),height(%hwnd)

    elseif menuitem(101)

        HTMLWin(GoBack, WebControl&)

    elseif menuitem(102)

        HTMLWin(GoForward, WebControl&)

    elseif menuitem(103)

        HTMLWin(Stop, WebControl&)

    elseif menuitem(104)

        HTMLWin(Refresh, WebControl&)

    elseif menuitem(105)

        HTMLWin(GoHome, WebControl&)

    elseif menuitem(106)

        HTMLWin(GoSearch, WebControl&)

    elseif menuitem(107)

        a$=loadfile$(Bitte Bild oder HTML-Datei wählen,*.*)
        repaint 1
        HTMLWin(Navigate, WebControl&, a$)

    elseif menuitem(108)

        a$=choosedir$(Bitte Ordner wählen)
        repaint 1
        HTMLWin(Navigate, WebControl&, a$)

    elseif menuitem(109)

        a$=input$(Bitte Web-Adresse eingeben:,URL:,)
        repaint 1
        HTMLWin(Navigate, WebControl&, a$)

    endif

    while HTMLWin(GetBusy, WebControl&)

        sleep 200

    endwhile

    waitinput
    case %umessage=16 : break

endwhile

destroywindow(WebControl&)
end