Progress bar

[jerbear]

Hi,
I hope this is a simple question.

Using VCLZip 2.20 and Delphi v5 and wanted to put a progress bar or something similar on screen while the zipping is in process.

Can anyone help, sample code etc...

many thanks.

Will be getting to the new VCLZip version soon I hope,

[Kevin]

Hi Jerbear,

Welcome to the fourm.

Just create an event in your application for OnFilePercentDone and/or OnTotalPercentDone. All you have to do is set your gauge with the Percent parameter that is passed in by VCLZip. Its that simple..

procedure TVCLZipForm.ZipperFilePercentDone(Sender: TObject;
Percent: Longint);
begin
Gauge1.Progress := Percent;
end;

procedure TVCLZipForm.ZipperTotalPercentDone(Sender: TObject;
Percent: Longint);
begin
Gauge2.Progress := Percent;
end;

[jerbear]

I know, I'm a bit late with my thanks....lol

But I got so caught up in work that I never ever got round to even trying this code.

But guess what....I'm doing it now.....

Thanks Kevin

better late than never.....