True), czy tylko przywołany i rozwiązywany w czasie wyświetlania przez system operacyjny (False)property FontIsEmbedded[Index: Integer]: Boolean; // read only
FontIsEmbedded wskazuje, czy font wskazywany przez tekstowy obiekt strony o podanym indeksie zawiera swój rzeczywisty program glifów w pliku PDF. Font osadzony podróżuje razem z dokumentem i renderuje się identycznie na każdej platformie; font nieosadzony (tylko przywołany) wymaga, aby przeglądarka znalazła lokalnie zainstalowany font o tej samej nazwie, i może zostać podstawiony przy wyświetlaniu
Indekser to liczony od zera indeks obiektu strony (0..ObjectCount - 1). Obiekty nietekstowe zawsze zwracają False. Przed odczytem właściwości strona musi być aktywna
Osadzenie może być pełne (obecny jest każdy glif fontu źródłowego) lub podzbiorowe (pojawiają się tylko faktycznie użyte glify, a do nazwy bazowej dodawany jest sześcioliterowy prefiks); obie formy liczą się tutaj jako osadzone. Dla zgodności z PDF/A każdy font musi być osadzony — ta właściwość jest szybkim narzędziem audytowym tego wymagania
| Index | Liczony od zera indeks obiektu strony w zakresie 0..ObjectCount - 1 |
True nie mówi, czy osadzenie jest pełne, czy podzbiorowe — sprawdź FontBaseName pod kątem prefiksu ABCDEF+, aby wykryć podzbiórFontData zwraca dane tylko wtedy, gdy font jest osadzonyFalsevar
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;