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

fpspreadsheet: Fix size calculation for some embedded jpeg images.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4548 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-03-13 23:14:30 +00:00
parent 2a026867ca
commit b78383bc8f
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/fpsimages.pas
View File

@ -257,8 +257,8 @@ begin
AStream.Position := p + rec.RecSize; AStream.Position := p + rec.RecSize;
end; end;
if dpiX = -1 then dpiX := 96; if (dpiX = -1) or (u = 0) then dpiX := 96;
if dpiY = -1 then dpiY := 96; if (dpiY = -1) or (u = 0) then dpiY := 96;
if u = 2 then begin if u = 2 then begin
dpiX := dpiX * 2.54; dpiX := dpiX * 2.54;
dpiY := dpiY * 2.54; dpiY := dpiY * 2.54;