The plain XbpHTMLView implementation does not work correctly with
SetAppFocus(). When SetAppFocus( oHTML ) is called, then this will
not set the focus to the control.

This PDR is closed due to the fact that XbpOcx is declared legacy and
thus no longer be supported.

It is recommended to use the ActivX support built-in Xbase++ 1.90 and
above instead

#include "Gra.ch"
#include "Xbp.ch"
#include "Common.ch"
#include "Appevent.ch"
#include "Font.ch"
#include "dll.ch"
#pragma library("xppocx.lib")

PROCEDURE AppSys
RETURN

PROCEDURE Main
   LOCAL nEvent, mp1, mp2
   LOCAL oDlg, oXbp, drawingArea, oBrowser, nHWND

   oDlg := XbpDialog():new( AppDesktop(), , {100,100}, {600,400})
   oDlg:taskList := .T.
   oDlg:title := "html help test"
   oDlg:close := {||Appquit()}
   drawingArea := oDlg:drawingArea
   oDlg:create()

   oBrowser := XbpHTMLViewer():New( drawingArea, drawingArea, {10,10
},{580,340} )
   oBrowser:Create()
   oBrowser:Navigate( "http://www.alaska-software.com" )

   SetAppWindow(oDlg)

   // workaround: set the focus to the html viewer
#define GW_CHILD 5
   nHWND := DllCall("user32.dll",DLL_STDCALL,"GetWindow", ;
                    oBrowser:XbpStatic:GetHWND(),GW_CHILD)
   nHWND := DllCall("user32.dll",DLL_STDCALL,"GetWindow",nHWND,GW_CHILD)
   DllCall("user32.dll",DLL_STDCALL,"SetFocus",nHWND)

   AppEventLoop()
RETURN

PROCEDURE AppQuit()
   CLOSE ALL
   QUIT
RETURN