Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Timeout...
Message
From
13/04/2000 17:07:12
 
 
To
13/04/2000 08:59:34
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Miscellaneous
Thread ID:
00359198
Message ID:
00359515
Views:
9
>Something isn't right here. Sometimes my timers debug out to be disabled or they never get enabled to begin with. Any ideas on the logic or an easier way to achieve the same result?

It would probably be simpler to only use 1 timer, just let it run (I haven't tested this, just typing it out):

define class mytimeout as timer
     name = 'mytimeout'
     interval = 100000
     nLastKey = -1
     nMRow = -1
     nMCol = -1
     procedure timer
          with this          
               if lastkey() = .nLastKey and ;
                    mrow() = .nMRow and mcol() = .nMCol
                    & Start to restart
               else
                    .nLastKey = lastkey()
                    .nMRow = mrow()
                    .nMCol = mcol()
               endif
          endwith
     endproc
enddefine
Previous
Reply
Map
View

Click here to load this message in the networking platform