True) أو مجرد مُشار إليه ويُحل وقت العرض من نظام التشغيل (False)property FontIsEmbedded[Index: Integer]: Boolean; // read only
تُبلغ FontIsEmbedded عما إذا كان الخط المشار إليه من كائن الصفحة النصي عند الفهرس المحدد يحمل برنامج رموزه الفعلي داخل ملف PDF. فالخط المضمّن ينتقل مع المستند ويُعرض بشكل مطابق على أي منصة؛ أما الخط غير المضمّن (المرجعي فقط) فيعتمد على العارض في العثور على خط بالاسم نفسه مثبت محليًا، وقد يُستبدل عند العرض.
المفهرس هو فهرس كائن الصفحة الذي يبدأ من الصفر (0..ObjectCount - 1). وتُرجع الكائنات غير النصية False دائمًا. ويجب أن تكون صفحة نشطة قبل قراءة الخاصية.
قد يكون التضمين كاملًا (كل رموز خط المصدر موجودة) أو جزئيًا (تظهر الرموز المستخدمة فعلًا فقط، مع إضافة بادئة ذات ستة أحرف إلى الاسم الأساسي)؛ وكلا الشكلين يُحتسب مضمّنًا هنا. وللتوافق مع PDF/A يجب تضمين كل خط — وهذه الخاصية أداة تدقيق سريعة لذلك الشرط.
| Index | فهرس كائن صفحة يبدأ من الصفر في النطاق 0..ObjectCount - 1. |
True المُرجعة لا تفرق بين التضمين الكامل والجزئي — فافحص FontBaseName بحثًا عن بادئة ABCDEF+ للكشف عن المجموعة الفرعية.FontData بيانات إلا عندما يكون الخط مضمّنًا.False.var
I, EmbeddedCount, TextCount: Integer;
begin
Pdf1.PageNumber := 1;
EmbeddedCount := 0;
TextCount := 0;
for I := 0 to Pdf1.ObjectCount - 1 do
if Pdf1.ObjectType[I] = otText then
begin
Inc(TextCount);
if Pdf1.FontIsEmbedded[I] then Inc(EmbeddedCount);
end;
ShowMessage(Format('%d of %d text objects use embedded fonts',
[EmbeddedCount, TextCount]));
end;