Текущий архив: 2007.09.02;
Скачать: CL | DM;
Вниз
Использование не зарегестрированных шрифтов Найти похожие ветки
← →
•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-файла.
Страницы: 1 вся ветка
Текущий архив: 2007.09.02;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.016 c
