Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

Подключить шрифт из ресурса   Найти похожие ветки 

← →
Салат   (2007-03-31 15:58) [0]

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

---

← →
Салат   (2007-03-31 19:50) [1]

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

---

← →
Eraser ©   (2007-03-31 22:35) [2]

> [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;

---

Страницы: 1 вся ветка

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.466 c