use-revolution digest, Vol 1 #52 - 20 msgs

Pierre Sahores psahores at easynet.fr
Fri Dec 7 11:59:01 EST 2001


> Message: 10
> Date: Thu, 06 Dec 2001 19:07:50 -0800
> From: John Cuccio <jcuccio at pacbell.net>
> Subject: Progress bar
> To: rev discussion <use-revolution at lists.runrev.com>
> Reply-To: use-revolution at lists.runrev.com
> 
> any idea how to do a progress bar in rev.
> 
> --__--__--
> 
> Message: 11
> Date: Thu, 06 Dec 2001 22:20:37 -0500
> Subject: Re: Progress bar
> From: Troy Rollins <troy at rpsystems.net>
> To: <use-revolution at lists.runrev.com>
> Reply-To: use-revolution at lists.runrev.com
> 
> John Cuccio  wrote:
> 
> > any idea how to do a progress bar in rev.
> 
> Basically you set the endValue of the scrollbar to your maximum (whatever
> would equal 100%). Then increment the thumbPosition based on your events.
> --
> Troy
> RPSystems
> www.rpsystems.net

Hi John,

Just picked on the Metacard list...

> You can try something like this :
>
> > on mouseUp
> >   if the shiftkey is down then edit script of me
> >   else
> >     set cursor to watch
> >     put 100 into oldcolls
> >     put "0" into stfwd
> >     put (102 / oldcolls) * 2 into gofwd
> >     repeat with ltr = 1 to oldcolls
> >       wait 10 # to replace by what ever you need
> >       put ltr & "/" & oldcolls into fld "ETrait" # the counter fld
> >       add gofwd to stfwd
> >       get the left of fld "progress" # the progressbar fld
> >       set the width of fld "progress" to stfwd
> >       set the left of fld "progress" to it
> >     end repeat
> >   end if
> > end mouseUp
>
> Regards, Pierre Sahores
>
> WEB & VPN applications & databases servers
> Inspection académique de Seine-Saint-Denis
> Qualifier & produire l'avantage compétitif

Cheers, Pierre



More information about the Use-livecode mailing list