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

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

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

← →
Салат (2007-03-31 19:50) [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;

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