Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

Использовать незарегистрированные типы шрифтов

Delphi , Графика и Игры , Шрифты

Использовать незарегистрированные типы шрифтов

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.FormCreate(Sender: TObject);
 begin
   AddFontResource(PChar(ExtractFilePath(ParamStr(0) + 'YourFont.TTF')));
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
 end;


 procedure TForm1.FormDestroy(Sender: TObject);
 begin
   RemoveFontResource(PChar(ExtractFilePath(ParamStr(0) + 'YourFont.TTF')));
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
 end;

Here is the translation of the text into Russian:

Использование не зарегистрированных типов шрифтов

Предоставленное код Delphi используется для загрузки и регистрации не зарегистрированного файла шрифта (.TTF) в реальном времени. Это позволяет приложению использовать этот шрифт для отображения текста.

Процедура FormCreate Процедура FormCreate вызывается, когда форма ( TForm1 ) создается. В этой процедуре выполняются следующие действия: 1. AddFontResource: эта функция добавляет новый ресурс шрифта в систему. Первый аргумент - путь к файлу шрифта (.TTF). В этом случае имя файла - 'YourFont.TTF', и оно находится в том же каталоге, что и исполняемый файл. 2. SendMessage с сообщением WM_FONTCHANGE: это отправляет сообщение всем верхнем-уровневым окнам (HWND_BROADCAST), указывая, что произошло изменение шрифта. Это заставляет другие приложения обновить свои кэши шрифтов.

Процедура FormDestroy Процедура FormDestroy вызывается, когда форма ( TForm1 ) уничтожается. В этой процедуре выполняются следующие действия: 1. RemoveFontResource: эта функция удаляет ранее добавленный ресурс шрифта из системы. Аргумент - путь к файлу шрифта (.TTF). 2. SendMessage с сообщением WM_FONTCHANGE: это отправляет сообщение всем верхнем-уровневым окнам (HWND_BROADCAST), указывая, что произошло изменение шрифта. Это заставляет другие приложения обновить свои кэши шрифтов.

Замечания

  • В Delphi вам нужно иметь необходимые разрешения для загрузки и регистрации шрифтов.
  • Код предполагает, что файл шрифта 'YourFont.TTF' существует в том же каталоге, что и исполняемый файл.
  • Вы должны заменить 'YourFont.TTF' на актуальный путь к вашему файлу шрифта.

Альтернативное решение может быть использование третьей-сторонней библиотеки или компонента, которая предоставляет функциональность загрузки и регистрации шрифтов. Это может сделать код более robust и проще для поддержки различных форматов шрифтов или загрузки шрифтов из различных мест.

Статья описывает способ использования незарегистрированных типов шрифтов в приложении Delphi, где используются процедуры AddFontResource и RemoveFontResource для добавления и удаления шрифта.


Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.


:: Главная :: Шрифты ::


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-12-22 20:14:06
2025-07-02 04:54:58/0.0032958984375/0