TTFFileInfo

type TTFFileInfo = class(TObject)

protected

  function ReadInt16();

  function ReadUInt32();

  function ReadUInt16();

  procedure ParseHead(); virtual;

  procedure ParseHhea(); virtual;

  procedure ParseMaxp(); virtual;

  procedure ParseHmtx(); virtual;

  procedure ParseCmap(); virtual;

  procedure ParseName(); virtual;

  procedure ParseOS2(); virtual;

  procedure ParsePost(); virtual;

  procedure PrepareEncoding();

  function MakeDifferences; virtual;

  function ToNatural();

public

  Chars: TWordArray;

  CharWidth: array [0..255] of SmallInt;

  CharNames: PTTFEncodingNames;

  CharCodes: PTTFEncodingValues;

  CharBase: PTTFEncodingNames;

  PostScriptName: string;

  FamilyName: string;

  HumanFriendlyName: string;

  destructor Destroy; override;

  function GetGlyphIndex();

  function GetTableDirEntry();

  procedure LoadFromFile();

  procedure LoadFromStream(); virtual;

  procedure PrepareFontDefinition();

  function Flags;

  function Bold;

  function StemV;

  function Embeddable;

  function Ascender;

  function Descender;

  function Leading;

  function CapHeight;

  function GetAdvanceWidth();

  function ItalicAngle;

  function BBox;

  property MissingWidth: Integer; [r]

  property OriginalSize: Cardinal; [r]

  property Filename: string; [r]

  property Directory: TTableDirectory; [r]

  property Tables: TTableDirectoryEntries; [r]

  property Head: THead; [r]

  property HHead: THHead; [r]

  property CmapH: TCmapHeader; [r]

  property CmapSubtables: TCmapSubTables; [r]

  property CmapUnicodeMap: TCmapFmt4; [r]

  property CmapUnicodeMapSegments: TUnicodeMapSegmentArray; [r]

  property Widths: TLongHorMetricArray; [r]

  property MaxP: TMaxP; [r]

  property OS2Data: TOS2Data; [r]

  property PostScript: TPostScript; [r]

  property NameEntries: TNameEntries; [r]

end;

TTFFileInfo

TObject