property FontFamilyName[Index: Integer]: WString; // read only
FontFamilyName 會傳回指定索引處文字頁面物件所參照字型的人類可讀字族名稱。字族名稱就是設計師與使用者通常稱呼字型的方式,且不受 Bold、Italic 或 Oblique 之類樣式尾碼影響。完整的 PostScript 名稱(通常包含樣式)請參見 FontBaseName
索引器是 0 起算的頁面物件索引,範圍為 0..ObjectCount - 1。只有文字物件才有字型;非文字物件會傳回空字串。查詢此屬性之前,頁面必須先處於作用中狀態,也就是先設定 PageNumber
對於內嵌子集字型,傳回值仍代表來源字族,即使內嵌的字形集合只是部分。當 PDF 參照的是未內嵌字型時,傳回的名稱就是產製者宣告的名稱;在 PDFium 以不同實體字型替代顯示的系統上,這裡回報的字族名稱仍是原本要求的名稱,而不是替代字型
| Index | 0 起算的頁面物件索引,範圍為 0..ObjectCount - 1 |
WString 而不是 ANSIABCDEF+)FontFamilyName + FontWeight + FontItalicAngle 的組合通常可以識別出實際使用的樣式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;