paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 18:58:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Make IntfGraphics DisableLCLTIFF aware. Issue #35038. Patch from Alexey T.

Browse Source 
git-svn-id: branches/fixes_2_0@60390 -
This commit is contained in:
mattias 2019-02-09 08:49:38 +00:00
parent c3d904cd87
commit f1696468bc
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/intfgraphics.pas
View File

@ -26,8 +26,13 @@ interface
uses
// RTL + FCL
Classes, SysUtils, Math, fpImage, FPReadBMP, FPWriteBMP, BMPComn,
FPReadPNG, FPWritePNG, FPReadTiff, FPWriteTiff, FPTiffCmn, Laz_AVL_Tree,
Classes, SysUtils, Math, fpImage,
FPReadBMP, FPWriteBMP, BMPComn,
FPReadPNG, FPWritePNG,
{$IFNDEF DisableLCLTIFF}
FPReadTiff, FPWriteTiff, FPTiffCmn,
{$ENDIF}
Laz_AVL_Tree,
// LazUtils
FPCAdds, LazLoggerBase, LazTracer,
// LCL
@ -581,6 +586,8 @@ type
procedure Finalize;
end;
{$IFNDEF DisableLCLTIFF}
{ TLazReaderTiff }
const
@ -633,7 +640,8 @@ type
procedure Initialize(AImage: TLazIntfImage);
procedure Finalize;
end;
{$ENDIF} //DisableLCLTIFF
{ TLazReaderIcnsPart }
@ -6147,6 +6155,8 @@ begin
Result := -1;
end;
{$IFNDEF DisableLCLTIFF}
{ TLazReaderTiff }
{$IFDEF OldTiffCreateImageHook}
@ -6320,6 +6330,8 @@ begin
Result := -1;
end;
{$ENDIF} //DisableLCLTIFF
{ TLazReaderIcnsPart }
function TLazReaderIcnsPart.InternalCheck(Str: TStream): boolean;