Kaynağa Gözat

--- 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 yıl önce
ebeveyn
işleme
fee3faf40c
1 değiştirilmiş dosya ile 2 ekleme ve 0 silme
  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;
           function write(const buffer;count:longint):longint;override;
           procedure flush;
           procedure flush;
           function get_compressionrate:single;
           function get_compressionrate:single;
+          property OnProgress;
         end;
         end;
 
 
         Tdecompressionstream=class(Tcustomzlibstream)
         Tdecompressionstream=class(Tcustomzlibstream)
@@ -77,6 +78,7 @@ type
           function read(var buffer;count:longint):longint;override;
           function read(var buffer;count:longint):longint;override;
           function seek(offset:longint;origin:word):longint;override;
           function seek(offset:longint;origin:word):longint;override;
           function get_compressionrate:single;
           function get_compressionrate:single;
+          property OnProgress;
         end;
         end;
 
 
         TGZFileStream = Class(TStream)
         TGZFileStream = Class(TStream)