Browse Source

--- Merging r23218 into '.':
U packages/paszlib/src/zstream.pp

# revisions: 23218
r23218 | marco | 2012-12-23 20:52:52 +0100 (Sun, 23 Dec 2012) | 2 lines
Changed paths:
M /trunk/packages/paszlib/src/zstream.pp

* make onprogress public. Mantis #23476

git-svn-id: branches/fixes_2_6@23312 -

marco 12 years ago
parent
commit
fee3faf40c
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/paszlib/src/zstream.pp

+ 2 - 0
packages/paszlib/src/zstream.pp

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