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

Posts: 310

Joined: Sun Jan 08, 2006 10:09 PM

Digital and Analogic clock in your aplications, Easy!!!
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 Collapse

#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 Collapse

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.

@braços :?)
fivolution@hotmail.com
http://www.5VOLUTION.com.br

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

GRACIAS!!!!
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 :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Antonio Martinez

Posts: 72

Joined: Tue Sep 11, 2007 03:51 PM

Re: Digital and Analogic clock in your aplications, Easy!!!
Posted: Fri Apr 11, 2008 03: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

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Digital and Analogic clock in your aplications, Easy!!!
Posted: Fri Apr 11, 2008 04:23 PM

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

Best Regards, Saludos

Falconi Silvio

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Digital and Analogic clock in your aplications, Easy!!!
Posted: Thu May 01, 2008 05:13 AM

msgclock()

oooooooh

Hello Silvio
Since it is the clock
Already I have curiosity :roll:

Aida :wink:

:shock: :shock:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Digital and Analogic clock in your aplications, Easy!!!
Posted: Thu May 01, 2008 04:38 PM

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

Best Regards, Saludos

Falconi Silvio

FiveTech Support Forums

Continue the discussion