procedure AddPicture(Picture: TPicture; X, Y: Double);
| Picture | TPicture. The source picture object to embed. The graphic inside Picture wird konvertiert und in natürlicher Größe auf der Seite platziert (abgeleitet von Picture.Width / Picture.Height in pixels, mapped to PDF user units). |
procedure AddPicture(Picture: TPicture; X, Y, Width, Height: Double);
| Picture | TPicture. The source picture object to embed. The graphic is scaled to fit the specified Width × Height rectangle on the page. |
AddPicture embeds the graphic held in a TPicture Objekt auf die aktuelle PDF-Seite. Es werden zwei Überladungen bereitgestellt: Die Drei-Koordinaten-Form platziert das Bild in natürlicher Größe, während die Fünf-Koordinaten-Form es auf eine explizite Width × Height rectangle.
TPicture ist der Standard-VCL/LCL-Container für jedes registrierte Grafikformat. Da er nicht formatspezifisch ist, können Sie Bitmaps, PNG-Bilder, JPEG-Bilder oder jede andere Grafik übergeben, die in einen TPicture instance. For placing a plain TBitmap directly, consider AddImage instead. For raw JPEG stream data, use AddJpegImage.
The X and Y parameters define the lower-left corner of the image in PDF user units (origin at page lower-left, Y increases upward). When Width and Height weggelassen werden, wird die Platzierungsgröße aus den Pixelabmessungen des Bildes unter Annahme von 72 DPI abgeleitet
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;