procedure AddPicture(Picture: TPicture; X, Y: Double);
| Picture | TPicture. Gömülecek kaynak picture nesnesi. Picture içindeki graphic dönüştürülür ve doğal boyutta sayfaya yerleştirilir (Picture.Width / Picture.Height piksel değerlerinden, PDF user unit'lerine eşlenerek türetilir) |
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, bir TPicture nesnesinin tuttuğu graphic'i geçerli PDF sayfasına gömer. İki overload sunulur: üç koordinatlı biçim picture'ı doğal boyutunda yerleştirir, beş koordinatlı biçim ise açık bir Width × Height dikdörtgenine ölçekler
TPicture, kayıtlı her graphic biçimi için standart VCL/LCL kapsayıcısıdır. Biçime özgü olmadığından bitmap, PNG resmi, JPEG resmi veya bir TPicture örneğine yüklenmiş başka herhangi bir graphic geçirebilirsiniz. Doğrudan sade bir TBitmap yerleştirmek için AddImage'i, ham JPEG stream verisi için AddJpegImage'i düşünün
X ve Y parametreleri, resmin PDF user unit cinsinden sol alt köşesini tanımlar (başlangıç noktası sayfanın sol altındadır, Y yukarı doğru artar). Width ve Height verilmediğinde yerleşim boyutu, picture'ın piksel boyutlarından 72 DPI varsayılarak türetilir
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;