Página 1 de 1

Como carregar um objeto activex em um SplitBox

Enviado: 18 Set 2011 17:18
por carlos_dornelas
Pessoal, estou aqui quebrando a cabeça e não consigo resolver essa questão: como carregar um objeto Activex em um Splitbox composto por duas SplitChild? Me baseei no exemplo de activex da minigui extended ..\Minigui\Samples\Basic\Activex\DEMO4.PRG. Quero exibir dois PDFs, sendo um em cada SplitChild. Alguèm pode me dar uma luz?

Antonio Carlos

Código: Selecionar todos

      DEFINE WINDOW Win1 ;
        AT 0,0 ;
        WIDTH 1000 ;
        HEIGHT 900 ;
        TITLE 'Imagem';
        NOMAXIMIZE;
        CHILD

        DEFINE SPLITBOX 

           DEFINE WINDOW S_1 ;
             WIDTH 0 ;
             HEIGHT 850 ;
             TITLE "Split 1" ;
             SPLITCHILD ;
             GRIPPERTEXT 'Split 1' 

             DEFINE ACTIVEX Test
               ROW 10
               COL 50
               WIDTH 900  
               HEIGHT 800  
               PROGID "AcroPDF.PDF.1"
             END ACTIVEX

           END WINDOW



           DEFINE WINDOW S_2 ;
             WIDTH 0 ;
             HEIGHT 850 ;
             TITLE 'Split 2' ;
             SPLITCHILD ;
             GRIPPERTEXT 'Split 2' 


             DEFINE ACTIVEX Test2
               ROW 10
               COL 50
               WIDTH 900  
               HEIGHT 800  
               PROGID "AcroPDF.PDF.1"
             END ACTIVEX

           END WINDOW 

        END SPLITBOX
      END WINDOW

      CENTER WINDOW Win1

      ACTIVATE WINDOW Win1


      *s_1.Test.Object:src := "teste.pdf"