děkuji,
rozhodl jsem se pro variantu vykreslení na CANVAS a převedení do .pdf
drbačka, ale mám to hotové.
mám už jen jeden problém.
používám knihovnu SynPDF
- Kód: Vybrat vše
procedure TMyForm.UlozPDF;
var PDF: TPdfDocumentGDI;
Pdfstranka, PdfStranka2: TPdfPage;
PdfCanvas: TCanvas;
PdfImage, PdfImage2: TPdfImage;
begin
PDF:= TPdfDocumentGDI.Create();
try
PDF.Info.Author:= 'bla bla';
PDF.Info.CreationDate:= now;
PDF.Info.Creator:= 'bla bla';
PDF.Info.Subject:= 'bla';
PDF.Info.Title:= 'Nadpis';
PDF.DefaultPaperSize:= psA4;
//===========================================================//
PdfStranka:= PDF.AddPage;
PdfStranka.PageLandscape:= False; // portrait ;
PdfCanvas:= PDF.VclCanvas;
NakresliPodkladStranky(PdfCanvas); // tady kreslím pozadí + texty
NakresliShape(2, clRed, PdfCanvas); // vykreslení použitých barev
PdfImage:= TPdfImage.Create(PDF, iFotka.Picture.Graphic, True);
PDF.AddXObject('fotka', PdfImage);
PDF.Canvas.DrawXObject(285, 568, 270, 183, 'fotka');
PDF.SaveToFile('D:\PDFpokus.pdf');
finally
PDF.Free;
end;
end;
fotka se vloží do vymezenyho prostoru, ale její velikost zůstane nezměněná.
chci se zeptat, jestli existuje nějakej způsob, jak tam vložit fotku, na kterou když se v .pdf klikne, tak se zobrazí v původní velikosti.
něco jak hyper odkaz (mimochodem, ten taky nevím jak se vkládá a asi by se mi to hodilo na mailTo)
chtěl jsem se spokojit, že tu fotku vložím na druhou stranu přes celou plochu, což by taky šlo, ale tak nějak nemůžu přijít na to, jak.
- Kód: Vybrat vše
PdfStranka:= PDF.AddPage;
PdfStranka.PageLandscape:= False; // potrait ;
PdfCanvas:= PDF.VclCanvas;
NakresliPodkladStranky(PdfCanvas);
NakresliShape(2, clRed, PdfCanvas);
PdfImage:= TPdfImage.Create(PDF, iFotka.Picture.Graphic, True);
PDF.AddXObject('fotka', PdfImage);
PDF.Canvas.DrawXObject(285, 568, 270, 183, 'fotka');
PdfStranka2:= PDF.AddPage;
PdfStranka2.PageLandscape:= True;
PdfImage2:= TPdfImage.Create(PDF, iFotka.Picture.Graphic, True);
PDF.AddXObject('fotkaBig', PdfImage);
PDF.Canvas.DrawXObject(0, 0, Pdfstranka2.PageWidth, PdfStranka2.PageHeight, 'fotkaBig');
PDF.SaveToFile('D:\PDFpokus.pdf');
ERR: 'AddObject.'
je divny, že když vkládám ty fotky, tak nikde nezadávám na kterou stránku je umisťuju.