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

LazReport, fix PDF export filter not centering images properly, issue #23236

Browse Source 
git-svn-id: trunk@39238 -
This commit is contained in:
jesus 2012-11-03 04:05:58 +00:00
parent 37a90f1c94
commit 7569c35e4c
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -303,6 +303,7 @@ var
PRImage: TPRImage;
r: Double;
L: Integer;
pw, ph: Integer;
begin
if View.Picture.Graphic is TJpegImage then
@ -321,23 +322,27 @@ begin
if (w/h) < r then
begin
L := h;
h := trunc(w/r + 0.5);
ph := trunc(w/r + 0.5);
pw := w;
if (View.Flags and flPictCenter<>0) then
y := y + (L-h) div 2;
y := y + (L-ph) div 2;
end
else
begin
L := w;
w := trunc(h*r + 0.5);
ph := h;
pw := trunc(h*r + 0.5);
if (View.Flags and flPictCenter<>0) then
x := x + (L-w) div 2;
x := x + (L-pw) div 2;
end;
end;
end
else
if (View.Flags and flPictCenter<>0) then begin
x := x + (w - View.Picture.Width) div 2 - 1;
y := y + (h - View.Picture.Height) div 2 - 1;
pw := trunc(View.Picture.Width * PDFEscX + 1.5);
ph := trunc(View.Picture.Height * PDFEscY + 1.5);
x := x + (w - pw) div 2 - 1;
y := y + (h - ph) div 2 - 1;
end;
PRImage.Stretch := View.Stretched;
@ -346,8 +351,8 @@ begin
PRImage.Left := x;
PRImage.Top := y;
PRImage.Height := h;
PRImage.Width := w;
PRImage.Height := ph;
PRImage.Width := pw;
PRImage.Picture.Graphic := View.Picture.Graphic;
end;