「開発室:備忘録」を編集中 (節単位)

===WM_DPICHANGED の実装における問題===
*Vcl.Forms.pas の問題
:WM_DPICHANGED で飛んでくる LPARAM (DPI 変更後の推奨ウィンドウサイズ) を使用せずに ChangeScale(Message.YDpi, FPixelsPerInch); の部分で自前でサイズを計算しているが、このやり方だとディスプレイをまたぐ位置によってはサイズが変更されなかったり、無限ループに陥ることも考えられる

<source lang="delphi">
procedure TCustomForm.WMDpiChanged(var Message: TWMDpi);
var
  I: Integer;
  OldPPI: Integer;
begin
  if not (csDesigning in ComponentState) then
  begin
    if (Message.YDpi = 0) or (FPixelsPerInch = 0) then
    begin
      if (Application.MainForm <> nil) and (Application.MainForm.PixelsPerInch <> 0) then
        FPixelsPerInch := Application.MainForm.PixelsPerInch
      else
        Exit;
    end;

    if Message.YDpi <> FPixelsPerInch then
    begin
      if Assigned(FOnBeforeMonitorDpiChanged) then
        FOnBeforeMonitorDpiChanged(Self, FPixelsPerInch, Message.YDpi);

      ChangeScale(Message.YDpi, FPixelsPerInch);
      for I := 0 to MDIChildCount - 1 do
        MDIChildren[I].ChangeScale(Message.YDpi, FPixelsPerInch);
      OldPPI := FPixelsPerInch;
      FPixelsPerInch := Message.YDpi;
      if Assigned(FOnAfterMonitorDpiChanged) then
        FOnAfterMonitorDpiChanged(Self, OldPPI, FPixelsPerInch);
    end;
    Message.Result := 0;
  end;
end;
</source>

*対策としては Message.ScalledRect^ の値を使用して MS のマニュアル通り SetWindowPos でウィンドウサイズを変更する
:[https://msdn.microsoft.com/ja-jp/library/windows/desktop/dn312083(v=vs.85).aspx https://msdn.microsoft.com/ja-jp/library/windows/desktop/dn312083(v=vs.85).aspx]

*さらなる問題。MS のマニュアル通りにするとウィンドウの高さが若干おかしい
:これの理由は LPARAM に含まれているウィンドウの高さの値がタイトルバーも含めた値のため
::Windows 10 では Per-Monitor DPI でディスプレイをまたいでもタイトルバーの高さは変更されない (むしろ変更できないっぽい)
::ディスプレイをまたいで本来変更されるはずのタイトルバーの高さが変更されないので、その差分だけクライアント領域が狭くなる
::でも自前で高さを変更しちゃうと先に述べたとおり無限ループなどの原因になる
::<span style="color:crimson;">→ つまり回避不能</span>

*でも Windows 10 の電卓みたいな標準アプリはタイトルバーの高さも変わるぞ？
:調べたみたらタイトルバーの高さが変わるのは、実はあのタイトルバーは本物のタイトルバーではなく、クライアント領域に自前で描画されている絵らしいが…
::しかしメニューのサイズとかも変わっているので、もしかすると MS が裏技を用意しているのかも？
::EnableNonClientDpiScaling という API が存在するらしいがまだ公式には発表されていない
:::Windows 10 Anniversary Update の Insider Preview (ビルド 14342) にて EnableNonClientDpiScaling の動作を確認
:::WM_NCCREATE で呼び出して引数にウィンドウハンドルを渡してやれば DPI の変更に合わせてタイトルバーやメニューのサイズが変更されるが、スクロールバーやポップアップメニューのサイズまでは変更されない模様
:::(2016/06/11 時点での Windows 10 現行品では EnableNonClientDpiScaling は使用できず)
:::Windows 10 Anniversary Update で正式に実装された模様
:::ただし、ポップアップメニューや開くダイアログなどの Per-Monitor DPI 対応方法は不明
<source lang="delphi">
function EnableNonClientDpiScaling(hWnd: HWND): BOOL; stdcall;

function EnableNonClientDpiScaling; external user32 name 'EnableNonClientDpiScaling' delayed;
</source>