Модуль ResFont для шрифтов

[apromix]

Модуль позволяет загружать в процесс программы сторонние шрифты из файлов.

Использование:

procedure TForm1.FormCreate(Sender: TObject);
var
  A: TResFont; 
begin
  A := TResFont.Create;       
  try
    A.LoadFromFile('BosaNova.ttf');
    Label1.Font.Name := A.FontName;
    Label1.Caption := 'ABCDEF АБВГДЕ';
  finally
    A.Free;
  end;
end;