FiveTech Software tech support forums

Posted: **Thu Dec 27, 2007 12:40 am**

Friends,

The samples below uses flash files, Activex and resources:

With Analogic:

#include "fivewin.ch"
function Main()
   cPath := cFilePath( GetModuleFileName( GetInstance() ) )
   DEFINE DIALOG oWnd RESOURCE "RELOGIO"
          oActiveX = TActiveX():Redefine( 10, oWnd, "ShockwaveFlash.ShockwaveFlash.9" ) 
   ACTIVATE DIALOG oWnd CENTERED ;
               ON INIT ( oActiveX:SetProp( "wmode", "transparent" ), ;
                         oActiveX:SetProp( "bgcolor", "EFC725" ), ;
                         oActiveX:SetProp( "menu", "false" ), ;
                         oActiveX:Do( "LoadMovie", 0, cPath+"relogio.swf" ) )
   RETURN .T.

With Digital:

Code: Select all

#include "fivewin.ch"
function Main()
   cPath := cFilePath( GetModuleFileName( GetInstance() ) )
   DEFINE DIALOG oWnd RESOURCE "RELOGIO"
          oActiveX = TActiveX():Redefine( 10, oWnd, "ShockwaveFlash.ShockwaveFlash.9" ) 
   ACTIVATE DIALOG oWnd CENTERED ;
               ON INIT ( oActiveX:SetProp( "wmode", "transparent" ), ;
                         oActiveX:SetProp( "bgcolor", "EFC725" ), ;
                         oActiveX:SetProp( "menu", "false" ), ;
                         oActiveX:Do( "LoadMovie", 0, cPath+"digital.swf" ) )
   RETURN .T.

The Resource:

Code: Select all

RELOGIO DIALOG 14, 10, 167, 122
STYLE DS_SYSMODAL | 0x4L | WS_POPUP | WS_VISIBLE
FONT 8, "MS Sans Serif"
{
 CONTROL "", 10, "TActiveX", 0 | WS_CHILD | WS_VISIBLE, 12, 13, 140, 95
}

The flash files:
Analogic
Digital

Rename the .SWF.ZIP files to .SWF and good luck.

Posted: **Tue Apr 08, 2008 10:18 pm**

HOLA Rochinha

YA ESTABA POR PREGUNTAR COMO PODIA PONER UN RELOJITO EN UN CUADRO DE UN RECURSO Y ENCONTRE TU NOTA REALMETE SENSILLITO PERO SUPER BIEN FUNCIONAL

GRACIAS

Posted: **Fri Apr 11, 2008 3:52 pm**

Rochinha,

Muchas gracias por tu aporte...
Para que funcionara tuve que poner ShockwaveFlash.8.

Queria poner el flash en la ventana principal... pero rompe la toolbar y la msgbar... Tendria que poner el flash en un dialogo incrustado en la window principal para que no rompa la toolbar y la msgbar?

Sabes si hay manera de ponerle un bitmap de fondo al flash ?

Saludos

Posted: **Fri Apr 11, 2008 4:23 pm**

dear friends ,
it is allready a fivewin msgclock() function.
it'll pubshed on next days...

Posted: **Thu May 01, 2008 5:13 am**

msgclock()

oooooooh

Hello Silvio
Since it is the clock
Already I have curiosity

Aida

Posted: **Thu May 01, 2008 4:38 pm**

yes,
i published it on brasil site..look there!

FiveTech Software tech support forums

Digital and Analogic clock in your aplications, Easy!!!

Digital and Analogic clock in your aplications, Easy!!!

GRACIAS!!!!

Re: Digital and Analogic clock in your aplications, Easy!!!