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

LazReport, fix exported image size in case is not proportional and stretched

Browse Source 
git-svn-id: trunk@39250 -
This commit is contained in:
jesus 2012-11-06 17:34:18 +00:00
parent 26aa11a8da
commit faebc27321
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazreport/source/addons/pdfexport/lr_e_pdf.pas
View File

@ -313,6 +313,9 @@ begin
PRImage.Parent := PRPanel;
ph := h;
pw := w;
if view.Stretched then
begin
if (View.Flags and flPictRatio<>0) and
@ -323,14 +326,12 @@ begin
begin
L := h;
ph := trunc(w/r + 0.5);
pw := w;
if (View.Flags and flPictCenter<>0) then
y := y + (L-ph) div 2;
end
else
begin
L := w;
ph := h;
pw := trunc(h*r + 0.5);
if (View.Flags and flPictCenter<>0) then
x := x + (L-pw) div 2;