FCL-PDF images not displayed correctly
Original Reporter info from Mantis: Rckkcr
-
Reporter name: Ruben
Original Reporter info from Mantis: Rckkcr
- Reporter name: Ruben
Description:
Images are not rendered correctly
Steps to reproduce:
function Timage2PDF.convert(bitmap:Tstream): TMemoryStream;
var PDF:TPDFDocument;
PDFopts:TPDFOptions;
P:TPDFpage;
S:TPDFsection;
IDX,W,H:integer;
TS:TMemoryStream;
UnitOfMeasure: TPDFUnitOfMeasure;
begin
PDF:=TPDFDocument.create(nil);
PDF.infos.Title:='test';
PDFopts:=[poPageOriginAtTop];
PDF.StartDocument;
S:=PDF.Sections.AddSection;
P:=PDF.Pages.AddPage;
P.PaperType:= ptA4 ;
P.UnitOfMeasure:=uomPixels;
//IDX:=PDF.images.AddFromFile('qr.bmp');
IDX:=PDF.images.Addfromstream(bitmap, TFPReaderBMP, false);
W:=PDF.Images[IDX].Width;
H:=PDF.Images[IDX].Height;
P.DrawImageRawSize(0,P.GetPaperHeight - H,W,H,IDX);
S.Addpage(P);
TS:=MemoryStream.create;
PDF.SaveToStream(TS);
Result:=TS;
End
Mantis conversion info:
- Mantis ID: 37912
- Version: 2.0.10