Commit 1bb2d62a authored by Jesus's avatar Jesus
Browse files

LazReport, fix incorrect scaling of unstretched images on PDF export, PDF...

LazReport, fix incorrect scaling of unstretched images on PDF export, PDF export addon now requires PowerPDF 0.9.10, issue #23326

git-svn-id: trunk@39284 -
parent f0e99e4d
......@@ -23,7 +23,7 @@
</CompilerOptions>
<Description Value="PDF Exporter for PDF
"/>
<Version Minor="7"/>
<Version Minor="8"/>
<Files Count="2">
<Item1>
<Filename Value="lr_e_pdf.pas"/>
......@@ -45,7 +45,7 @@
</Item2>
<Item3>
<PackageName Value="pack_powerpdf"/>
<MinVersion Minor="9" Release="9" Valid="True"/>
<MinVersion Minor="9" Release="10" Valid="True"/>
</Item3>
<Item4>
<PackageName Value="lazreport"/>
......
......@@ -338,12 +338,15 @@ begin
end;
end;
end
else
if (View.Flags and flPictCenter<>0) then begin
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;
else begin
PRImage.ScaleX := PDFEscX;
PRImage.ScaleY := PDFEscY;
if (View.Flags and flPictCenter<>0) then begin
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;
end;
PRImage.Stretch := View.Stretched;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment