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

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

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com