Как Работать с Масштабированием в Delphi под Windows 11

Delphi , ОС и Железо , Windows

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

Проблема с Масштабированием в Windows 11

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

Пример Кода Сохранения и Восстановления Размеров Формы

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

// Сохранение размеров формы в INI-файл
IniFile.WriteInteger('FORM','Width', AForm.Width);
IniFile.WriteInteger('FORM','Height', AForm.Height);

// Восстановление размеров формы из INI-файла
StoredWidth := IniFile.ReadInteger('FORM','Width', AForm.Width);
StoredHeight := IniFile.ReadInteger('FORM','Height', AForm.Height);

// Установка размеров формы с учетом возможного ограничения по размеру экрана
if StoredWidth >= Screen.Width then
  AForm.Width := Screen.Width
else
begin
  AForm.Width := StoredWidth;
  // ... и так далее для других свойств
end;

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

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

procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
  IniFile: TIniFile;
begin
  IniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  try
    IniFile.WriteInteger('FORM','Width', MulDiv(AForm.Width, Screen.PixelsPerInch, 96));
    IniFile.WriteInteger('FORM','Height', MulDiv(AForm.Height, Screen.PixelsPerInch, 96));
  finally
    IniFile.Free;
  end;
end;

При восстановлении размеров формы, вам нужно будет применить обратное преобразование, умножив размеры на текущий масштаб.

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

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

procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
  IniFile: TIniFile;
  RegKey: TRegistry;
  ScalingSize: Integer;
  ScalingPercent: Real;
  UnscaledWidth, UnscaledHeight: Integer;
begin
  IniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  RegKey := TRegistry.Create;
  try
    RegKey.RootKey := HKEY_CURRENT_USER;
    if RegKey.OpenKey('Control Panel\Desktop', False) then
    begin
      ScalingSize := RegKey.ReadInteger('LogPixels');
      RegKey.CloseKey;
    end
    else
      ScalingSize := 96;
    ScalingPercent := 100 + ((100/96)*(ScalingSize - 96));
    UnscaledWidth := Round(AForm.Width / ScalingPercent);
    UnscaledHeight := Round(AForm.Height / ScalingPercent);
    IniFile.WriteInteger('FORM','Width', UnscaledWidth);
    IniFile.WriteInteger('FORM','Height', UnscaledHeight);
  finally
    RegKey.Free;
    IniFile.Free;
  end;
end;

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

Заключение

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

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

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

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

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

:: Главная :: Windows ::