VPF::Form на весь экран с Vcl styles - Форум программистов

Illusion Dolphin

Дата 7.10.2012, 10:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Актуально для XE2/XE3.
Если форма использует стили, то при полноэкранном режиме с включённом Aero (DwmCompositionEnabled and (Form.WindowState = wsMaximized)) форма "вылазит" за предоставленные пределы и часть контролов слва, справа и снизу обрезается.
Я попробовал исправить это через дополнение к TFormStyleHook:

Код


type
  TFormStyleHookEx = class(TFormStyleHook)
  private
    function GetBorderSize: TRect; //from TFormStyleHook
    procedure WMNCCalcSize(var Message: TWMNCCalcSize); message WM_NCCALCSIZE;
  end;

...

procedure TFormStyleHookEx.WMNCCalcSize(var Message: TWMNCCalcSize);
var
  Params: PNCCalcSizeParams;
  R: TRect;
begin
  inherited;

  if DwmCompositionEnabled and (Form.WindowState = wsMaximized) then
  begin
    R := GetBorderSize;

    Params := Message.CalcSize_Params;
    with Params^.rgrc[0] do
    begin
      Inc(Left, R.Left);
      Inc(Top, 0);
      Dec(Right, R.Right);
      Dec(Bottom, R.Bottom);
    end;
  end;
end;

Но это только уменьшает размеры клиентской области, чтобы она не влазила за экран, при этом контролы всё равно обрезаются, а на месте получившейся рамки не работает прорисовка. В аттаче пример и скриншоты. Кто может помочь?

Заранее спасибо откликнувшимся!

P.S. пробовал перехватывать WM_GETMINMAXINFO - не удалось выставить корректные размеры формы (она вылазил за экран), поэтому код не привожу. Тут http://stackoverflow.com/questions/1093690...orders-on-adjac дан пример, который страдает проблемой - InflateRect(R, -1, -1); // odd pixel - меньше на пиксель чем экран, если убрать строку (чтобы как раз на монитор) - то всё становится совсем неправильных размеров

Присоединённый файл ( Кол-во скачиваний: 4 )

Maximize.zip 294,31 Kb

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »