pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpexif: Fix thumbnail not being detected in some cases. Remove unit "fpEXIF" (no longer needed).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6137 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-01-15 14:35:01 +00:00
parent b11328bf36
commit 3bb2efc107
2 changed files with 2 additions and 3599 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3597
components/fpexif/fpEXIF.pas
View File

File diff suppressed because it is too large Load Diff

4
components/fpexif/fpeexifreadwrite.pas
View File

@ -520,8 +520,8 @@ begin
// In case of the thumbnail directory we read the thumbnail if available.
if (AParent = TAGPARENT_THUMBNAIL) and
(FThumbPosition > -1) and (FThumbSize > 0) and
(FThumbPosition < FThumbSize) then
(FThumbPosition > -1) and (FThumbSize > 0) //and
then //(FThumbPosition < FThumbSize) then
begin
// Move stream to beginning of thumbnail...
AStream.Position := FThumbPosition;