Soporte de múltiples ActiveX

[Antonio Linares]

Algunos usuarios han comentado acerca de la posibilidad de usar simultaneamente varios controles ActiveX.

Aqui teneis un ejemplo:

Code: Select all

#include "FiveWin.ch"

function Main()

   local oWnd, oActiveX1, oActiveX2

   DEFINE WINDOW oWnd TITLE "FiveWin multiple ActiveX support"

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

   oActiveX1:Move( 10, 10, 220, 220 )

   oActiveX1:Do( "GoHome" )

   oActiveX2 = TActiveX():New( oWnd, "MediaPlayer.MediaPlayer.1" )

   oActiveX2:Move( 10, 240, 220, 220 )

   ACTIVATE WINDOW oWnd

return nil

[George]

Antonio,

Que haces para que ese dialogo se vea tan elegante?

Se puede hacer con Borland Workshop?

Podrias postear un ejemplo de como crear esos dialogos?


Saludos,

George

[Raymundo Islas M.]

Hola

Hay 2 opciones :

- Conseguir e instalar algun tema/skin que emule al Vista

- Instalar el windows Vista !!!!
( esta precioso , pero algo caro por no decir mucho )



Saludos

[Antonio Linares]

Es el Windows Vista x64 Ultimate

Aqui está el ejemplo nuevamente, usando los comandos de ActiveX:

Code: Select all

// Using several ActiveX simultaneously

#include "FiveWin.ch"

function Main()

   local oWnd, oActiveX1, oActiveX2

   DEFINE WINDOW oWnd TITLE "FiveWin multiple ActiveX support"

   @ 10, 10 ACTIVEX oActiveX1 PROGID "Shell.Explorer" OF oWnd SIZE 220, 220

   oActiveX1:Do( "GoHome" )

   @ 10, 240 ACTIVEX oActiveX2 PROGID "MediaPlayer.MediaPlayer.1" OF oWnd SIZE 220, 220

   ACTIVATE WINDOW oWnd

return nil