FiveTech Support Forums

#include "fivewin.ch"

FUNCTION MAIN()

LOCAL oDlg, oTimer
LOCAL oOra , cOra := TIME()
LOCAL oFont3

DEFINE FONT oFont3 NAME "MS Sans Serif" SIZE 0, -18 BOLD

DEFINE DIALOG oDlg FONT oFont3



DEFINE timer oTimer OF oDlg interval 1000 ACTION refreshora( oOra )

@ 1 , 1 SAY oOra PROMPT cOra OF oDlg

ACTIVATE DIALOG oDlg CENTER ON INIT ( oTimer:hWndowner := oDlg:hwnd, oTimer:activate() )

oTimer:deactivate()
RELEASE TIMER oTimer

RELEASE FONT oFont3

RETURN NIL

FUNCTION REFRESHORA( oOra )

oOra:settext( TIME() )


RETURN NIL