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

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 для добавления и удаления шрифта.

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

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