procedure AddPicture(Picture: TPicture; X, Y: Double);
| Picture | TPicture. Osadzany źródłowy obiekt obrazu. Grafika wewnątrz Picture jest konwertowana i umieszczana na stronie w rozmiarze naturalnym (wyprowadzonym z Picture.Width / Picture.Height w pikselach, mapowanym na jednostki użytkownika PDF) |
procedure AddPicture(Picture: TPicture; X, Y, Width, Height: Double);
| Picture | TPicture. Osadzany źródłowy obiekt obrazu. Grafika jest skalowana, aby dopasować się do wskazanego prostokąta Width × Height na stronie |
AddPicture osadza grafikę przechowywaną w obiekcie TPicture na bieżącej stronie PDF. Udostępnione są dwa przeciążenia: forma trójwspółrzędna umieszcza obraz w rozmiarze naturalnym, natomiast forma pięciowspółrzędna skaluje go do prostokąta o jawnych wartościach Width × Height
TPicture to standardowy kontener VCL/LCL dla dowolnego zarejestrowanego formatu graficznego. Ponieważ nie jest powiązany z konkretnym formatem, można przekazywać mapy bitowe, obrazy PNG, obrazy JPEG lub dowolną inną grafikę wczytaną do instancji TPicture. Aby umieścić bezpośrednio zwykłą mapę bitową TBitmap, rozważ zamiast tego AddImage. Dla surowych danych strumienia JPEG użyj AddJpegImage
Parametry X i Y określają lewy dolny róg obrazu w jednostkach użytkownika PDF (początek układu w lewym dolnym rogu strony, Y rośnie w górę). Gdy parametry Width i Height zostaną pominięte, rozmiar umieszczenia jest wyprowadzany z wymiarów pikselowych obrazu przy założeniu 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;