mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 20:39:23 +02:00
LCL: fixed compilation fpc 2.6.x
git-svn-id: trunk@37523 -
This commit is contained in:
parent
882983bb84
commit
4ca3da0301
@ -31,7 +31,11 @@ var
|
|||||||
D, T: TDateTime;
|
D, T: TDateTime;
|
||||||
S: String;
|
S: String;
|
||||||
YY, MM, DD, HH, NN, SS: Integer;
|
YY, MM, DD, HH, NN, SS: Integer;
|
||||||
|
{$IF FPC_FULLVERSION>=20701}
|
||||||
IFD: TTiffIFD;
|
IFD: TTiffIFD;
|
||||||
|
{$ELSE}
|
||||||
|
IFD: TTiffIDF;
|
||||||
|
{$ENDIF}
|
||||||
begin
|
begin
|
||||||
IFD:=TFPReaderTiff(AReader).FirstImg;
|
IFD:=TFPReaderTiff(AReader).FirstImg;
|
||||||
FArtist := IFD.Artist;
|
FArtist := IFD.Artist;
|
||||||
|
Loading…
Reference in New Issue
Block a user