FiveTech Software tech support forums

Code: Select all

#include "FiveWin.ch"

function Main()

   local oWnd, oActiveX
   local cEvents := ""

   DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"

   oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )

   oWnd:oClient = oActiveX // To fill the entire window surface

   *oActiveX:Do( "GoHome" )
    oActiveX:Do( "Navigate", "http://www.fivetechsoft.com" )

   oActiveX:SetProp( "StatusBar", .T. )       // not run ???
   oActiveX:SetProp( "AddressBar", .T. )     // not run ???
   oActiveX:SetProp( "ToolBar", .T. )         // not run ???
   oActiveX:SetProp( "LinksBar", .T. )         // not run ???
   oActiveX:SetProp( "ToolbarOptions", .T. )    // not run ???

   MsgInfo( oActiveX:GetProp( "StatusBar" ) )     // .t.
   MsgInfo( oActiveX:GetProp( "AddressBar" ) )    //  .t.
   MsgInfo( oActiveX:GetProp( "ToolBar" ) )       //  -1
   MsgInfo( oActiveX:GetProp( "LinksBar" ) )      //   nil
   MsgInfo( oActiveX:GetProp( "ToolbarOptions" ) )     // nil



   oActiveX:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) }

   ACTIVATE WINDOW oWnd ;
      VALID ( MemoEdit( cEvents ), .t. )

return nil

function EventInfo( event, aParams )

   local cMsg := "Event: " + cValToChar( event ) + CRLF
   local n

   cMsg += "Params: "

   for n = 1 to Len( aParams )
      cMsg += cValToChar( aParams[ n ] ) + CRLF
   next

return cMsg + CRLF