Настройка шрифта в LCL: проблема с Form.Font.Size = 0

Delphi , Программа и Интерфейс , Формы

Вопрос, поднятый в данном обсуждении, касается возможности настройки размера шрифта в приложениях, использующих библиотеку LCL, чтобы они соответствовали настройкам Windows "Font size". Эта настройка не связана с масштабированием на уровне рабочего стола и экрана, а доступна в разделе "Специальные возможности" в настройках Windows 11 и "Упрощение использования" в Windows 10.

Проблема

Приложения LCL по умолчанию не поддерживают данную настройку размера шрифта. Однако, если установить значение Form.Font.Size = 0, приложение начинает учитывать настройку Windows, но при этом другие элементы формы могут быть "сломаны". При установке Form.Font.Size = 9 и выше, масштабирование работает, но настройка размера шрифта Windows игнорируется.

Решение

Исходя из ответа пользователя tetrastes, было выяснено, что установка размера шрифта формы в 0 позволяет корректно работать и с масштабированием, и с настройкой размера шрифта Windows. Это решение было упущено пользователем lighterowl из-за неправильного понимания информации на Wiki.

Пример кода

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

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Установка размера шрифта формы в 0
  Self.Font.Size := 0;
end;

end.

Альтернативное решение

Если по каким-то причинам установка размера шрифта в 0 не подходит, можно рассмотреть альтернативные способы обработки системных настроек размера шрифта. Для этого потребуется использовать функции Windows API для получения текущего размера шрифта и применения его в приложении.

Заключение

В данной статье мы рассмотрели проблему настройки размера шрифта в приложениях LCL и предложили решение, которое позволяет корректно работать с настройками Windows "Font size". Важно помнить, что для корректной работы с масштабированием и размером шрифта необходимо правильно настроить свойства формы и использовать соответствующие значения шрифтов.

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

Вопрос касается настройки размера шрифта в приложениях на Delphi с использованием LCL, чтобы они корректно отображали шрифт в соответствии с настройками системы Windows.

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

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

:: Главная :: Формы ::