True), nebo je pouze odkazované a při zobrazení dohledávané z operačního systému (False)property FontIsEmbedded[Index: Integer]: Boolean; // read only
FontIsEmbedded udává, zda písmo odkazované textovým objektem stránky na daném indexu nese svůj skutečný glyfický program uvnitř souboru PDF. Vložené písmo putuje spolu s dokumentem a vykresluje se stejně na jakékoli platformě; nevložené (pouze odkazované) písmo závisí na tom, že prohlížeč najde lokálně nainstalované písmo stejného názvu, a při zobrazení může být substituováno.
Indexátor je index objektu stránky počítaný od nuly (0..ObjectCount - 1). Netextové objekty vždy vrací False. Před čtením vlastnosti musí být aktivní stránka.
Vkládání může být úplné (přítomen je každý glyf ze zdrojového písma) nebo subset (objevují se pouze skutečně použité glyfy, se šestimístnou předponou přidanou k základnímu názvu); obě formy se zde počítají jako vložené. Pro soulad s PDF/A musí být každé písmo vložené — tato vlastnost je rychlým auditorským nástrojem pro tento požadavek.
| Index | Index objektu stránky počítaný od nuly v rozsahu 0..ObjectCount - 1. |
True neříká, zda je vkládání úplné nebo subset — pro detekci subset prozkoumejte FontBaseName kvůli předponě ABCDEF+.FontData vrací data, pouze když je písmo vložené.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;