Explorar o código

* Patch from Zilvinas Ledas to set default RowsPerStrip (-1), Bug ID #27922

git-svn-id: trunk@30692 -
michael %!s(int64=10) %!d(string=hai) anos
pai
achega
28e31fdf66
Modificáronse 1 ficheiros con 3 adicións e 0 borrados
  1. 3 0
      packages/fcl-image/src/fpreadtiff.pas

+ 3 - 0
packages/fcl-image/src/fpreadtiff.pas

@@ -564,6 +564,9 @@ begin
   if Debug then
     writeln('ReadIFD Start=',Start);
   {$endif}
+  // set default values if not read from file
+  IFD.RowsPerStrip := $FFFFFFFF;
+  
   Result:=0;
   SetStreamPos(Start);
   IFD.IFDStart:=Start;