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

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

Открытие документов со шрифтами не установленными в системе [D5, Win95/98, Win2k]

Unknown user ©   (2004-09-27 10:10:00) 

Как внедрить в файл документа шрифт и устанавливать его при открытии документа, если таковой отсутствует?

---

Vit@ly   (2004-09-27 10:31:00) [1]

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;

Не тестировал

---

Наверх