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

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

Вставить шрифт в прогу [D6, WinXP]

webpauk ©   (2005-02-15 13:55:00) 

Господа!
Как вставить шрифт в *.res - это я знаю.
А вот как использовать этот шрифт?

---

Чапаев   (2005-02-16 14:18:00) [1]

FindResource, LoadResource, LockResource, запись в файл, AddFontResource, SendMessage.

---

webpauk   (2005-02-16 14:08:00) [2]

TResourceStream!!!
Winapi!?

---

Коля   (2005-02-15 22:41:00) [3]

Типо того
//использование шрифта
try
Res:=TResourceStream.Create(hInstance,'MY_FONT', Pchar('TNR'));
Res.SavetoFile(ExtractFilePath(ParamStr(0))+'times.ttf');
Res.Free;
AddFontResource(PChar(ExtractFilePath(ParamStr(0))+'times.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
Fform.Font.Name := 'Times New Roman';
except on exception do;end;

---

Наверх