Timer on a Dialog

[vilian]

Hi Guys,
I'm trying create a Timer on a dialog by this way:

Code: Select all | Expand

DEFINE DIALOG oDlg RESOURCE "TESTE01" OF oWnd

       REDEFINE BITMAP oBmp ID 101 OF oDlg FILE (cQrc) ADJUST UPDATE
       REDEFINE METER oMtr VAR nPerc TOTAL 100 ID 102 OF oDlg UPDATE
               
       REDEFINE BUTTONBMP ID 105 OF oDlg ACTION ( oDlg:End() ) CANCEL UPDATE

       DEFINE TIMER oTmr OF oDlg INTERVAL 5000 ACTION Consultar(oDlg,oTmr,oMtr,@nPerc,cIDPix) 

 ACTIVATE DIALOG oDlg CENTERED ;
               ON INIT oTmr:Activate()

However, the function Consultar() is never being executed. Do you know Why ?

[paquitohm]

So perhaps,

DEFINE TIMER oTmr OF WndMain() INTERVAL 5000 ACTION Consultar(oDlg,oTmr,oMtr,@nPerc,cIDPix)

[Enrico Maria Giordano]

Or:

Code: Select all | Expand

ON INIT ( oTmr:hWndOwner := oDlg:hWnd, oTmr:Activate() )

[Marc Venken]

I have this in my code... (grabed it somewhere here)

Code: Select all | Expand

     oDlg:bInit := <||
      DEFINE TIMER oTimer OF oDlg INTERVAL 100 ;
         ACTION If( nStartSec == nil,,( nSecsLapsed := SecsLapsed( nStartSec ),oSay:Refresh() ) )
      ACTIVATE TIMER oTimer
      return nil
      >

     ACTIVATE DIALOG oDlg CENTERED;
     VALID ( oTimer:End(), .t. )

 

[vilian]

Thank you Enrico,
It worked perfectly