pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

pyramidtiff: version 1.2

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4371 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
mgaertner
2015-10-05 18:50:58 +00:00
parent cb68f38703
commit 0bfd16da59
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
applications/pyramidtiff/pyramidtiff.lpr
View File

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