ProgressBar pitanje....

Odgovori Nova tema

4 odgovora
3.756 pregleda

ProgressBar pitanje.... 20.01.2006. u 00:07 · pre 253 meseca #1

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..........

Potpis

[email protected]

Re: ProgressBar pitanje.... 20.01.2006. u 09:26 · pre 253 meseca #2

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);

Re: ProgressBar pitanje.... 20.01.2006. u 13:25 · pre 253 meseca #3

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....)?

Potpis

[email protected]

Re: ProgressBar pitanje.... 20.01.2006. u 14:11 · pre 253 meseca #4

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.

Re: ProgressBar pitanje.... 20.01.2006. u 16:17 · pre 253 meseca #5

Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage('Hvala');
end;

Potpis

[email protected]

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme