Использование не зарегестрированных шрифтов
•batya• © (2007-08-12 16:01:00)
У меня такая задача, нужно открыть файл шрифта, который не
зарегестрированн в системе и этим шрифтом написать на конве вразу.
Нашел по этой теме рару статей, но так и не понял они у
меня не заработали.( эти статьи можно найти в делпхиворлд
Как приложению воспользоваться своими шрифтами
Использовать незарегистрированные типы шрифтов )
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:00) [1]
А имя шрифта как задаешь? Как в имени файла?
Имя шрифта хранится внутри ttf-файла.
Наверх 
ЧАТ |
Орешник |
|
