paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make onprogress public. Mantis #23476

Browse Source 
git-svn-id: trunk@23218 -
This commit is contained in:
marco 2012-12-23 19:52:52 +00:00
parent 2b70085b61
commit 80c25bda92
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/paszlib/src/zstream.pp
View File

@ -63,6 +63,7 @@ type
function write(const buffer;count:longint):longint;override;
procedure flush;
function get_compressionrate:single;
property OnProgress;
end;
Tdecompressionstream=class(Tcustomzlibstream)
@ -77,6 +78,7 @@ type
function read(var buffer;count:longint):longint;override;
function seek(offset:longint;origin:word):longint;override;
function get_compressionrate:single;
property OnProgress;
end;
TGZFileStream = Class(TStream)