Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Class ProgressIndicator FAW
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Class ProgressIndicator FAW
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows 2000 SP4
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01019151
Message ID:
01019151
Views:
83
Hello Craig,

I've taken a liking to your ProgressIndicator class that you published in a FAQ here on the UT (http://www.levelextreme.com/wconnect/wc.dll?LevelExtreme~2,84,14,27458). This is a nice looking all-VFP soultion, and easy to understand, even for an ameteur like me.

The change to make it work in VFP7 was near painless - a new static gif and a few minor tweaks for color and size.

I took the example from the FAQ article and it ran fine. When I dropped it into my app, the window show()s, but no moving boxes action:
LOCAL loProgress
loProgress = CREATEOBJECT("ProgressIndicator")
* PARAMS: caption, min, max, initial value, undetermined, cancel button
loProgress.setup("Selecting Data...", 1, 1, 0, .T., .F.)
loProgress.show()
=INKEY(10,"H") && This works, but 'real' code does not
RELEASE loProgress
I have about 50 lines of code (2 SCANs and a SELECT ... UNION) that takes about 10 seconds to execute. I removed the =INKEY(10,"H") and placed the RELEASE after all the data munching stuff, and just before the REPORT FORM ....., hoping to hypnotize my users with a classy looking progress bar.

So, where have I gone wrong?
Randy Bosma
VFP - Because life is too short to code in something else...
Next
Reply
Map
View

Click here to load this message in the networking platform