Преглед на файлове

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

git-svn-id: trunk@30692 -
michael преди 10 години
родител
ревизия
28e31fdf66
променени са 1 файла, в които са добавени 3 реда и са изтрити 0 реда
  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;