You are not logged in.
Pages: 1
I've trying insert two images and it show error: AddXObject: dup name Syn -1. Only 1 image works. I have 1.8.1 version
My code:
with pdf do
try
info.Title := Application.Title;
info.Author := 'OttoBock';
DefaultPaperSize := psA4;
pdfPagina := AddPage;
VCLCanvas.Font.Name := 'Arial';
VCLCanvas.Font.Size := 24;
VCLCanvas.Font.Style := [fsBold];
i := VCLCanvas.TextWidth(lblProdNombre.Caption);
VCLCanvas.TextOut((VCLCanvasSize.cy-i) div 2, 20,lblProdNombre.Caption);
VCLCanvas.Draw(10,50,imgProd.Picture.Graphic);
VCLCanvas.Draw(10,VCLCanvasSize.cx - imgTabla.Picture.Graphic.Height - 50,imgTabla.Picture.Graphic);
SaveToFile(DirExe + 'DAT\temppdf.pdf');
Pages: 1