From 0bfd16da590d3342f5b71d8d5edaf6c829536a9c Mon Sep 17 00:00:00 2001
From: mgaertner <mgaertner@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 5 Oct 2015 18:50:58 +0000
Subject: [PATCH] pyramidtiff: version 1.2

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4371 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/pyramidtiff/pyramidtiff.lpr | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/applications/pyramidtiff/pyramidtiff.lpr b/applications/pyramidtiff/pyramidtiff.lpr
index e44ca1281..f8fb467d0 100644
--- a/applications/pyramidtiff/pyramidtiff.lpr
+++ b/applications/pyramidtiff/pyramidtiff.lpr
@@ -16,7 +16,7 @@ uses
   PyTiGraphics, FPReadTiff, FPTiffCmn, FPWriteTiff;
 
 const
-  Version = '1.1';
+  Version = '1.2';
 type
 
   { TFilenameToStringTree }
@@ -191,6 +191,9 @@ procedure TPyramidTiffer.LoadTiff(out Img: TFPCompactImgBase;
   Reader: TFPReaderTiff; InStream: TMemoryStream; var ErrorMsg: string);
 begin
   Reader.OnCreateImage:=@TiffReaderCreateImage;
+  {$ifdef FPC_Debug_Image}
+  Reader.Debug:=true;
+  {$endif}
   Reader.LoadFromStream(InStream);
   if Reader.ImageCount=0 then begin
     ErrorMsg:='tiff has no image';