pętla i progress bar

Odpowiedz Nowy wątek
2003-07-10 12:04

Rejestracja: 17 lat temu

Ostatnio: 4 lata temu

0

Mam petle :

<font color="blue">FOR i:=1 to [jakaś wartość, np n] do
begin
...
end;</span>

I teraz chcę, aby postęp pętli był widoczny na TProgressBar. Pamiętam, że jakoś się to z operacją DIV robiło, ale już nie pamiętam, a da się zrobić, bo jest znana ilość wykonania pętli.

<font color="blue">Progress.MinValue := 0;
Progress.MaxValue := 10;</span>

PS: Chce jeszcze aby Progress wyglądał jak kopiowanie plików w WIN XP, znaczy takie niebieskie kwadraciki.

Z góry THX.


Pozostało 580 znaków

2003-07-10 13:05

Rejestracja: 18 lat temu

Ostatnio: 1 miesiąc temu

Lokalizacja: UE

0
var
I:Integer;
begin
ProgressBar1.Min:=0;
ProgressBar1.Max:=1000;
for I:=0 to 1000 do
ProgressBar1.Position:=I+1;
Sleep(1000);
end;

Na tym przykladzie widzisz jak Progress zmienia swoją pozycję.
Zamiast jedynki mozesz wstawiac dowolna wartosc o jaka ma sie posuwac progress.


Pozdrawiam. Karol

Pozostało 580 znaków

2003-07-10 13:12

Rejestracja: 18 lat temu

Ostatnio: 8 lat temu

0

Można też tak:

for i:=1 to n do 
begin 
progressbar.position:=i*progressbar.max div n;
end; 

Pozostało 580 znaków

2003-07-10 13:54

Rejestracja: 17 lat temu

Ostatnio: 4 lata temu

0

Dzięki wszystkim, zwłaszcza Thenkles - właśnie o to chodziło
progressbar.position:=i*progressbar.max div n;


Pozostało 580 znaków

Odpowiedz

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0