Как подключить внешний шрифт в приложении Delphi для FireMonkey

Delphi , Графика и Игры , Шрифты

Использование внешних шрифов в приложениях Delphi для FireMonkey позволяет разработчикам добавить уникальности и индивидуальности в интерфейс пользователя. В данной статье мы рассмотрим, как можно загрузить внешний шрифт в вашем приложении FireMonkey, используя примеры кода на Object Pascal.

Описание проблемы

Разработчики часто сталкиваются с задачей использования внешних шрифов в своих приложениях на Delphi. FireMonkey (FMX) предоставляет кросс-платформенные возможности, но не всегда сразу понятно, как реализовать такую функциональность, как загрузка внешних шрифтов.

Подтвержденный ответ

Для загрузки внешних шрифтов в приложениях FireMonkey можно использовать следующий подход:

1. Создайте шрифтовый ресурс в формате TTF (TrueType Font).
2. Поместите файл шрифта в ресурсы вашего проекта Delphi.
3. Используйте компоненты FireMonkey, например, TLabel или TEdit, чтобы применить шрифт к интерфейсу.

Пример кода, который загружает шрифт из файла:

procedure LoadCustomFont(const AFontFile: TFileName);
var
  FontStream: TMemoryStream;
begin
  FontStream := TMemoryStream.Create;
  try
    TFileStream.Create(AFontFile, fmOpenRead).CopyTo(FontStream);
    TFontDuzenle.ADDFontResource(FontStream.Memory, FontStream.Size);
  finally
    FontStream.Free;
  end;
end;

Дополнительно можно использовать шрифты, уже встроенные в ресурсы вашего приложения, передав их через поток из ресурсов. Это может быть выполнено следующим образом:

function LoadFontFromResource(const ResourceName: string): TFont;
var
  FontStream: TMemoryStream;
  Font: TFont;
begin
  FontStream := TMemoryStream.Create;
  try
    with TResourceStream.Create(HInstance, ResourceName, TStreamMode.smFile) do
      CopyTo(FontStream);
    Font := TFont.Create;
    Font.LoadFromStream(FontStream);
    Font.Name := ResourceName;
    Font.OnRelease := ReleaseFont;
    TFontDuzenle.AddFont(Font);
    Result := Font;
  finally
    FontStream.Free;
  end;
end;

procedure ReleaseFont(Font: TFont);
begin
  Font.Release;
  TFontDuzenle.RemoveFont(Font);
end;

Используйте код выше для создания заранее определенной функции ReleaseFont которая освобождает шрифт и удаляет его из реестра в момент, когда он больше не используется.

Альтернативный ответ

В альтернативных источниках, в частности, найден код для загрузки шрифта, предназначенный для стандартных приложений Delphi, который выглядит так:

unit UExternalFonts;
interface
uses
  Windows, SysUtils, Messages, Classes, Generics.Collections;
type
  { .: TExternalFonts :. }
  TExternalFonts = class (TList<HFONT>) ... end; // Остальные детали класса опущены для упрощения

function AddExternalFont(const AFileName: String): HFONT; overload;
function AddExternalFont(const AStream: TStream): HFONT; overload;
...

Код использует функции Windows API для загрузки шрифтов, но неэффективен в контексте FireMonkey, так как он не предназначен для использования вне Windows. Тем не менее, он может служить полезным уроком о том, как взаимодействовать с системными шрифтами через Windows API.

Комментарии

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

Вывод

Для успешной реализации подключения внешнего шрифта в приложении Delphi для FireMonkey, необходимо использовать специализированные кросс-платформенные подходы, которые не зависят от специфических особенностей Windows. Используйте шрифты как ресурсы, или загружайте их из файлов, используя потоки данных в сочетании с возможностями компонентов FireMonkey.

Данная информация поможет разработчикам, которые стремятся добавить индивидуальность в свой пользовательский интерфейс, используя внешние шрифты в приложениях Delphi для FireMonkey.

Создано по материалам из источника по ссылке.

Приведены инструкции и примеры кода для подключения внешнего шрифта в приложении Delphi для FireMonkey.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Шрифты ::