"Устранение артефактов округления окон в Win11 с помощью Delphi"

Delphi , Программа и Интерфейс , Приложение своё

Устранение артефактов округления окон в Win11 с помощью Delphi

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

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

Windows 11 предлагает новый дизайн с более плавными углами окон, который реализован через API DWM (Desktop Window Manager). При использовании функций округления углов через DWM, размер окна может измениться, так как физический размер окна увеличивается за счет добавления пространства для округления углов.

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

Для решения проблемы следует правильно настроить размеры окна после применения округления углов. Важно понимать, что после вызова SetRoundedCorners() размеры окна должны быть скорректированы в соответствии с новыми параметрами округления, чтобы избежать неожиданного увеличения размера окна.

Пример кода

procedure TForm1.FormCreate(Sender: TObject);
const
  DesiredWidth = 200;  
  DesiredHeight = 100;
begin
  // Применение стиля WS_EX_TOOLWINDOW к окну формы
  SetWindowLong(Self.Handle, GWL_EXSTYLE,
    GetWindowLong(Self.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);

  // Удаление кнопки максимализации
  BorderIcons := BorderIcons - [biMaximize];

  // Применение округления углов для Windows 11
  SetRoundedCorners(Self.Handle, RoundedCornerSmall);

  // Сброс размеров формы после применения округления углов
  Width := DesiredWidth;
  Height := DesiredHeight;
  // Необходимо также обновить свойства ClientWidth и ClientHeight,
  // чтобы они соответствовали желаемым размерам без учета округления углов.
  // Это может быть реализовано через вызов метода UpdateClientSize.
end;

Обновление размеров клиентской области

Для точного управления размерами клиентской области окна после округления углов, разработчикам может потребоваться реализовать дополнительную логику, которая будет учитывать размеры округления и корректировать размеры клиентской области соответственно.

Заключение

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

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

Описание Context: В статье рассматривается проблема корректировки размеров окон в Delphi для устранения артефактов округления углов на Windows 11.

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

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

:: Главная :: Приложение своё ::