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

LCL: tiff: fixed combining date+time

Browse Source 
git-svn-id: trunk@47635 -
This commit is contained in:
mattias 2015-02-07 12:11:02 +00:00
parent 8d6618eb2a
commit 2f1968a3cf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/tiffimage.inc
View File

@ -47,7 +47,7 @@ begin
and TryStrToInt(Copy(S, 18, 2), SS) and TryStrToInt(Copy(S, 18, 2), SS)
and TryEncodeDate(YY, MM, DD, D) and TryEncodeDate(YY, MM, DD, D)
and TryEncodeTime(HH, NN, SS, 0, T) and TryEncodeTime(HH, NN, SS, 0, T)
then FDateTime := D + T then FDateTime := ComposeDateTime(D,T)
else FDateTime := 0; else FDateTime := 0;
FDocumentName := IFD.DocumentName; FDocumentName := IFD.DocumentName;