paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 01:40:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, do not convert jpeg images on exporting to pdf

Browse Source 
git-svn-id: trunk@28577 -
This commit is contained in:
jesus 2010-11-30 19:47:26 +00:00
parent 242d0d20fa
commit 955de0d234
1 changed files with 28 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -20,7 +20,8 @@ interface
uses
SysUtils, Classes, Graphics, Forms, StdCtrls, lr_class, lr_BarC,
lr_shape, PdfDoc, PdfTypes, PdfFonts, PReport, Dialogs, Controls;
lr_shape, PdfDoc, PdfTypes, PdfFonts, PRJpegImage, PReport, Dialogs,
Controls;
type
TfrTNPDFExport = class(TComponent) // fake component
@ -214,26 +215,37 @@ end;
procedure TfrTNPDFExportFilter.ShowPicture(View: TfrPictureView; x, y, h,
w: integer);
var
Bitmap: TBitmap;
PRImage: TPRImage;
Bitmap: TBitmap;
PRImage: TPRImage;
begin
if View.Picture.Graphic is TJpegImage then
PRImage := TPRJpegImage.Create(PRPanel)
else
PRImage := TPRImage.Create(PRPanel);
PRImage.Parent := PRPanel;
PRImage.Stretch := True;
PRImage.SharedImage := View.Shared;
PRImage.Left := x;
PRImage.Top := y;
PRImage.Height := h;
PRImage.Width := w;
if View.Picture.Graphic is TJpegImage then
PRImage.Picture.Graphic := View.Picture.Graphic
else
begin
Bitmap := TBitmap.Create;
try
PRImage := TPRImage.Create(PRPanel);
PRImage.Parent := PRPanel;
PRImage.Stretch := True;
PRImage.SharedImage := View.Shared;
PRImage.Left := x;
PRImage.Top := y;
PRImage.Height := h;
PRImage.Width := w;
Bitmap.Height := View.Picture.Height;
Bitmap.Width := View.Picture.Width;
Bitmap.Canvas.Draw(0, 0, View.Picture.Graphic);
PRImage.Picture.Bitmap := Bitmap;
Bitmap.Height := View.Picture.Height;
Bitmap.Width := View.Picture.Width;
Bitmap.Canvas.Draw(0, 0, View.Picture.Graphic);
PRImage.Picture.Bitmap := Bitmap;
finally
FreeAndNil(Bitmap);
FreeAndNil(Bitmap);
end;
end;
end;
procedure TfrTNPDFExportFilter.ShowShape(View: TfrShapeView; x, y, h, w: integer