procedure AddPicture(Picture: TPicture; X, Y: Double);
| Picture | TPicture. L'oggetto picture sorgente da incorporare. Il graphic dentro Picture viene convertito e posizionato sulla pagina alla dimensione naturale (derivata da Picture.Width / Picture.Height in pixel, mappati in unità utente PDF) |
procedure AddPicture(Picture: TPicture; X, Y, Width, Height: Double);
| Picture | TPicture. L'oggetto picture sorgente da incorporare. Il graphic viene scalato per adattarsi al rettangolo Width × Height indicato sulla pagina |
AddPicture incorpora nella pagina PDF corrente la grafica contenuta in un oggetto TPicture. Sono disponibili due overload: la forma a tre coordinate posiziona l'immagine alla sua dimensione naturale, mentre la forma a cinque coordinate la ridimensiona in un rettangolo esplicito Width × Height.
TPicture è il contenitore VCL/LCL standard per qualsiasi formato grafico registrato. Poiché non è specifico di un formato, è possibile passare bitmap, immagini PNG, immagini JPEG o qualsiasi altra grafica caricata in un'istanza di TPicture. Per posizionare direttamente un semplice TBitmap, considera invece AddImage. Per dati di flusso JPEG grezzi, usa AddJpegImage.
I parametri X e Y definiscono l'angolo inferiore sinistro dell'immagine in unità utente PDF (origine nell'angolo in basso a sinistra della pagina, Y cresce verso l'alto). Quando Width e Height vengono omessi, la dimensione di posizionamento deriva dalle dimensioni in pixel dell'immagine assumendo 72 DPI.
var
Pic: TPicture;
begin
Pic := TPicture.Create;
try
Pic.LoadFromFile('C:\Images\chart.png');
// Place at natural size, lower-left at (72, 500)
Pdf1.AddPicture(Pic, 72, 500);
// Or scale to an explicit 300 x 200 pt rectangle
Pdf1.AddPicture(Pic, 72, 200, 300, 200);
finally
Pic.Free;
end;
end;