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

← →
•batya• (2007-08-12 16:01) [0]

У меня такая задача, нужно открыть файл шрифта, который не зарегестрированн в системе и этим шрифтом написать на конве вразу.
Нашел по этой теме рару статей, но так и не понял они у меня не заработали.( эти статьи можно найти в делпхиворлд
Как приложению воспользоваться своими шрифтами
Использовать незарегистрированные типы шрифтов )

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;
пишу следующий код, и затем пытаюсь поменять имя шрифта у лабела,
шрифт меняеться но не на тот который в файле.

← →
Dimaxx © (2007-08-12 23:56) [1]

А имя шрифта как задаешь? Как в имени файла?

Имя шрифта хранится внутри ttf-файла.

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