瀏覽代碼

* 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
   if Debug then
     writeln('ReadIFD Start=',Start);
     writeln('ReadIFD Start=',Start);
   {$endif}
   {$endif}
+  // set default values if not read from file
+  IFD.RowsPerStrip := $FFFFFFFF;
+  
   Result:=0;
   Result:=0;
   SetStreamPos(Start);
   SetStreamPos(Start);
   IFD.IFDStart:=Start;
   IFD.IFDStart:=Start;