TIMER Question

[Jimmy]

hi,

i have a TIMER in Main but it never reach my Function

Code: Select all  Expand view

PROCEDURE Main()

   DEFINE DIALOG Form_1 ;
      TITLE "" ;
      SIZE 0,0

      DEFINE TIMER oTimer_1 INTERVAL 1000 ACTION ShowTime()
      ACTIVATE TIMER oTimer_1
      ACTIVATE DIALOG Form_1 CENTERED ;
                             ON INIT CreateForms() ;  // here my 8 x Dialog create
                             ON CLICK HideShow()
   RELEASE TIMER oTimer_1
   DoRelease()
RETURN

Code: Select all  Expand view

STATIC FUNCTION ShowTime()
msginfo("ShowTime")

Syntax "seems" ok but i get no Messagebox so i never reach function ... why
... does it have to do with those other 8 Dialog

[Enrico Maria Giordano]

Try to move the timer activation to the ON INIT clause (oTimer_1:Activate()).

EMG

[hua]

Try to add OF oDlg/oWnd

Code: Select all  Expand view

DEFINE TIMER oTimer_1 INTERVAL 1000 ACTION ShowTime() OF FORM_1

[Jimmy]

hi

thx for help.

YES you are right TIMER was running in "Main" DIALOG but i want it for "Childs"
now i have move TIMER to "Child" Section and now it fired Event

Code: Select all  Expand view

     cOnPaintProc := "{|| PBW( '" + str(oForm:hwnd) + ;
                            "', '" + str(i)          + ;
                            "', '" + str(wide)       + ;
                            "', '" + str(height)     + ;
                            "', '" + str(hBitmap)    + "' )}"

      oForm:bPainted := &(cOnPaintProc)

   NEXT

   DEFINE TIMER oTimer INTERVAL 1000 ACTION ShowTime()
   ACTIVATE TIMER oTimer

RETURN NIL