paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 13:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazreport: save Picture in a local variable. This should produce smaller code

Browse Source 
git-svn-id: trunk@39370 -
This commit is contained in:
blikblum 2012-11-25 01:30:29 +00:00
parent db7093818a
commit f1869b2f37
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -304,9 +304,11 @@ var
r: Double; r: Double;
L: Integer; L: Integer;
pw, ph: Integer; pw, ph: Integer;
Picture: TPicture;
begin begin
Picture := View.Picture;
if View.Picture.Graphic is TJpegImage then if Picture.Graphic is TJpegImage then
PRImage := TPRJpegImage.Create(PRPanel) PRImage := TPRJpegImage.Create(PRPanel)
else else
PRImage := TPRImage.Create(PRPanel); PRImage := TPRImage.Create(PRPanel);
@ -319,9 +321,9 @@ begin
if view.Stretched then if view.Stretched then
begin begin
if (View.Flags and flPictRatio<>0) and if (View.Flags and flPictRatio<>0) and
(View.Picture.Width>0) and (View.Picture.Height>0) then (Picture.Width>0) and (Picture.Height>0) then
begin begin
r := View.Picture.Width/View.Picture.Height; r := Picture.Width/Picture.Height;
if (w/h) < r then if (w/h) < r then
begin begin
L := h; L := h;
@ -342,8 +344,8 @@ begin
PRImage.ScaleX := PDFEscX; PRImage.ScaleX := PDFEscX;
PRImage.ScaleY := PDFEscY; PRImage.ScaleY := PDFEscY;
if (View.Flags and flPictCenter<>0) then begin if (View.Flags and flPictCenter<>0) then begin
pw := trunc(View.Picture.Width * PDFEscX + 1.5); pw := trunc(Picture.Width * PDFEscX + 1.5);
ph := trunc(View.Picture.Height * PDFEscY + 1.5); ph := trunc(Picture.Height * PDFEscY + 1.5);
x := x + (w - pw) div 2 - 1; x := x + (w - pw) div 2 - 1;
y := y + (h - ph) div 2 - 1; y := y + (h - ph) div 2 - 1;
end; end;
@ -358,7 +360,7 @@ begin
PRImage.Height := ph; PRImage.Height := ph;
PRImage.Width := pw; PRImage.Width := pw;
PRImage.Picture.Graphic := View.Picture.Graphic; PRImage.Picture.Graphic := Picture.Graphic;
end; end;
procedure TfrTNPDFExportFilter.ShowRoundRect(View: TfrRoundRectView; x, y, h, procedure TfrTNPDFExportFilter.ShowRoundRect(View: TfrRoundRectView; x, y, h,