Seite 1 von 1

Browser

Verfasst: Mo, 30. Jan 2017 13:46
von Muecke
Hallo

Kann mir jemand sagen, wie ich ein Browser ohne die Extras im Kopf anzeigen kann.

Also nur die reine Oberfläche .Keine Tabs, Menüleisten usw...

HTML-Viewer geht nicht, habe ich schon probiert.

Schöne Grüsse
Thomas

Re: Browser

Verfasst: Mo, 30. Jan 2017 13:57
von Jan
Hallo Thomas,

da gibt es ein Beispiel von Alaska zu, unter source\samples\activex\webbrowser. Ich hab jetzt nicht in den Code geschaut, aber wenn ich die exe aufrufe habe ich einen Browser mit Steuerelementen aus Xbase++, also anscheinend keine Original-Browser-Elemente.

Jan

Re: Browser

Verfasst: Mo, 30. Jan 2017 14:18
von Muecke
Hallo Jan

Das isch mit HTML-Viewer

Gruss Thomas

Re: Browser

Verfasst: Mo, 30. Jan 2017 14:24
von Jan
Hallo Thomas,

oops! Sorry. Aber wie gesagt, ich hatte nicht in den Code geschaut. Ich dachte das da einfach per ActiveX der IE aufgerufen wird.

Jan

Re: Browser

Verfasst: Di, 31. Jan 2017 11:14
von AUGE_OHR
Muecke hat geschrieben:HTML-Viewer geht nicht, habe ich schon probiert.
meinst du jetzt Titlebar & Rahmen etc. oder reicht dir das Control selbst nicht ?

mit XbpDialog() oder im VIO Modus bekommst du immer die Titlebar & Rahmen ... also was anderes als Parent

Code: Alles auswählen

#include "Appevent.ch"

PROCEDURE APPSYS
RETURN

PROCEDURE MAIN
LOCAL nEvent
LOCAL mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oStatic, oIE, aSize
LOCAL lExit    := .F.
LOCAL nTimeOut := 10

   aSize := AppDeskTop():CurrentSize()

   oStatic := XbpStatic():new(AppDeskTop(),, {0,0 }, aSize ,, .F.  )
   oStatic:create()

   oIE := XbpHTMLViewer():new(oStatic,, {0,0}, aSize ,, .T. )
   oIE:create()
   oIE:DocumentComplete  := {|oI,cURL| DocumentComplete(cURL,oIE) }
*  oIE:BeforeNavigate2   := {|oI,cURL,nF,cF,cP| BeforeNavigate(cURL,cP) }
   oIE:Navigate( "http://www.alaska-software.com" )

   // hm ... ob er das annimmt ?
   oIE:KeyBoard := {|nKey| iif(nKey == xbeK_ESC, lExit := .T., NIL) }

   SetAppWindow(oStatic)
   oStatic:Show()
   SetAppWindow(oIE)

   DO WHILE !lExit = .T.
      nEvent := AppEvent( @mp1, @mp2, @oXbp, nTimeOut ) // versuch mit Timeout
*     nEvent := AppEvent( @mp1, @mp2, @oXbp )
      DO CASE
         CASE nEvent == xbe_None
            // Timeout ... und dann ?
         CASE nEvent == xbeP_Keyboard .AND. mp1 == xbeK_ESC
            // er kommt hier nicht an 
            EXIT
      OTHERWISE
         oXbp:handleEvent( nEvent, mp1, mp2 )
      ENDCASE
   ENDDO

   oIE:Destroy()
   oStatic:Destroy()

RETURN

FUNCTION DocumentComplete( cURL ,oIE)
LOCAL lFound := .F., i
LOCAL cMethod := "GET"
LOCAL lAddToHistory := .F.

   IF oIE:IsBusy() == .F.
*     lIsNavigating := .F.
   ENDIF

   IF Empty( cURL )
      RETURN .F.
   ENDIF
RETURN .T.
nur wie man das Programm verlasst, ausser Crtl-Alt-Del, weiss ich nicht den die Tastendrücke gehen wohl an IEframe.DLL was dahinter steckt.

Re: Browser

Verfasst: Di, 31. Jan 2017 12:29
von Muecke
Hallo Jimmy

Ich kann nicht mit dem Html-Viewer arbeiten.

Ich möchte gerne den Explorer ohne die Toolbar

Gruss Thomas

Re: Browser

Verfasst: Mi, 01. Feb 2017 10:22
von Armin
Hallo Thomas,

wenn Du mit Explorer den IE meinst, kannst Du z.B. statt *.htm eine *.hta nehmen.

Da kannst dann im HTML-Script z.B. sowetwas angeben:

Code: Alles auswählen

  <hta:application id="oMyApp" 
    applicationname="monster" 
    border="none"
    caption="no"
    icon="/graphics/creature.ico"
    showintaskbar="no"
    singleinstance="yes"
    sysmenu="no"
    windowstate="maximize">
Grüße, Armin