Включение шрифта из файла ресурсов

Тема в разделе "Delphi", создана пользователем WinHack, 28 ноя 2016.

  1. WinHack
    Чтобы подключить свой файл ресурсов, Вы должны включить директиву компилятора {$R MyFont.RES} в раздел implementation. Для извлечения шрифта из ресурса необходимо создать объект типа TResourceStream и добавить шрифт процедурой AddFontResource, а также Вы должны использовать сообщение WM_FONTCHANGE.

    В ресурсном файле нужно создать раздел MYFONT, который будет содержать файл шрифта.

    Код:
    {$R MyFont.RES}
    
    { ... }
    
    procedure TForm1.FormCreate(Sender: TObject);
    var
      MyResStream: TResourceStream;
    begin
      MyResStream:=TResourceStream.Create(hInstance, 'MYFONT', RT_RCDATA);
      MyResStream.SavetoFile('Gen4.ttf');
      AddFontResource(PChar('Gen4.ttf'));
      SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
      Label1.Font.Charset:=SYMBOL_CHARSET;
      Label1.Font.Size:=24;
      Label1.Font.Name:='Gen4';
    end;