paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 22:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport PDF exporter, use keep aspect ratio before exporting a picture, issue #19359

Browse Source 
git-svn-id: trunk@30828 -
This commit is contained in:
jesus 2011-05-20 14:21:13 +00:00
parent 654cff4def
commit aa66c023e4
1 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -216,14 +216,46 @@ procedure TfrTNPDFExportFilter.ShowPicture(View: TfrPictureView; x, y, h,
w: integer);
var
PRImage: TPRImage;
r: Double;
L: Integer;
begin
if View.Picture.Graphic is TJpegImage then
PRImage := TPRJpegImage.Create(PRPanel)
else
PRImage := TPRImage.Create(PRPanel);
PRImage.Parent := PRPanel;
PRImage.Stretch := True;
if view.Stretched then
begin
if (View.Flags and flPictRatio<>0) and
(View.Picture.Width>0) and (View.Picture.Height>0) then
begin
r := View.Picture.Width/View.Picture.Height;
if (w/h) < r then
begin
L := h;
h := Round(w/r);
if (View.Flags and flPictCenter<>0) then
y := y + (L-h) div 2;
end
else
begin
L := w;
w := Round(h*r);
if (View.Flags and flPictCenter<>0) then
x := x + (L-w) 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;
end;
PRImage.Stretch := View.Stretched;
PRImage.SharedName := View.SharedName;
PRImage.SharedImage := (View.SharedName<>'');