VirtualImageList für TrayIcon-PopupMenu mit unterschiedlichen DPI-Monitoren

[CodeX]

Habe mich mal eben durch Vcl.Menus durchdebuggt. Das Problem liegt tatsächlich daran, dass dort fälschlicherweise die PPI der Owner-Form genommen wird:

Delphi-Quellcode:

function TMenuItem.GetDevicePPI: Integer;
...
    if (TWinControl(LParent.Owner).Handle > 0) and GetWindowPlacement(TWinControl(LParent.Owner).Handle, LPlacement) then
        LMonitor := Screen.MonitorFromPoint(LPlacement.rcNormalPosition.CenterPoint)
    else
      LMonitor := Screen.MonitorFromWindow(Application.Handle);
    if LMonitor <> nil then
      Result := LMonitor.PixelsPerInch
    else
      Result := Screen.PixelsPerInch;
  end

Ich glaube, dass man die PPI stattdessen vom Monitor der X/Y-Popup-Koordinaten beziehen müsste.

Hm ... lässt sich das jetzt irgendwie "austricksen" oder muss ich die Vcl.Menus.pas patchen?

[CodeX]

Ein simpler Fix, der das Problem meiner Meinung nach behebt:

Delphi-Quellcode:

    if LParent is TPopupMenu then
      LMonitor := Screen.MonitorFromPoint(TPopupMenu(LParent).PopupPoint)
    else if (TWinControl(LParent.Owner).Handle > 0) ...

Sieht jemand ein potenzielles Problem bei dieser Lösung?

Erfreulicherweise löst dies auch das andere Problem, das ich hier beschrieben hatte:
https://www.delphipraxis.net/203733-...l-problem.html

Wenn jemand einen Workaround ohne Patchen der Vcl.Menus.pas sieht, wäre das natürlich noch besser.