Восстановление стандартного шрифта в Delphi 11: переход на Tahoma, 8 pt

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

Как восстановить стандартный шрифт в Delphi 11: переход на Tahoma, 8 pt

Недавно мы установили Delphi 11 (Alexandria) для обновления нашего проекта, который ранее работал на версии 10.4. Ожидая современные возможности и улучшения, мы столкнулись с неожиданными изменениями в стандартных настройках, которые повлияли на внешний вид наших форм, оптимизированных под шрифт Tahoma, 8 pt. В частности, теперь по умолчанию используется шрифт Segoe UI, размером 9 pt, что вызвало проблемы с отображением элементов форм, особенно TDBEdit.

Проблема

В процессе перехода на Delphi 11, разработчики сталкиваются с изменением стандартного шрифта, что приводит к необходимости корректировки дизайна форм. Это особенно критично для проектов, где дизайн форм тщательно откалиброван под конкретный размер шрифта.

Решение

Для решения проблемы можно использовать несколько подходов:

Изменение шрифта во время выполнения программы

Можно изменить Application.DefaultFont в начале работы программы, но это не позволяет эффективно работать с формами во время разработки.

Application.DefaultFont.Name := 'Tahoma';
Application.DefaultFont.Height := -8;

Использование пользовательского модуля для дизайнера

В некоторых единицах (например, с редакторами, работающими в режиме дизайнера) можно создать пользовательский модуль, который будет изменять стандартный шрифт:

type
  TMyFormCustomModule = class(TCustomModule)
  constructor TMyFormCustomModule.Create(ARoot: TComponent; const ADesigner: IDesigner);
  begin
    if Application.DefaultFont.Name = 'Segoe UI' then begin
      Application.DefaultFont.Name := 'Tahoma';
      Application.DefaultFont.Height := -11;
    end;
  end;

Затем в дизайнерском пакете зарегистрировать этот модуль:

RegisterCustomModule(TForm, TMyFormCustomModule);

Отключение использования родительского шрифта

В качестве альтернативного решения можно отключить использование родительского шрифта, установив свойство ParentFont в False для форм, но это может привести к потере согласованности во всем проекте.

Заключение

Важно понимать, что переход на новую версию Delphi требует тщательной проверки и возможной корректировки дизайна форм. Использование предложенных методов позволит восстановить стандартный шрифт в Delphi 11, сохранив при этом совместимость с ранее разработанными проектами.

Примечание: Microsoft рекомендует использовать шрифт Segoe UI, 9 pt для Windows Vista и более поздних версий. Однако, если ваш проект тесно связан с использованием Tahoma, 8 pt, применение вышеуказанных решений позволит сохранить текущий вид интерфейса без потери функциональности.

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

Вопрос связан с необходимостью восстановления стандартного шрифта Tahoma, размером 8 pt в среде разработки Delphi 11, поскольку изменение шрифта по умолчанию на Segoe UI, 9 pt привело к проблемам с отображением элементов форм.

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

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

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