diff --git a/lcl/intfgraphics.pas b/lcl/intfgraphics.pas index af2eb91240..6d15fb28f2 100644 --- a/lcl/intfgraphics.pas +++ b/lcl/intfgraphics.pas @@ -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 } @@ -6148,6 +6156,8 @@ begin Result := -1; end; +{$IFNDEF DisableLCLTIFF} + { TLazReaderTiff } {$IFDEF OldTiffCreateImageHook} @@ -6321,6 +6331,8 @@ begin Result := -1; end; +{$ENDIF} //DisableLCLTIFF + { TLazReaderIcnsPart } function TLazReaderIcnsPart.InternalCheck(Str: TStream): boolean;