procedure AddPicture(Picture: TPicture; X, Y: Double);
| Picture | TPicture. Källbildsobjektet som ska bäddas in. Grafiken inuti Picture konverteras och placeras på sidan i naturlig storlek (härledd från Picture.Width / Picture.Height i pixlar, mappad till PDF-användarenheter) |
procedure AddPicture(Picture: TPicture; X, Y, Width, Height: Double);
| Picture | TPicture. Källbildsobjektet som ska bäddas in. Grafiken skalas för att passa den angivna rektangeln Width × Height på sidan |
AddPicture bäddar in grafiken som hålls i ett TPicture-objekt på den aktuella PDF-sidan. Två överlagringar finns: formen med tre koordinater placerar bilden i sin naturliga storlek, medan formen med fem koordinater skalar den till en explicit rektangel Width × Height
TPicture är standardbehållaren i VCL/LCL för alla registrerade grafikformat. Eftersom den inte är formatspecifik kan du skicka in bitmaps, PNG-bilder, JPEG-bilder eller vilken annan grafik som helst som har lästs in i en TPicture-instans. För att placera en vanlig TBitmap direkt, överväg AddImage i stället. För rå JPEG-strömdata, använd AddJpegImage
Parametrarna X och Y definierar bildens nedre vänstra hörn i PDF-användarenheter (origo i sidans nedre vänstra hörn, Y ökar uppåt). När Width och Height utelämnas härleds placeringsstorleken från bildens pixeldimensioner under antagandet 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;