Изменение поведения окна при переопределении WM_NCCALCSIZE

Delphi , Синтаксис , Ошибки и Исключения

В статье рассматривается поведение окон при переопределении сообщения WM_NCCALCSIZE в Object Pascal (Delphi). Мы исследуем проблему, с которой столкнулся JonRobertson, и предлагаем решение, а также альтернативный подход.

Введение

Сообщение WM_NCCALCSIZE отправляется окну, когда его размеры или положение меняются. Это сообщение позволяет приложению изменить размеры клиентской области окна, исключая область рамки и заголовка. Однако правильное управление этим сообщением может быть сложным, как продемонстрировал JonRobertson в своем вопросе.

Понимание поведения WM_NCCALCSIZE

При переопределении WM_NCCALCSIZE мы можем изменить размеры клиентской области окна, чтобы исключить заголовок. Однако, как заметил JonRobertson, изменение значения, уменьшающего .Top на 30 или 31 пиксель, приводит к разному результату: при значении 30 вся область заголовка отображается, а при значении 31 она не отображается. Это поведение может показаться неожиданным, но его можно объяснить.

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

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

JonRobertson нашел решение, используя сочетание системных метрик SM_CYFRAME, SM_CYCAPTION и SM_CXPADDEDBORDER, чтобы определить высоту заголовка окна. Затем он уменьшает .Top на это значение, масштабированное в соответствии с текущей плотностью пикселей экрана. Вот пример кода, который решает проблему:

procedure TfrmMain.WMNCCalcSize(var Message: TWMNCCalcSize);
begin
  inherited;
  var captionHeight := GetSystemMetrics(SM_CYFRAME) + GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CXPADDEDBORDER);
  var Scale := RoundTo(CurrentPPI / Screen.DefaultPixelsPerInch, -2);
  var NCCalcSizeParams := Message.CalcSize_Params;
  Dec(NCCalcSizeParams.rgrc[0].Top, Round(captionHeight * Scale));
end;

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

Другой подход к решению этой проблемы — использование функции DwmGetWindowAttribute с флагом DWMWA_CAPTION_BUTTON_BOUNDS, предложенной dwrbudr. Эта функция возвращает границы кнопок заголовка окна, что может помочь определить правильный размер клиентской области. Вот пример кода, демонстрирующий этот подход:

procedure TfrmMain.WMNCCalcSize(var Message: TWMNCCalcSize);
var
  captionRect: TRect;
begin
  inherited;
  if DwmGetWindowAttribute(HWND(Message.Window), DWMWA_CAPTION_BUTTON_BOUNDS, captionRect[0], SizeOf(TRect)) = S_OK then
    Message.CalcSize_Params.rgrc[0].Top := captionRect.Bottom;
end;

Заключение

может быть сложной задачей, но понимание логики рисования Windows и правильное использование системных метрик или функций, таких как DwmGetWindowAttribute, могут помочь добиться желаемого результата. В этой статье мы рассмотрели проблему, с которой столкнулся JonRobertson, и предложили два решения, которые помогут другим разработчикам Object Pascal (Delphi) справиться с этой задачей.

Спасибо JonRobertson и Kas Ob. за обсуждение этой темы и предоставление контекста для написания статьи.

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

В статье рассматривается поведение окон при переопределении сообщения WM_NCCALCSIZE в Object Pascal (Delphi), исследуется проблема, с которой столкнулся JonRobertson, и предлагаются решения, а также альтернативный подход.

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

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

:: Главная :: Ошибки и Исключения ::