Event procedure for capturing compression/decompression progress.
Source position: zipper.pp line 210
type TProgressEvent = procedure( |
Sender: TObject; |
const Pct: Double |
) of object; |
Sender |
|
Object that sends the event. |
Pct |
|
Percentage completed. |