MsgWait with timer

[José Luis Sánchez]

Hello,

It's possible include a timer in MsgWait to show a count back to zero ?

A message like:
Wait 15 seconds to...
Wait 14 seconds to...

Done !

and then close the dialog ?

Regards,
José Luis

[karinha]

Hago asi:

Code: Select all  Expand view  RUN

      MsgRun( "Desligando o Programa...           ", ;
              "Por Favor, Espere!                 ", ;
              { | oDlg | ( DESLIGA_PROG( oDlg ) ) } )

   FreeResources()
   SysRefresh()
   DbCloseAll()
   RELEASE All
   Hb_GCAll( .T. )
   CLEAR MEMORY
   PostQuitMessage( 0 )
   __QUIT()

FUNCTION DESLIGA_PROG( oDlg )

   LOCAL nFor, nStart

   FOR nFor := 4 to 0 step -1
       nStart = GetTickCount()
       while ( GetTickCount() - nStart ) < 1000
       end
       oDlg:cMsg := "Aguarde, Desligando o Programa em: "+ ;
                     LTrim( Str( nFor ) ) + " Segundo"   + ;
                     If( nFor > 1, "s", "" )

       oDlg:Refresh()
       SysRefresh()

   NEXT

RETURN NIL
 

Saludos.

[José Luis Sánchez]

Thank you Joao !!