Масштабирование шрифтов с TMS TAdvSmoothLabel при изменении DPI в Delphi

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

При разработке приложений на Delphi иногда возникают проблемы, связанные с масштабированием элементов управления при изменении DPI. Одной из таких проблем является некорректное масштабирование шрифтов в пользовательских контролах, например, в TMS TAdvSmoothLabel. В данной статье мы рассмотрим, как можно вручную масштабировать шрифты для таких компонентов, не отключая при этом масштабирование на формах.

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

При работе приложения на компьютере с настройками шрифтов 125% (120 DPI) наблюдается, что шрифты всех компонентов масштабируются вместе с формой, за исключением некоторых пользовательских контролов, таких как TMS TAdvSmoothLabel. Проблема заключается в том, что свойство шрифта этих компонентов не управляется напрямую, как в стандартном TLabel, где есть свойство Label.Font. В TAdvSmoothLabel для управления размером шрифта используется свойство Label.Caption.Font.

Решение проблемы

Для решения проблемы масштабирования шрифтов в пользовательских контролах можно переопределить метод ChangeScale, который вызывается при изменении DPI. Пример кода на Object Pascal (Delphi):

procedure TMyControl.ChangeScale(M, D: Integer); override;
begin
  inherited;
  // Обновление свойств, которые должны масштабироваться
  Label.Caption.Font.Height := MulDiv(Label.Caption.Font.Height, M, D);
  // Добавьте другие элементы, которые необходимо масштабировать
end;

Этот метод должен обновлять внутренние элементы, которые должны быть масштабированы. Если у вас нет доступа к исходному коду компонента, вы можете создать свой собственный компонент, наследуя его и добавив необходимый код масштабирования.

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

procedure TMyControl.ChangeScale(M, D: Integer);
var
  OldHeight: Integer;
begin
  OldHeight := Label.Caption.Font.Height;
  inherited;
  // Исправление некорректного масштабирования в компоненте
  Label.Caption.Font.Height := MulDiv(OldHeight, M, D);
  // Добавьте другие элементы, которые необходимо исправить
end;

При использовании этого метода важно учитывать, что фактический масштаб может немного отличаться от ожидаемого, возможно, из-за дополнительных факторов, связанных с выравниванием или якорями элементов. Для более точной настройки масштабирования можно использовать отладочные версии компонентов (debug dcu) и установить точку останова в методе TControl.ChangeScale, чтобы увидеть, какие значения передаются в метод.

Заключение

Масштабирование шрифтов в пользовательских компонентах TMS TAdvSmoothLabel при изменении DPI в Delphi можно реализовать, переопределив метод ChangeScale. Это позволит корректно масштабировать шрифты без необходимости отключения масштабирования на формах и без изменения исходного кода компонентов, если такая возможность отсутствует.

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

Проблема связана с некорректным масштабированием шрифтов в пользовательских компонентах TMS TAdvSmoothLabel при изменении DPI в среде разработки Delphi, и предлагается решение через переопределение метода `ChangeScale` для корректного масштабирования эле

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

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

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