Hi
Just for interest I created the following simple progress bar. I use it in my applications because I wanted something that was fast. I have used objects with Colored shapes that increase in size etc. but this is simple and available
to all my objects.
I even use it with "Append from" and "Copy To" commands to show the progress of time consuming operations. You suffer a performance hit in these commands but at least the user knows things are working.
#Define DC_PROGRESSBARLENGTH 75
Procedure ShowProgress
LParameter lcMsgTxt,;
lnPercent
Local lnCurrentBarLen
lnCurrentBarLen=Int(DC_PROGRESSBARLENGTH*Min(1,lnPercent))
Set Message To " Progress:"+Replicate(DC_PROGRESSBARCHARACTER,lnCurrentBarLen)+;
Replicate(" ",DC_PROGRESSBARLENGTH-lnCurrentBarLen)+"100% "+lcMsgTxt
Return
Simon
Simon White
dCipher Computing