procedure AddPicture(Picture: TPicture; X, Y: Double);
| Picture | TPicture. كائن الصورة المصدر المطلوب تضمينه. يُحوَّل الرسم داخل Picture ويوضع على الصفحة بالحجم الطبيعي (مشتق من Picture.Width / Picture.Height بالبكسل، معيَّنًا إلى وحدات مستخدم PDF). |
procedure AddPicture(Picture: TPicture; X, Y, Width, Height: Double);
| Picture | TPicture. كائن الصورة المصدر المطلوب تضمينه. يُقيَّس الرسم ليلائم مستطيل Width × Height المحدد على الصفحة. |
يضمِّن AddPicture الرسم المحفوظ في كائن TPicture على صفحة PDF الحالية. يُوفَّر تحميلان زائدان: صيغة الإحداثيات الثلاثة تضع الصورة بحجمها الطبيعي، بينما تقيسها صيغة الإحداثيات الخمسة إلى مستطيل Width × Height صريح.
TPicture هو حاوية VCL/LCL القياسية لأي صيغة رسومية مسجلة. ولأنه غير مخصص لصيغة بعينها، يمكنك تمرير الصور النقطية أو صور PNG أو صور JPEG أو أي رسم آخر حُمِّل في نسخة TPicture. لوضع TBitmap عادي مباشرة، فكِّر في AddImage بدلًا من ذلك. ولبيانات تيار JPEG الخام، استخدم AddJpegImage.
يحدد المعاملان X و Y ركن أسفل يسار الصورة بوحدات مستخدم PDF (الأصل عند أسفل يسار الصفحة، و Y يزداد لأعلى). عند إغفال Width و Height، يُشتق حجم الموضع من أبعاد الصورة البكسلية بافتراض 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;