Subject Re: How to flash a message without waiting
From Mervyn Bick <invalid@invalid.invalid>
Date Wed, 25 Aug 2021 08:23:55 +0200
Newsgroups dbase.getting-started

On 2021/08/24 16:04, Mervyn Bick wrote:

> For a program I use showprogress.prg  which opens a small form on the
> screen.  The program and a test program are attached.
>
>

Oops.  In the example program I forgot to add the line
_app.executeMessages() in the loop.

_app.allowYldOnMsg = true is set in showprogress.prg but without forcing
dBASE to regularly execute the executeMessages() method dBASE can become
unresponsive after a while.


showprogress("Open")
n = 0
do while not q.rowset.endofset
    q.rowset.next()
    n++
    cN = '  '+n+ '  records processed'
    oProgress.msg.text = cN
    inkey(0.2)
    _app.executeMessages()
enddo
showprogress("Close")


Mervyn.