Главная страница
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.02 c
2-1186485158
Надежда
2007-08-07 15:12
2007.09.02
Проверка не запущена ли уже эта программа


1-1182934736
rolex2002
2007-06-27 12:58
2007.09.02
Unicode. Функция copy для widestring.


2-1186414603
wazaaa
2007-08-06 19:36
2007.09.02
Как спрятать уже открытое окно ?


8-1164902378
Ангела
2006-11-30 18:59
2007.09.02
Есть ли компонент как Image , но


15-1185970305
max999
2007-08-01 16:11
2007.09.02
как удалить файл?