| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Использование своего шрифта [D7, Win2k, WinXP]

Keymaster ©   (2003-04-21 14:23:00) 

Как подключить свой шрифт понятно (нашёл в FAQ),
а как его после этого использовать?
Т.к. при попытке установить font.name при работе
вместо него используется courier

---

Keymaster   (2003-04-21 16:22:00) [1]

AddFontResource( PChar("c:\geeksfnt.ttf" ) )
возвращает "1"

---

Игорь Шевченко   (2003-04-21 16:05:00) [2]

int AddFontResource(

LPCTSTR lpszFilename // pointer to font-resource filename
);

Return Values

If the function succeeds, the return value specifies the number of fonts added.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

Я к тому, что результат функции надо проанализировать...

---

Keymaster   (2003-04-21 15:45:00) [3]

procedure TSettingsForm.ButtonApply(Sender: TObject);
begin
AddFontResource( PChar("c:\geeksfnt.ttf" ) );
// SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
PostMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
Label1.Font.Name := "geeksfnt";
end;

---

Keymaster   (2003-04-21 15:43:00) [4]

имя файла с именем шрифта совпадают...

---

Игорь Шевченко   (2003-04-21 15:36:00) [5]

> SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);


PostMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);

---

MBo   (2003-04-21 15:31:00) [6]

кусок из раб. программы
может, у тебя имя файла отличается от имени шрифта?

AddFontResource(PChar("myfont.ttf"));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
...
label1.font.name:="myfont";

---

Keymaster   (2003-04-21 15:25:00) [7]

AddFontResource( PChar("c:\geeksfnt.ttf" ) );
SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
Label1.Font.Name := "geeksfnt";

---

MBo   (2003-04-21 14:53:00) [8]

все работает. Проанализируй ошибки Addfontresource.
Код покажи.

---

Keymaster   (2003-04-21 14:49:00) [9]

не работает.

---

MBo   (2003-04-21 14:33:00) [10]

addfontresource+WM_FONTCHANGE

---

Наверх