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

[Rochinha]

Friends,

The samples below uses flash files, Activex and resources:

With Analogic:

Code: Select all  Expand view  RUN

#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  Expand view  RUN

#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  Expand view  RUN

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.

[AIDA]

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

[Antonio Martinez]

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

[Silvio]

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

[AIDA]

msgclock()

oooooooh

Hello Silvio
Since it is the clock
Already I have curiosity

Aida

[Silvio]

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