<smile> Fred
On Fri, Aug 16, 2019 at 3:01 PM Tracy Pearson <[email protected]> wrote: > Keep you on your toes. > > Tracy > > -----Original Message----- > From: ProfoxTech [mailto:[email protected]] On Behalf Of Fred > Taylor > Sent: Friday, August 16, 2019 5:26 PM > To: [email protected] > Subject: Re: Timing Issue > > Tracy, that command is "DOEVENTS" (no spaces) > > Fred > > > On Fri, Aug 16, 2019 at 11:40 AM Tracy Pearson <[email protected]> > wrote: > > > You need to force the events before the sleep starts with the > > > > DO EVENTS > > > > HTH, > > Tracy > > > > -----Original Message----- > > From: ProfoxTech [mailto:[email protected]] On Behalf Of John > > Weller > > Sent: Friday, August 16, 2019 2:15 PM > > To: [email protected] > > Subject: Timing Issue > > > > Hi > > > > > > > > I have an app with a countdown timer to shut down. The code is as shown > > below (white space removed): > > > > > > > > LOCAL lcMessageText > > > > DECLARE Sleep in Win32API ; > > > > integer nMilliseconds > > > > WITH ThisForm > > > > .cmdCancel.enabled = .F. > > > > .Countdown = Control.Countdown > > > > IF .ShutdownFlag = .T. > > > > lcMessageText = 'Shutting down in ' > > > > ELSE > > > > lcMessageText = 'Closing the Membership system down in ' > > > > ENDIF > > > > *&* This is the message that doesn't display > > > > .lblTimer.Caption = lcMessageText + ALLTRIM(STR(.Countdown)) + ' seconds' > > > > .Refresh > > > > DO WHILE .Countdown > 0 > > > > Sleep(5000) > > > > .Countdown = .Countdown - 5 > > > > .lblTimer.Caption = lcMessageText + ALLTRIM(STR(.Countdown)) > + > > ' > > seconds' > > > > .Refresh > > > > ENDDO > > > > *!* IF .ShutdownFlag = .T. > > > > *!* RUN Shutdown.exe /s /f /t 10 > > > > *!* ENDIF > > > > .Release > > > > CLEAR EVENTS > > > > ENDWITH > > > > > > > > My problem is that the message before the DO WHILE loop doesn't display. > > The code is in the Click event of a button. When I press the button > > nothing > > appears to happen for about 20 seconds then the messages in the loop are > > displayed. It then works as planned. > > > > > > > > Is there any way I can force the system to display the message? > > > > > > > > Thanks > > > > > > > > John > > > > > > > > John Weller > > > > 01380 723235 > > > > 07976 393631 > > > > > > > > > > > > --- StripMime Report -- processed MIME parts --- > > multipart/alternative > > text/plain (text body -- kept) > > text/html > > --- > > [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech Searchable Archive: https://leafe.com/archives This message: https://leafe.com/archives/byMID/CAJCBksqvN94UKpMCMLA=yh0v5dxaj2zr2_hme5gvfj_61q1...@mail.gmail.com ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
