True) atau hanya direferensikan dan di-resolve saat tayang dari sistem operasi (False)property FontIsEmbedded[Index: Integer]: Boolean; // read only
FontIsEmbedded melaporkan apakah font yang direferensikan oleh objek halaman teks pada indeks yang diberikan membawa program glyph aktualnya di dalam file PDF. Font yang tertanam bepergian dengan dokumen dan dirender identik di platform apa pun; font yang tidak tertanam (hanya-referensi) mengandalkan penampil untuk menemukan font dengan nama yang sama yang terpasang secara lokal, dan mungkin diganti saat ditampilkan
Indekser adalah indeks objek-halaman berbasis-0 (0..ObjectCount - 1). Objek non-teks selalu mengembalikan False. Halaman harus aktif sebelum membaca properti
Penyematan dapat berupa penuh (setiap glyph dari font sumber hadir) atau subset (hanya glyph yang benar-benar dipakai yang muncul, dengan prefiks enam-huruf ditambahkan ke nama dasar); kedua bentuk dihitung sebagai tertanam di sini. Untuk kepatuhan PDF/A setiap font harus tertanam — properti ini adalah alat audit cepat untuk persyaratan itu
| Index | Indeks objek-halaman berbasis-0 dalam rentang 0..ObjectCount - 1 |
True tidak mengatakan apakah penyematan penuh atau subset — periksa FontBaseName untuk prefiks ABCDEF+ guna mendeteksi subsetFontData hanya mengembalikan data ketika font tertanamFalsevar
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;