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

LCL: fixed compilation fpc 2.6.x

Browse Source 
git-svn-id: trunk@37523 -
This commit is contained in:
mattias 2012-06-05 06:32:05 +00:00
parent 882983bb84
commit 4ca3da0301
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/tiffimage.inc
View File

@ -31,7 +31,11 @@ var
D, T: TDateTime;
S: String;
YY, MM, DD, HH, NN, SS: Integer;
{$IF FPC_FULLVERSION>=20701}
IFD: TTiffIFD;
{$ELSE}
IFD: TTiffIDF;
{$ENDIF}
begin
IFD:=TFPReaderTiff(AReader).FirstImg;
FArtist := IFD.Artist;