Thanks to Tracey and Fred - just what I needed! John
John Weller 01380 723235 07976 393631 -----Original Message----- From: ProfoxTech <[email protected]> On Behalf Of Tracy Pearson Sent: 16 August 2019 19:40 To: [email protected] Subject: RE: Timing Issue 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/[email protected] ** 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.
