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

* Applied patch from Daniel Gaspary to add compression level to individual items (Bug 20322)

Browse Source 
git-svn-id: trunk@19173 -
This commit is contained in:
michael 2011-09-22 11:22:03 +00:00
parent 935a030dca
commit e0f458a7e9
1 changed files with 4 additions and 0 deletions

4
packages/paszlib/src/zipper.pp
View File

@ -261,6 +261,7 @@ Type
FOS: Byte;
FSize: Integer;
FStream: TStream;
FCompressionLevel: TCompressionlevel;
function GetArchiveFileName: String;
Protected
Property HdrPos : Longint Read FHeaderPos Write FheaderPos;
@ -277,6 +278,7 @@ Type
Property DateTime : TDateTime Read FDateTime Write FDateTime;
property OS: Byte read FOS write FOS;
property Attributes: LongInt read FAttributes write FAttributes;
Property CompressionLevel: TCompressionlevel read FCompressionLevel write FCompressionLevel;
end;
{ TZipFileEntries }
@ -1345,6 +1347,7 @@ Function TZipper.CreateCompressor(Item : TZipFileEntry; AInFile,AZipStream : TSt
begin
Result:=TDeflater.Create(AinFile,AZipStream,FBufSize);
(Result as TDeflater).CompressionLevel:=Item.CompressionLevel;
end;
Procedure TZipper.ZipOneFile(Item : TZipFileEntry);
@ -1983,6 +1986,7 @@ begin
{$ELSE}
FOS := OS_FAT;
{$ENDIF}
FCompressionLevel:=cldefault;
inherited create(ACollection);
end;