ProgressBar pitanje....

[ IvanR. @ 19.01.2006. 23:07 ] @

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

[ reiser @ 20.01.2006. 08:26 ] @

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

[ IvanR. @ 20.01.2006. 12:25 ] @

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

[ reiser @ 20.01.2006. 13:11 ] @

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.

[ IvanR. @ 20.01.2006. 15:17 ] @

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