Как получить реальное разрешение экрана в Delphi 7 при использовании масштабирования?

Delphi , ОС и Железо , Монитор и Экран

Разработчики, работающие с Delphi 7, иногда сталкиваются с проблемами, связанными с получением реального разрешения экрана при использовании масштабирования. Это особенно актуально в современных операционных системах, где масштабирование экрана может быть увеличено до 200% и более, что приводит к искажению реального разрешения экрана в программах, не учитывающих такие настройки.

Проблема

При использовании стандартных методов получения разрешения экрана в Delphi 7, таких как Screen.Monitors, разрешение может отображаться некорректно, если масштаб экрана превышает 125%. Это связано с тем, что встроенные компоненты Delphi 7 не учитывают изменения масштаба, установленные в операционной системе.

Пример кода

procedure TForm1.Button1Click(Sender: TObject);
var
  MonId: Integer;
  Mon: TMonitor;
  AllMonitorsWidth, AllMonitorsHeight: Integer;
begin
  // Код для вывода информации о мониторах
end;

При выполнении данного кода на устройстве с разрешением 1366x768 и масштабом 150% или 200%, программа может неправильно определять разрешение и DPI, что приводит к ошибкам в отображении графического интерфейса.

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

Для решения этой проблемы необходимо добавить в программу манифест, поддерживающий DPI (dots per inch - точек на дюйм). Это позволит программе корректно обрабатывать изменения масштаба и разрешения экрана.

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

В Delphi 7 можно добавить поддержку DPI, создав файл манифеста и настроив его вручную. Существуют два основных способа:

1. Создание файла манифеста (app.exe.manifest) с соответствующим XML-контентом, а затем создание файла ресурсов (manifest.rc), который будет ссылаться на этот манифест. После этого можно добавить директиву {$R manifest.res manifest.rc} в код проекта Delphi для компиляции и связывания файла ресурсов с исполняемым файлом.

2. Динамическое загрузка функций SetProcessDpiAware(), SetProcessDpiAwareness() или SetProcessDpiAwarenessContext() в зависимости от версии Windows, и вызов их в начале работы программы перед созданием пользовательского интерфейса.

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

Также был найден функционал GetSystemMetricsForDpi, который позволяет получить разрешение экрана с учетом DPI, однако он доступен только в Windows 10.

Важные замечания

Обработка DPI - это не только установка уровня осведомленности о DPI для процесса, но и использование правильного DPI для масштабирования элементов пользовательского интерфейса и обработка изменений DPI во время работы программы. Все это потребуется реализовать вручную, так как Delphi 7 предшествует API, связанным с DPI, и VCL не предоставляет помощи в этом.

Заключение

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

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

Разработчики в Delphi 7 сталкиваются с необходимостью корректно определять реальное разрешение экрана при использовании масштабирования, что требует добавления поддержки DPI в программу.

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

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

:: Главная :: Монитор и Экран ::