procedure AddPicture(Picture: TPicture; X, Y: Double);
| Picture | TPicture. Izvorni objekt slike za vdelavo. Grafika znotraj Picture se pretvori in postavi na stran v naravni velikosti (izpeljano iz Picture.Width / Picture.Height v slikovnih pikah, preslikano v uporabniške enote PDF). |
procedure AddPicture(Picture: TPicture; X, Y, Width, Height: Double);
| Picture | TPicture. Izvorni objekt slike za vdelavo. Grafika se skalira, da se prilega podanemu pravokotniku Width × Height na strani. |
AddPicture vdeluje grafiko, ki jo drži objekt TPicture, na trenutno stran PDF. Na voljo sta dve preoblikitvi: trikoordinatna oblika postavi sliko v njeno naravno velikost, petkoordinatna oblika pa jo skalira na ekspliciten pravokotnik Width × Height.
TPicture je standardni vsebnik VCL/LCL za katero koli registrirano grafično obliko. Ker ni specifičen za obliko, lahko posredujete bitmape, slike PNG, slike JPEG ali katero koli drugo grafiko, ki je bila naložena v primerek TPicture. Za neposredno postavljanje navadnega TBitmap raje razmislite o AddImage. Za surove podatke toka JPEG uporabite AddJpegImage.
Parametra X in Y določata spodnji levi kot slike v uporabniških enotah PDF (izhodišče spodaj levo na strani, Y narašča navzgor). Ko sta Width in Height izpuščena, se velikost postavitve izpelje iz dimenzij slike v slikovnih pikah ob predpostavki 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;