Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.023 c
15-1186073298
Kerk
2007-08-02 20:48
2007.09.02
wget ?


15-1186234015
de.
2007-08-04 17:26
2007.09.02
Проблема!!!


15-1186067656
Kenifer
2007-08-02 19:14
2007.09.02
Как инжектирывать свой процесс в чужой процесс?


2-1186511541
;peg
2007-08-07 22:32
2007.09.02
TWebBrowser и Memo


2-1186427194
начинающий565
2007-08-06 23:06
2007.09.02
Запуск консольного приложения