True) ou simplement référencée et résolue au moment de la visualisation depuis le système d’exploitation (False)property FontIsEmbedded[Index: Integer]: Boolean; // read only
FontIsEmbedded indique si la police référencée par l’objet texte de page à l’index donné contient son programme de glyphes réel dans le fichier PDF. Une police intégrée voyage avec le document et s’affiche de manière identique sur toute plateforme; une police non intégrée (référencée seulement) repose sur le fait que la visionneuse trouve localement une police du même nom, et peut être remplacée à l’affichage
L’indexeur est l’index 0-based de l’objet de page (0..ObjectCount - 1). Non-text objects always return False. Une page doit être active avant de lire la propriété
L’intégration peut être complète (chaque glyphe de la police source est présent) ou en sous-ensemble (seuls les glyphes réellement utilisés apparaissent, avec un préfixe de six lettres ajouté au nom de base); les deux formes comptent ici comme intégrées. Pour la conformité PDF/A, chaque police doit être intégrée — cette propriété est un outil rapide d’audit pour cette exigence
| Index | Index d’objet de page de base 0, dans la plage 0..ObjectCount - 1 |
True n’indique pas si l’intégration est complète ou en sous-ensemble — inspectez FontBaseName pour un préfixe ABCDEF+ afin de détecter un sous-ensembleFontData ne renvoie des données que lorsque la police est intégréeFalsevar
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;