ActiveX -- Para Antonio

[VeRCE]

Hola Antonio.

Habrá mejoras en los componentes ActiveX soportados
por fivewin???

Se podrán usar en diálogos desde recursos?
que sucederá con los eventos ?

Gracias por la atención.

[Antonio Linares]

Juan Carlos,

Ya tenemos algunos avances con los eventos. Confiamos en poder completarlos.

[VeRCE]

Gracias Antonio.
Aprovechando, explícame algo por favor..
Porqué es posible usar un control ActiveX en una
ventana y en un dialogo no?

Se podrá desde recursos??

Gracias

[Antonio Linares]

Juan Carlos,

Acabamos de probar los ActiveX en diálogos y funcionan correctamente. Aquí tienes un ejemplo:

Code: Select all | Expand

#include "FiveWin.ch"function Main()   local oDlg   DEFINE DIALOG oDlg TITLE "FiveWin ActiveX Support" SIZE 500, 300   ACTIVATE DIALOG oDlg ;      ON INIT SetActX( oDlg ) ;      CENTEREDreturn nilfunction SetActX( oDlg )   local oActiveX := TActiveX():New( oDlg, "Shell.Explorer" )   oDlg:oClient = oActiveX // To fill the entire window surface   oDlg:Resize()   oActiveX:Do( "GoHome" )return nil

Lo que sí falta es implementar el método Redefine()

[Antonio Linares]

Juan Carlos,

Aquí está la Clase TActiveX con el método Redefine() y otros necesarios implementados: http://hyperupload.com/download/dbb9718 ... x.zip.html

Y aquí un ejemplo de uso:

Code: Select all | Expand

// Using an ActiveX in a dialog.#include "FiveWin.ch"function Main()   local oDlg, oActiveX   DEFINE DIALOG oDlg RESOURCE "Test"   oActiveX = TActiveX():Redefine( 10, oDlg, "Shell.Explorer" )      ACTIVATE DIALOG oDlg CENTERED ;      ON INIT oActiveX:Do( "GoHome" )return nil

Code: Select all | Expand

#ifdef __FLAT__   1 24 "./../WinXP/WindowsXP.Manifest"#endif#define DIALOG_1   1Test DIALOG 84, 77, 194, 119STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENUCAPTION "ActiveX Test"FONT 8, "MS Sans Serif"{   CONTROL "", 10, "TActiveX", 0 | WS_CHILD | WS_VISIBLE, 11, 9, 171, 100}

[Antonio Linares]

Y el comando que lo hace más sencillo de usar:

Code: Select all | Expand

#xcommand REDEFINE ACTIVEX <oActX> ;             [ ID <nId> ];             [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;             [ PROGID <cProgID> ] ;       => ;          <oActX> := TActiveX():Redefine( <nId>, <oWnd>, <cProgID> )

REDEFINE ACTIVEX oActiveX ID 10 OF oDlg PROGID "Shell.Explorer"

[Taiwan]

Hello Antonio,

Could you send to me this file?
My NB can't download it.
Thank you.

Regards,

Richard
richard.service@seed.net.tw

[Antonio Linares]

Richard,

Already sent.

[VeRCE]

Que tal Antonio

Recién llego a la oficina y veo esto que acabas
de poner y solo me resta decirte

MIL GRACIAS! está genial !!!!

Saludos