* Reset resets stream to beginning to zstream, not beginning of file.

  * Readpng resets source stream to start of zstream before creating
    Tdecompressionstream, rather than seek the decompression stream.

git-svn-id: trunk@9377 -

packages/fcl-image/src/fpreadpng.pp

@@ -803,9 +803,9 @@ begin
       ReadChunk;
       HandleChunk;
       end;
+    ZData.position:=0;
     Decompress := TDecompressionStream.Create (ZData);
     try
-      Decompress.position := 0;
       DoDecompress;
     finally
       Decompress.Free;

packages/paszlib/src/zstream.pp

@@ -309,9 +309,9 @@ procedure Tdecompressionstream.reset;
 var err:smallint;
 
 begin
+  source.seek(-compressed_read,sofromcurrent);
   raw_read:=0;
   compressed_read:=0;
-  source.position:=0;
   inflateEnd(Fstream);
   if skipheader then
     err:=inflateInit2(Fstream,-MAX_WBITS)