FontIsEmbedded - TPdf

Componente: TPdf · Unidad: PDFium

FontIsEmbedded informa si la fuente referenciada por el objeto de texto en el índice dado trae su programa de glifos dentro del archivo PDF. Una fuente incrustada viaja con el documento y se ve igual en cualquier plataforma; una fuente no incrustada depende de que el visor encuentre localmente una fuente con el mismo nombre y puede ser sustituida al mostrarla

Syntax

property FontIsEmbedded[Index: Integer]: Boolean; // read only

Description

FontIsEmbedded reports whether the font referenced by the text page object at the given index carries its actual glyph program inside the PDF file. An embedded font travels with the document and renders identically on any platform; a non-embedded (referenced-only) font relies on the viewer finding a font of the same name installed locally, and may be substituted on display.

The indexer is the 0-based page-object index (0..ObjectCount - 1). Non-text objects always return False. A page must be active before reading the property.

Embedding can be full (every glyph from the source font is present) or subset (only the glyphs actually used appear, with a six-letter prefix added to the base name); both forms count as embedded here. For PDF/A compliance every font must be embedded — this property is a quick auditing tool for that requirement.

Parameters

Index

0-based page-object index in the range 0..ObjectCount - 1.

Remarks

The 14 standard PDF Type1 fonts (Helvetica, Times-Roman, etc.) are typically not embedded and are expected to be resolved by the viewer.
A True return does not say whether the embedding is full or subset — inspect FontBaseName for a ABCDEF+ prefix to detect a subset.
Combine with FontData when you need the raw bytes — FontData only returns data when the font is embedded.
For non-text objects the property is meaningless and returns False.
Useful when checking compliance with PDF/A or when computing how portable a document is across systems.

Example

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;

FontIsEmbedded propiedad