Разработчики Висты не стерпели подобного безобразия, и заложили в DWM возможность производить масштабирование самостоятельно, а приложениям врать, что DPI по прежнему равен 96. Причем зависящие от него системные настройки, разрешение монитора и даже положение мыши, также пересчитываются. К сожалению разработчики Висты небыли волшебниками, поэтому масштабирование DWM производит с помощью простых алгоритмов растягивания изображений. И если интерфейс приложения нужно увеличить, то происходит замыливание картинки. Представьте что было бы, если бы разработчики Фотошопа не могли это отключить. Таких бунтов на корабле никто не хотел, поэтому появилась возможность указать в манифесте, что ваше приложение таки умеет нормально масштабировать свой интерфейс, и помощь DWM ему не нужна. За это отвечает параметр dpiAware. Тут правда следует отметить, что по умолчанию масштабирование силами DWM включается при увеличении 150% и выше. Видимо в Microsoft посчитали, что при масштабировании 125% артефакты как на скриншоте выше вполне терпимы.

Слева масштабирование силами DWM, а справа — самого приложения:

В Windows 8.1 появилась возможность указывать разный масштаб разным мониторам, если подключено сразу несколько. Соответственно у ключа dpiAware появилось новое значение «True/PM». Оно означает, что приложение умеет динамически изменять масштаб своего интерфейса при переносе окон с одного монитора на другой.

Декларирование совместимости
Работает очень просто: программист тестирует свое приложение в определенной версии винды, и если все работает как надо, добавляет GUID этой версии в манифест.

Наиболее интересен вопрос: «На что влияют эти GUID-ы?» Пока что список различий в поведении системных библиотек невелик. Наиболее интересно упоминание об оптимизации RPC. Получается что приложения, задекларировавшие совместимость с семеркой, будут работать быстрее.
В будущем этот раздел манифеста наверняка будет играть большую роль чем сейчас. Ведь в винде полно разных хаков призванных обеспечивать совместимость. И теперь есть возможность оградить от них нормальные приложения.

Если GUID-ы полностью отсутствуют в манифесте, то к приложению применяются правила как к совместимому с Вистой:

Добавляем поддержку HiDPI в приложения на WinForms

В настоящее время всё больше людей приобретают мониторы, либо ноутбуки, оснащённые дисплеями с большой плотностью пикселей (HiDPI-дисплеи), поэтому для корректной работы современные приложения должны поддерживать работу на них в полной мере.

Введение

К HiDPI относятся любые дисплеи со значением PPI (пикселей на дюйм) 144 и выше (при стандартном значении 96).

В большинстве фреймворков для построения приложений с графическим интерфейсом поддержка масштабирования в зависимости от размеров DPI экрана, на котором отображается окно, реализована «из коробки». Microsoft же предлагали всем использовать исключительно универсальные приложения Windows (UWP), либо WPF, заявляя, что лишь они полностью поддерживают данную технологию. Многих это по понятным причинам не устраивало ибо существует огромное количество уже написанных и прекрасно функционирующих программ, использующих Windows Forms, которые переписывать практически с нуля никто не собирается.

В итоге поддержка полноценного автоматического масштабирования элементов управления для экранов с высокой плотностью пикселей на Windows Forms появилась в пакете .NET Framework лишь начиная с версии 4.7.1, однако она является не полной и требующей ручной доработки.

Активируем стандартную поддержку

Полная поддержка экранов с высокой плотностью пикселей присутствует в ОС Microsoft Windows 10. В более старых её либо нет вовсе, либо она реализована лишь частично.

В главном манифесте приложения, в compatibility::application::supportedOS, явно укажем поддержку всех современных версий системы (в противном случае приложение будет считать, что запущено в Windows 8.1 из-за слоя совместимости Win32 API и не сможет использовать поддержку данной технологии):

Теперь для активации HiDPI в режиме per monitor добавим в главный конфигурационный файл приложения app.config следующие строки:

В свойствах проекта изменим тулчейн сборки на Microsoft .NET Framework 4.7.1 или более позднюю версию, согласимся с предложением Visual Studio на конвертацию и подтвердим осуществление данного действия, согласившись с возможными последствиями.

Пересоберём проект и запустим получившийся результат на мониторе с высокой плотностью пикселей. Форма должна автоматически масштабироваться.

Масштабируем составные элементы управления

Как мы и говорили в самом начале статьи, поддержка автоматического масштабирования в Windows Forms получилась не полной и некоторые сложные элементы управления, а именно ListView , DataGridView , StatusBar и некоторые другие, не будут корректно изменять свои размеры в зависимости от установленного на текущем экране значения DPI, поэтому нам придётся исправить это самостоятельно.

Создадим новый файл с исходным кодом и добавим его корректное в пространство имён проекта. Добавим отдельный статический класс с перегруженным методом ScaleControlElements:

Этот метод изменяет размеры колонок внутри таких контролов, как ListView и DataGridView, в зависимости от текущего значения ScaleFactor, которое, в свою очередь, зависит от DPI текущего дисплея.

Теперь на каждой форме, содержащей проблемные элементы управления, переопределим метод ScaleControl:

Сначала мы вызываем базовый метод base.ScaleControl, чтобы произвести автоматическое масштабирование средствами среды, а затем произведём собственное для составных контролов (ControlName).

Масштабируем графику

Другая серьёзная проблема — это любая растровая графика. При изменении DPI, изображения будут либо растянуты до новых размеров элемента управления и станут мыльными, либо сильно уменьшатся в размере, что приведёт к некорректному отображению формы.

Таким образом, нам необходимо иметь несколько версий каждого растрового изображения на форме. В настоящее время это:

• 1x — стандартное изображение;
• 2x — двойное разрешение;
• 3x — тройное разрешение.

Например если у нас есть файл foo-bar.png с разрешением 100*100 пикселей, то мы должны создать также foo-barx2.png (200*200 px), а также foo-barx3.png (300*300 px).

Как и в прошлый раз, на каждой форме, содержащей растровые изображения, переопределим метод ScaleControl:

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

Написание этих методов выходит за рамки данной статьи.

Заключение

Теперь после доработки и пересборки нашего приложения, оно будет выглядеть корректно на любых конфигурациях оборудования.

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

Литература

При написании данной статьи использовалась литература из следующих источников:

notidealrunner

пятница, 21 июня 2019 г.

Задействуем UAC в приложениях написанных на Delphi 7

UAC – это Контроль Учетных Записей (Wikipedia), используется для повышения привилегий в том случае если вашему приложению это необходимо. Появился в Windows Vista и присутствует Windows 7, 8, 10. Необходимо убедится в том, что UAC включен. В Windows 7 это можно проверить, открыв «Панель управления» — «Учетные записи пользователей» — «Изменение параметров контроля учетных записей» — убедится, что установлен уровень «По умолчанию» (Смотрите рисунок 1).

Основным, важным моментом в файле манифеста является строчка кода:

Параметр level со значением requireAdministrator указывает на то, что нашему приложению для работы требуются права администратора. Следующими строчками кода мы указываем с какими операционными системами наше приложение будет совместимо:

Далее нам необходимо в каталоге проекта создать файл ресурсов компиляции с именем Win7UAC.rc. Содержимое файла компиляции будет следующее:

1 24 «Win7UAC.manifest»

То есть мы в качестве ресурсов нашего приложения указываем наш файл манифеста.

Файл ресурсов компиляции Win7UAC.rc необходимо скомпилировать при помощи компилятора ресурсов brcc32.exe, этот компилятор ресурсов расположен в каталоге, где расположены бинарные файлы Delphi, у меня это каталог D:\Programs\Delphi7\Files\Delphi7\Bin. Убедитесь, что данный каталог добавлен в переменную окружения Path. Запустите командную строку Windows, перейдите в каталог проекта и выполните команду компиляции ресурсов (Смотрите рисунок 2).

В качестве результата в каталоге проекта вы получите файл ресурсов Win7UAC.RES, который необходимо в файле проекта p12.dpr подключить. Смотрите код ниже:

Вынесите на форму с именем Form1 одну кнопку Button1 и один список ComboBox1 (Смотрите рисунок 3).

Добавьте в свойства Items списка ComboBox1 две строки DOMAIN\User1 и DOMAIN\User2 (Смотрите рисунок 4). Эти строки у нас будут выбираться в ComboBox1. Также поменяйте свойства Style для списка ComboBox1 на csOwnerDraw.

В данном обработчике мы присваиваем списку ComboBox1 значение по умолчанию значение DOMAIN\User1.

Рассмотрим обработчик нажатия кнопки Button1, это следующий код:

В данном обработчике мы указываем путь в реестре Windows куда будем писать значения, это переменная типа String c именем SubKey. Смотрите код:

SubKey : String = ‘SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI’;

Далее берем выбранное значение ComboBox1 и присваиваем его переменной strSetRegValue. Смотрите код:

Если переменная strSetRegValue не пуста, то начинаем писать в реестр Windows. Работать будем в корневом разделе HKEY_LOCAL_MACHINE. Смотрите код:

if (strSetRegValue <> ») then
begin
R := TRegistry.Create(KEY_READ);
R.RootKey := HKEY_LOCAL_MACHINE;

Далее проверяем существует ли путь в реестре SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI. Также открываем подраздел реестра на запись для Windows 7 32 bit и 64 bit, следующая строчка:

Access := KEY_WRITE OR $0100;

Смотрите следующий код:

if (R.KeyExists(SubKey)) then
begin
With R do
begin
Access := KEY_WRITE OR $0100;
openResult := OpenKey(SubKey, False);
if (not openResult = True) Then
begin
MessageDlg(‘Unable to create key! Exiting.’, mtError, mbOKCancel, 0);
end;

Далее пишем в реестр параметры LastLoggedOnSAMUser, LastLoggedOnUser и закрываем ветку реестра и освобождаем память. Следующие строчки:

WriteString(‘LastLoggedOnSAMUser’, strSetRegValue);
WriteString(‘LastLoggedOnUser’, strSetRegValue);