Browse Source

--- Merging r35466 into '.':
U packages/paszlib/src/zipper.pp
--- Recording mergeinfo for merge of r35466 into '.':
U .

# revisions: 35466

git-svn-id: branches/fixes_3_0@36075 -

marco 8 years ago
parent
commit
78372b17c3
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/paszlib/src/zipper.pp

+ 2 - 2
packages/paszlib/src/zipper.pp

@@ -339,7 +339,7 @@ Type
   TZipFileEntry = Class(TCollectionItem)
   private
     FArchiveFileName: String; //Name of the file as it appears in the zip file list
-    FAttributes: LongInt;
+    FAttributes: LongWord;
     FDateTime: TDateTime;
     FDiskFileName: String; {Name of the file on disk (i.e. uncompressed. Can be empty if based on a stream.);
     uses local OS/filesystem directory separators}
@@ -368,7 +368,7 @@ Type
     Property Size : Int64 Read FSize Write FSize;
     Property DateTime : TDateTime Read FDateTime Write FDateTime;
     property OS: Byte read FOS write FOS;
-    property Attributes: LongInt read FAttributes write FAttributes;
+    property Attributes: LongWord read FAttributes write FAttributes;
     Property CompressionLevel: TCompressionlevel read FCompressionLevel write FCompressionLevel;
   end;