Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c