2013-06-19 07:48

'From:  "taplang" <wasaywasay@e...> Sun Nov 10, 2002  10:53 am
'Subject:  Re: statusbar & qtimer....

     DECLARE SUB updatetimer

     CREATE time AS QTIMER
      ontimer = updatetimer
      interval = 100
     END CREATE

     CREATE form AS QFORM
      CREATE statusbar AS QSTATUSBAR
       addpanels "Current date: " + DATE$, "Current time: " + TIME$
       panel(0).width = 130
       panel(1).width = 3000
      END CREATE
      SHOWMODAL
     END CREATE

     SUB updatetimer
      statusbar.panel(1).CAPTION = "Current time: " + TIME$
     END SUB

2013-06-19 07:48