FontFamilyName - TPdf - PDFium Delphi Component

Komponente: TPdf · Unit: PDFium

Gibt den typografischen Familiennamen (z. B. Helvetica, Times New Roman, Noto Sans CJK SC) der Schrift zurück, die von einem Seitenobjekt auf der aktuellen Seite verwendet wird

Syntax

property FontFamilyName[Index: Integer]: WString; // read only

Description

FontFamilyName liefert den lesbaren Familiennamen der Schrift, auf die das Text-Seitenobjekt am gegebenen Index verweist. Der Familienname ist das, was Designer und Nutzer umgangssprachlich den Font nennen, und unabhängig von Stil-Suffixen wie Bold, Italic oder Oblique. Für den vollständigen PostScript-Namen (der meist den Stil einschließt) siehe FontBaseName

Der Indexer ist der 0-basierte Seitenobjekt-Index im Bereich 0..ObjectCount - 1. Nur Textobjekte tragen eine Schrift; Nicht-Text-Objekte liefern eine leere Zeichenkette. Bevor die Eigenschaft abgefragt wird, muss eine Seite aktiv sein — PageNumber zuerst setzen

Bei eingebetteten Subset-Fonts steht im Wert trotzdem die Quellfamilie, auch wenn der eingebettete Glyphenumfang teilweise ist. Referenziert das PDF eine nicht eingebettete Schrift, kommt der Name zurück, den der Produzent deklariert hat; ersetzt PDFium auf einem System beim Rendering eine andere physische Schrift, bleibt der hier gemeldete Familienname weiterhin der angeforderte, nicht der Ersatz

Parameters

Index

0-basierter Seitenobjekt-Index im Bereich 0..ObjectCount - 1

Remarks

Liefert eine leere Zeichenkette, wenn das Seitenobjekt kein Text ist oder das Font-Handle ungültig ist
Namen können Nicht-ASCII-Zeichen enthalten — als WString behandeln, nicht als ANSI
Bei Subset-Fonts entfernt PDFium das sechsbuchstabige PDF-Subset-Präfix (etwa ABCDEF+) automatisch
Mit FontIsEmbedded prüfen, ob die genannte Schrift im PDF mitgereist kommt
Die Kombination aus FontFamilyName + FontWeight + FontItalicAngle identifiziert üblicherweise den exakt verwendeten Stil

Example

var
  I: Integer;
  Names: TStringList;
begin
  Pdf1.PageNumber := 1;
  Names := TStringList.Create;
  Names.Sorted := True;
  Names.Duplicates := dupIgnore;
  try
    for I := 0 to Pdf1.ObjectCount - 1 do
      if Pdf1.FontFamilyName[I] <> '' then
        Names.Add(Pdf1.FontFamilyName[I]);
    Memo1.Lines.Assign(Names);
  finally
    Names.Free;
  end;
end;

FontFamilyName Eigenschaft