FiveTech Support Forums

STATIC FUNCTION Tiempo()
    LOCAL nIntervalo := 60000 * 15      // Cada 15 minutos se activará el timer

    IF nIntervalo > 0
        // 60,000 milesimas es igual a 1 minuto, se crea y se activa solo una vez
        DEFINE TIMER oTimer OF oWindow INTERVAL nIntervalo ACTION Ventana() // 600000 es igual a 10 minutos

        oTimer:Activate()
    ENDIF
RETURN(NIL)

//-> By Joao Santos - Sao Paulo - Brazil - <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->
//-> Participacao Especial, Vailton Renato - <!-- e --><a href="mailto:renato@kssoftware.com.br">renato@kssoftware.com.br</a><!-- e -->

#Include "FiveWin.Ch"

STATIC oDlgRelog, oTimerRelog, lDesliga := .F., oWnd, oTimerPorta
STATIC oFnt, oSaida

//---------------------------------------------------------------------------//

FUNCTION RELOG()

   LOCAL oSayMens, oFnt2, aGrad

   oSayMens := "This a Test message"

   aGrad := { { 0.30, CLR_BLACK, CLR_YELLOW},{ 0.70, CLR_YELLOW, CLR_BLACK } }

   DEFINE FONT oFnt  NAME "Arial"         SIZE 08,  20 BOLD
   DEFINE FONT oFnt2 NAME "Arial"         SIZE 00, -12 BOLD

   DEFINE DIALOG oDlgRelog FROM 3, 3 TO 20, 50                              ;
          TITLE "Test of Message with Timer"                                ;
          GRADIENT aGrad TRANSPARENT                                        ;
          STYLE nOR( DS_MODALFRAME )

   oDlgRelog:lHelpIcon := .F.

   @ .5,10 SAY oSayMens OF oDlgRelog SIZE 100, 12                           ;
           COLOR CLR_BLACK, CLR_WHITE TRANSPARENT ADJUST

   @ 5, 11 BUTTON oSaida PROMPT "&Timer" OF oDlgRelog                       ;
           SIZE 50, 14                                                      ;
           ACTION( ACIONA_TIMER( oWnd ) )

   oSaida:cToolTip := "Timer"

   SET FONT OF oSaida    TO oFnt
   SET FONT OF oDlgRelog TO oFnt2

   ACTIVATE DIALOG oDlgRelog CENTERED

   IF lDesliga
      oTimerRelog:DeActivate()
      oTimerPorta:DeActivate()
   ENDIF

   oFnt:End()
   oFnt2:End()

RETURN NIL

FUNCTION ACIONA_TIMER( oWnd )

   DEFINE TIMER oTimerPorta INTERVAL 50  OF oDlgRelog                        ;
          ACTION ACIONA_RELOGIO( oWnd )

   ACTIVATE TIMER oTimerPorta

RETURN NIL

FUNCTION ACIONA_RELOGIO( oWnd )

   LOCAL oFont

   DEFINE FONT oFont NAME "Arial" SIZE  0, -70 BOLD
   DEFINE FONT oFnt  NAME "Arial" SIZE 08,  20 BOLD

   DEFINE TIMER oTimerRelog INTERVAL 50                                      ;
          ACTION ExibeRelogio()

   ACTIVATE TIMER oTimerRelog

   SET FONT OF oDlgRelog TO oFont
   SET FONT OF oSaida    TO oFnt

   oFont:End()

   lDesliga := .T.  //-> Para Desligar o Timer

   oTimerPorta:DeActivate()

RETURN NIL

FUNCTION ExibeRelogio()

   LOCAL NewMensa := "Mensagem"

   // Mensageria
   IF ISWINDOWVISIBLE( oDlgRelog:hWnd )

       oDlgRelog:Say( 3, 01, NewMensa,                                      ;
                 CLR_YELLOW, CLR_BLACK,, .F. )
       // .T. Esquerda - .F. Direita da Dialog.

   ENDIF

RETURN NIL

//-> FIM / END

STATIC oTmr

REDEFINE BUTTON oBtnE ID 4029 OF oFld:aDialogs[1]                    ;                     
ACTION ( ActivaTimer() , Proceso() )

Static Function ActivaTimer()
  DEFINE TIMER oTmr of oMainWnd INTERVAL 10000 ACTION MuestraMsje()
  ACTIVATE timer oTmr
Return Nil

Function MuestraMsje()
  Msgalert('Finalizo tiempo de espera')
  Proceso()
Return Nil

Function Proceso()
...
…

if ltimer
   otmr:deactivate()
endif
return nil