procedure AddPicture(Picture: TPicture; X, Y: Double);
| Picture | TPicture. Obiekt obrazu źródłowego do osadzenia. Grafika wewnątrz Picture jest konwertowana i umieszczana na stronie w naturalnym rozmiarze (wynikającym z Picture.Width / Picture.Height w pikselach, przeliczonym na jednostki użytkownika PDF) |
procedure AddPicture(Picture: TPicture; X, Y, Width, Height: Double);
| Picture | TPicture. Obiekt obrazu źródłowego do osadzenia. Grafika jest skalowana tak, aby zmieścić się w podanym prostokącie Width × Height na stronie |
AddPicture osadza grafikę przechowywaną w obiekcie TPicture na bieżącej stronie PDF. Dostępne są dwa przeciążenia: forma trzyparametrowa umieszcza obraz w naturalnym rozmiarze, a forma pięcioparametrowa skaluje go do jawnego prostokąta Width × Height
TPicture jest standardowym kontenerem VCL/LCL dla dowolnego zarejestrowanego formatu grafiki. Ponieważ nie jest związany z formatem, można przekazać bitmapy, obrazy PNG, obrazy JPEG albo dowolną inną grafikę załadowaną do instancji TPicture. Do bezpośredniego umieszczania zwykłego TBitmap użyj zamiast tego AddImage. Do surowych danych JPEG w strumieniu użyj AddJpegImage
Parametry X i Y określają lewy dolny róg obrazu w jednostkach użytkownika PDF (początek w lewym dolnym rogu strony, Y rośnie w górę). Gdy pominięto Width i Height, 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');
// Umieść w naturalnym rozmiarze, lewy dolny róg w (72, 500)
Pdf1.AddPicture(Pic, 72, 500);
// Albo przeskaluj do jawnego prostokąta 300 x 200 pt
Pdf1.AddPicture(Pic, 72, 200, 300, 200);
finally
Pic.Free;
end;
end;