topic-6534

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Soporte de múltiples ActiveX
Posted: Fri Mar 30, 2007 02:14 PM

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

Aqui teneis un ejemplo:

Code: Select all Collapse

#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

regards, saludos

Antonio Linares
www.fivetechsoft.com

George

Posts: 729

Joined: Tue Oct 18, 2005 06:49 PM

Soporte de múltiples ActiveX
Posted: Fri Mar 30, 2007 03:02 PM

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.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Soporte de múltiples ActiveX
Posted: Fri Mar 30, 2007 11:26 PM

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

FWH 10.6 + xHarbour + Borland 582

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Soporte de múltiples ActiveX
Posted: Sat Mar 31, 2007 08:45 AM

Es el Windows Vista x64 Ultimate

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

Code: Select all Collapse

// 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

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion