True) ya da yalnızca başvurulup görüntüleme sırasında işletim sisteminden çözümlenip çözümlenmediğini gösterir (False)property FontIsEmbedded[Index: Integer]: Boolean; // read only
FontIsEmbedded verilen dizindeki text page object tarafından başvurulan yazı tipinin gerçek glif programını PDF dosyasının içinde taşıyıp taşımadığını bildirir. Gömülü bir yazı tipi belgeyle birlikte taşınır ve herhangi bir platformda aynı şekilde işlenir; gömülü olmayan (yalnızca başvurulan) bir yazı tipi, görüntüleyicinin aynı adlı bir yazı tipini yerel olarak bulmasına dayanır ve görüntüleme sırasında yerine başka bir yazı tipi konabilir.
Dizinleyici 0 tabanlı page-object dizinidir (0..ObjectCount - 1). Metin olmayan nesneler her zaman False döndürür. Özelliği okumadan önce bir sayfanın etkin olması gerekir
Embedding tam olabilir (kaynak fonttaki her glif mevcuttur) ya da subset olabilir (yalnızca gerçekten kullanılan glifler görünür ve base name'e altı harfli bir önek eklenir); her iki biçim de burada embedded sayılır. PDF/A uyumluluğu için her font gömülü olmalıdır — bu özellik bu gereksinimi hızlıca denetlemek içindir
| Index | 0..ObjectCount - 1 aralığındaki 0 tabanlı page-object dizini |
True dönüşü embedding'in tam mı yoksa subset mi olduğunu söylemez — subset algılamak için FontBaseName içinde ABCDEF+ öneki arayınFontData yalnızca yazı tipi gömülü olduğunda veri döndürürFalse döndürürvar
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;