Progressbar.Position

[asdf]

lns: integer;
totlns: integer;
ProgressBar1.Min:=0;
ProgressBar1.Max:=100;
ProgressBar1.Smooth:=True;
ProgressBar1.Enable:=True;

.
.
.
ProgressBar1.Position:=((lns/totlns)/100);[color=teal] // Error Got "Extended", expected "LongInt" ?[/color]
Application.ProcessMessages;

Please help getting "LongInt". And the above codes are OK or not?

[Leledumbo]

use div instead of /

[DirkS]

I would set ProgressBar.Max to the highest number and let it do the maths itself...

Assuming that totlns is the highest number and lns is the loopcounter:

Code: [Select]

lns: integer;
totlns: integer;
ProgressBar1.Min:=0;
ProgressBar1.Max:=totlns;
ProgressBar1.Smooth:=True;
ProgressBar1.Enable:=True;
.
.
ProgressBar1.Position := lns;

Gr.
Dirk

[asdf]

It works now.
Just let it do itself.
Thank you.

But I personally hate it's green color.... lol

[ivan17]

But I personally hate it's green color.... lol

use one of the resource extraction tools to get the progress bar bitmap from luna.msstyles, recolor it, put it back and restart the system.

i am boring people by repeating this but go get the theme you'd like (try destiny, opus-os, clearlooks, royale/noir, zune) - don't immediately consider changing something just because you don't like it on luna (xp default style) with blue color scheme.  my progressbars are orange.

[mas steindorff]

But I personally hate it's green color.... lol

depends on the season for me.  how to change...
http://lazarus.freepascal.org/index.php/topic,9545.msg46995.html#msg46995

[cdbc]

Hi

Your math is off...:
  ((lns/totlns)/100);
Should be:
  ((lns div totlns) * 100);
to get percentage :-)

hth - Regards Benny