Subject Re: How to flash a message without waiting
From Ken Mayer <dbase@nospam.goldenstag.net>
Date Sat, 6 Nov 2021 12:14:21 -0700
Newsgroups dbase.getting-started

On 11/6/2021 11:54 AM, Milind Nighojkar wrote:
> Hi Ken,
> Pls refer the attachement.
> I have attached code where progress bar form is called. Progress bar form code is also attached
>
> Issue is message is changing. However progress bar is not displayed

In the future, please put the code directly in to the message, it's much
easier to work with ... having to view it in Word, and such is weird,
and not helpful.

Rather than issuing "do t_progress.wfm", you will have better control
and the ability to reference the form properly by creating an instance
of the form in the code:

set procedure to t_progress.wfm
fProgForm = new progressForm()

Then, in the code that follows, you need to set the max value for the
progress control:

fProgForm.progress1.rangeMin := 1
fProgForm.progress1.rangeMax := 100

// and you can set the value for the entryfield:
fProgForm.entryfield1.value := "Some Text"

// then open the form:
fProgForm.open()

// At this point:
fProgForm.progress1.value := 15
fProgForm.entryfield1.value := "Reindexing 1"
do t_inde.prg

// next one:
fProgForm.progress1.value := 30
fProgForm.entryfield2.value := "Reindexing 2"
do t_inde2.prg // guessing this is a different program

// when done, cleanup:
fProgForm.close()
fProgForm.release()
release object fProgForm
fProgForm := null
close procedure t_progress.wfm

You're really doing more work than you need to in your code. :)

Ken

--
*Ken Mayer*
Ken's dBASE Page: http://www.goldenstag.net/dbase
The dUFLP: http://www.goldenstag.net/dbase/index.htm#duflp
dBASE Books: http://www.goldenstag.net/dbase/Books/dBASEBooks.htm
dBASE Tutorial: http://www.goldenstag.net/dbase/Tutorial/00_Preface.htm
dBASE Web Tutorial: http://www.goldenstag.net/dbase/WebTutorial/00_Menu.htm