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

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

Подключить шрифт из ресурса

Салат ©   (2007-03-31 15:58:00) 

Доброго, уважаемые! Подскажите пожалуйста, как можно засунуть шрифт в файл ресурсов и использовать его во время исполнения? Заранее спасибо.

---

Eraser   (2007-03-31 22:35:00) [1]

> [1] Салат   (31.03.07 19:50)

function TfmMain.InstallFont: Boolean;
begin
 Result := False;

 // Проверяем, установлен ли шрифт.
 if Screen.Fonts.IndexOf('MyFont') <> -1 then
 begin
   Result := True;
   Exit;
 end;
 // Пробуем установить шрифт.
 if FileExists(IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) +
   'MyFont.ttf') then
 begin
   // Устанавливаем шрифт для данного приложения.
   AddFontResource(PChar(IncludeTrailingPathDelimiter(ExtractFilePath(Application.E xeName)) +
     'MyFont.ttf')) ;
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
   Result := True;
 end;
end;

---

Салат   (2007-03-31 19:50:00) [2]

Ну если проще... Подскажите как использовать шрифт из внешнего файла не регистрируя его в системе. В королевстве дельфи этот вопрос обсуждался, но я потерял ссылочку и найти его не могу.

---

Наверх