tActivex

[Colin Haig]

Hi

I found this code sample by Enrico for displaying a pdf

oPdf := TActiveX():New( oWnd, "AcroPDF.PDF" )
oPdf:Do( "LoadFile", "WIP-14.PDF")
oWnd:oClient := oPdf

This works fine but when I place the code in the action of a button
the "oWnd:oClient := oPdf" does not work , the pdf opens but is not
a client of oWnd - how can I set it to work properly.



Regards

Colin

[richard-service]

Hi

I think you can try it below:

Code: Select all  Expand view  RUN

Function Main()
Local oWnd, oBtn

        DEFINE WINDOW oWnd TITLE "Main Window"
        ............
        @ 5, 5 Button ...... Action OpenPDF()

        ACTIVATE WINDOW oWnd

RETURN NIL

Function OpenPDF()
LOCAL oPdfWnd, oPdf

      DEFINE WINDOW oPdfWnd TITLE "Open PDF Window"

                 oPdf := TActiveX():New( oPdfWnd, "AcroPDF.PDF" )
                 oPdf:Do( "LoadFile", "WIP-14.PDF")
                 oPdfWnd:oClient := oPdf
     
      ACTIVATE WINDOW oPdfWnd

RETURN NIL



Regards,

Richard