FiveTech Support Forums

#include "FiveWin.ch"

function Main()

   local oDlg

   DEFINE DIALOG oDlg TITLE "FiveWin ActiveX Support" SIZE 500, 300

   ACTIVATE DIALOG oDlg ;
      ON INIT SetActX( oDlg ) ;
      CENTERED

return nil

function SetActX( oDlg )

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

   oDlg:oClient = oActiveX // To fill the entire window surface
   oDlg:Resize()

   oActiveX:Do( "GoHome" )

return nil

// Using an ActiveX in a dialog.

#include "FiveWin.ch"

function Main()

   local oDlg, oActiveX

   DEFINE DIALOG oDlg RESOURCE "Test"

   oActiveX = TActiveX():Redefine( 10, oDlg, "Shell.Explorer" )
   
   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT oActiveX:Do( "GoHome" )

return nil

#ifdef __FLAT__
   1 24 "./../WinXP/WindowsXP.Manifest"
#endif
#define DIALOG_1	1

Test DIALOG 84, 77, 194, 119
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "ActiveX Test"
FONT 8, "MS Sans Serif"
{
   CONTROL "", 10, "TActiveX", 0 | WS_CHILD | WS_VISIBLE, 11, 9, 171, 100
}

#xcommand REDEFINE ACTIVEX <oActX> ;
             [ ID <nId> ];
             [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
             [ PROGID <cProgID> ] ;
       => ;
          <oActX> := TActiveX():Redefine( <nId>, <oWnd>, <cProgID> )