Timer on a Dialog

[vilian]

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

Code: Select all  Expand view  RUN

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 view  RUN

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

[Marc Venken]

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

Code: Select all  Expand view  RUN

     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