TProgressEvent

Event procedure for capturing compression/decompression progress

Declaration

Source position: zipper.pp line 200

type TProgressEvent = procedure(

Sender: TObject;

const Pct: Double

) of object;

`Sender`		Object that sends the event
`Pct`		Percentage completed