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

pyramidtiff: fixed compilation fpc 2.7.1+

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4364 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
mgaertner
2015-10-01 09:55:27 +00:00
parent 95704110ce
commit ea2abba484
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
applications/pyramidtiff/pyramidtiff.lpr
View File

@ -452,7 +452,7 @@ begin
Result:=TFPReaderTiff
else begin
for i:=0 to ImageHandlers.Count-1 do begin
if Pos(Ext,ImageHandlers.Extentions[ImageHandlers.TypeNames[i]])<1
if Pos(Ext,ImageHandlers.{$IF FPC_FULLVERSION>=20701}Extensions{$ELSE}Extentions{$ENDIF}[ImageHandlers.TypeNames[i]])<1
then continue;
Result:=ImageHandlers.ImageReader[ImageHandlers.TypeNames[i]];
end;
@ -700,7 +700,7 @@ begin
write(' Input image file can be a:');
for i:=0 to ImageHandlers.Count-1 do begin
ImgType:=ImageHandlers.TypeNames[i];
write(' ',ImageHandlers.Extentions[ImgType]);
write(' ',ImageHandlers.{$IF FPC_FULLVERSION>=20701}Extensions{$ELSE}Extentions{$ENDIF}[ImgType]);
end;
writeln;
writeln(' If input file is a directory then the -o must be a directory too.');