True) of alleen extern wordt verwezen en bij het bekijken vanuit het besturingssysteem wordt opgelost (False)property FontIsEmbedded[Index: Integer]: Boolean; // read only
FontIsEmbedded rapporteert of het lettertype waarnaar het tekstpaginaobject op de opgegeven index verwijst, zijn daadwerkelijke glyph-programma in het PDF-bestand meedraagt. Een ingebed lettertype reist mee met het document en wordt op elk platform identiek weergegeven; een niet-ingebed lettertype, dat alleen wordt verwezen, vertrouwt erop dat de viewer lokaal een lettertype met dezelfde naam vindt en kan op het scherm worden vervangen
De indexer is de 0-based paginaobjectindex (0..ObjectCount - 1). Niet-tekstobjecten geven altijd False terug. De pagina moet actief zijn voordat de property wordt gelezen
Inbedding kan volledig zijn, waarbij elk glyph uit het bronlettertype aanwezig is, of een subset, waarbij alleen de werkelijk gebruikte glyphs verschijnen met een zesletterig voorvoegsel aan de basisnaam; beide vormen tellen hier als ingebed. Voor PDF/A-compliance moet elk lettertype zijn ingebed — deze property is een snelle controlemeter voor die eis
| Index | 0-based page-object index in the range 0..ObjectCount - 1. |
True-teruggave zegt niet of de inbedding volledig is of een subset betreft — inspecteer FontBaseName op een ABCDEF+-voorvoegsel om een subset te herkennenFontData geeft alleen gegevens terug wanneer het lettertype is ingebedFalse terugvar
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;