#include "FiveWin.ch"
function Main()
local oWnd, oActiveX
DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"
oActiveX = THActiveX():New( oWnd, "AcroPDF.PDF.1" ) // Use "AcroPDF.PDF.1" for Acrobat Reader 7
oWnd:oClient = oActiveX // To fill the entire window surface
oActiveX:LoadFile( "fwintro.pdf" )
// oActiveX:SetCurrentPage( 1 )
ACTIVATE WINDOW oWnd
return nil
#include "FiveWin.ch"
function Main()
local oWnd, oActiveX
DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"
oActiveX = TActiveX():New( oWnd, "AcroPDF.PDF.1" ) // Use "AcroPDF.PDF.1" for Acrobat Reader 7
oWnd:oClient = oActiveX // To fill the entire window surface
oActiveX : src = hb_CurDrive() + ":\" + CurDir() + "\fwintro.pdf"
oActiveX:GotoFirstPage()
ACTIVATE WINDOW oWnd
return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 20 guests