Como puedo poner el reloj analogico de windows en dialogo

[devwin2004]

Estimados Colegas

Hay alguna manera de insertar el reloj anlalogico de Windows (agujas)
desde ya muchas gracias

Dante
Devwin2004@yahoo.com.ar

[karinha]

LOCAL oTimerRelog

DEFINE TIMER oTimerRelog ;
ACTION oDlg:Say( 31, 103.2, Time(), ;
CLR_YELLOW, CLR_BLACK,, .F. )

ACTIVATE TIMER oTimerRelog

[AIDA]

Hola funciona bien pero como se pone el formato para que salga AM PM en horario estándar

probé a si pero sale como quiero

Code: Select all  Expand view

SET TIME FORMAT TO "HH:MM:SS"

LOCAL oTimerRelog

DEFINE TIMER oTimerRelog ;
ACTION oDlg:Say( 31, 103.2, Time(), ;
CLR_YELLOW, CLR_BLACK,, .F. )

ACTIVATE TIMER oTimerRelog

Me auto contesto con AMPM() funciona

Code: Select all  Expand view

DEFINE TIMER oTimerRelog ;
ACTION oDlgAlbum:Say( 42, 01.2, AMPM(Time()), ;
CLR_BLACK, CLR_WHITE,, .F. )
ACTIVATE TIMER oTimerRelog

Saluditos