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

Thema durchsuchen

Ansicht

Themen-Optionen

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

Ein Thema von CodeX · begonnen am 19. Mai 2020 · letzter Beitrag vom 19. Mai 2020

Vorheriger Beitrag

Nächster Beitrag

CodeX

Registriert seit: 30. Okt 2004
475 Beiträge

Delphi 12 Athens

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

19. Mai 2020, 19:55

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

markieren

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.

Nur Delphi schafft es, einem ein Lächeln zu schenken, wenn man sich beim Schreiben von := vertippt und stattdessen ein :) erscheint.