SetPixelsPerInch auch für Windows 10 - die Helper...

[Papaschlumpf73]

Moin, ich habe hier eine Prozedur, die mit einer Codezeile meine gesamte VCL-Anwendung ziemlich gut skalieren kann. Manche Controls brauchen zwar etwas Nachhilfe - aber das sind kleine Ausnahmen. Nur die Windows-Dialoge (FileOpen, MessageBox usw.) haben die Standardgröße.

Funktioniert mit allen Windows-Versionen von 7 - 10 inkl. der Serverversionen.
Mit Delphi XE3 und XE8 geht's; mit Delphi 10.1 Berlin leider nicht mehr.

Habe hier schon viel im Forum gelesen - und ja: Es funktioniert mit Windows 10.

Bei Delphi 10.1 Berlin gibt es wahrscheinlich Probleme mit den Änderungen bei den Helpern. Von denen habe ich leider noch gar keine Ahnung...

Wer kann mir helfen?

Anbei ein Beispielprojekt mit XE8 erstellt. Die gewünschten PixelsPerInch können in der Projektdatei nach belieben verändert werden und wirken sich auch die ganze Anwendung aus.