procedure AddPicture(Picture: TPicture; X, Y: Double);
| Picture | TPicture. Objek gambar sumber yang akan disematkan. Grafik di dalam Picture dikonversi dan ditempatkan pada halaman dengan ukuran asli (diturunkan dari Picture.Width / Picture.Height dalam piksel, dipetakan ke unit pengguna PDF) |
procedure AddPicture(Picture: TPicture; X, Y, Width, Height: Double);
| Picture | TPicture. Objek gambar sumber yang akan disematkan. Grafik diskalakan agar pas dengan persegi panjang Width × Height yang ditentukan pada halaman |
AddPicture menyematkan grafik yang disimpan dalam objek TPicture ke halaman PDF saat ini. Dua overload disediakan: bentuk tiga-koordinat menempatkan gambar dengan ukuran aslinya, sedangkan bentuk lima-koordinat menskalakannya ke persegi panjang Width × Height eksplisit
TPicture adalah kontainer VCL/LCL standar untuk setiap format grafik terdaftar. Karena tidak spesifik-format, Anda dapat meneruskan bitmap, gambar PNG, gambar JPEG, atau grafik lain yang telah dimuat ke dalam instance TPicture. Untuk menempatkan TBitmap polos secara langsung, pertimbangkan AddImage. Untuk data stream JPEG mentah, gunakan AddJpegImage
Parameter X dan Y menentukan sudut kiri bawah gambar dalam unit pengguna PDF (asal di kiri bawah halaman, Y meningkat ke atas). Ketika Width dan Height dihilangkan, ukuran penempatan diturunkan dari dimensi piksel gambar dengan asumsi 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;