Amigos:
Estoy tratando de mostrar un archivo .swf con un
dialogo desde recursos y no le doy con la tecla.
Alguna ayuda, por favor?
Muchas gracias.
Ruben Fernandez
DEFINE DIALOG dbSplshIni RESOURCE "PDBOPNXEMP" ;
BRUSH oDlgsBrsh TRANSPARENT
REDEFINE ACTIVEX oActiveX ;
ID 101 ;
PROGID "ShockwaveFlash.ShockwaveFlash.1" ;
OF dbSplshIni
dbSplshIni:bStart := { || DoXInProcs( oActiveX ) }
dbSplshIni:lHelpIcon := .F.
ACTIVATE DIALOG dbSplshIni CENTER
Static Function DoXInProcs( oActiveX )
LOCAL cPthFlsh := CurDrive() + ":\" + Curdir() + "\MEDIA\FLASH\SPLASH.SWF"
oActiveX:Do( "LoadMovie", 0, cPthFlsh )
oActiveX:Do( "Play" )
Return NIL
*-----*
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot], JoseLuis and 23 guests