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

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;

Статья Использовать незарегистрированные типы шрифтов раздела Графика и Игры Шрифты может быть полезна для разработчиков на Delphi и FreePascal.

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

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