>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.
>
>#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
>
Hello, Simon.
The concept is interesting, but I don't understand why you're always showing 100% at the end. Also, you are not making the percentage proportional with the bar length.
Something I did in my progress bars that facilitates it's use, too, is to pass the function the current position and the total, then I calculate the lenght of the bar. Having to pass the percentage already calculated foces you to do it in every place where you are calling the component.
Good luck.