Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

ProgressBar pitanje....

[es] :: Pascal / Delphi / Kylix :: ProgressBar pitanje....

[ Pregleda: 3089 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

IvanR.
Ivan Rakic
Mladenovac

Član broj: 44281
Poruke: 639
195.252.87.*



+5 Profil

icon ProgressBar pitanje....19.01.2006. u 23:07 - pre 222 meseci
Kako da uz pomoc progressBar-a graficki predstavim koliko je ZipForge-u ostalo da zipuje neki fajl/ove?
I ako moze neki brojac koji ce prikazivati preostalo vreme..........
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: ProgressBar pitanje....20.01.2006. u 08:26 - pre 222 meseci
Evo jedan mali snippet iz jednog programa koji sam pisao:
Code:

procedure TBaseBackupWindow.ArchiverFileProgress(Sender: TObject;
  FileName: String; Progress: Double; Operation: TZFProcessOperation;
  ProgressPhase: TZFProgressPhase; var Cancel: Boolean);
begin
  Label3.Caption := ExtractFileName(FileName);
  Gauge1.Progress := Trunc(Progress);
  Cancel := Button1.Cancel;
  Application.ProcessMessages;
end;


Obrati paznju na liniju Gauge1.Progress := Trunc(Progress);
 
Odgovor na temu

IvanR.
Ivan Rakic
Mladenovac

Član broj: 44281
Poruke: 639
195.252.87.*



+5 Profil

icon Re: ProgressBar pitanje....20.01.2006. u 12:25 - pre 222 meseci
Hvala reiser-u!
Samo ako mozes da mi kazs kako da Gauge1 stavim na neki drugi form(npr. form2 ce se pojaviti ispred glavnog form-a i bice tu dok se ne zavrsi proces)?

I jos nesto zasto kada podesim borderStyle na bsDialog ne prikazuje glavni meni(File,edit....)?
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: ProgressBar pitanje....20.01.2006. u 13:11 - pre 222 meseci
Kreiraj novu formu, i samo u onom kodu koji sam ti dao, stavi ImeForme.Gauge1.Progress := Trunc(Progress);
Kad zavrsis, oslobodi formu i to je to.

A za ovo drugo ne znam.
 
Odgovor na temu

IvanR.
Ivan Rakic
Mladenovac

Član broj: 44281
Poruke: 639
195.252.87.*



+5 Profil

icon Re: ProgressBar pitanje....20.01.2006. u 15:17 - pre 222 meseci
Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage('Hvala');
end;

 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: ProgressBar pitanje....

[ Pregleda: 3089 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.