Delphi 11 mit High DPI -> Formulare werden doppelt skaliert

[Friday]

Stellt man bei Delphi 11 in den "Optionen->Benutzeroberfläche-Formular-Designer->High DPI" den Modus auf "Automatisch", werden die Formulare in der in Windows eingestellten Skalierung dargestellt (also wie man es erwarten würde).
Erzeuge ich das Projekt wird die so erstellte Anwendung aber nun (teilweise) doppelt skaliert. Also manche Texte sind in der zu erwarteten Größe (z.B. TEdit, TButton, TMainMenu), andere sind viel zu groß (TLabel, TGroupBox).
Projekteinstellung: GDI Skalierung
Umgebung: Win10 Pro, 2 x 4k Monitoren mit 150% Skalierung.

Mit "Über v2 Monitor" statt "GDI Skalierung" ist dieses Problem behoben, allerdings machen dann andere Komponenten die (noch) nicht High-DPI fähig sind Probleme.

Mit Delphi 10.4 war das kein Problem, allerdings war der Code im Editor unscharf

Aktuelle Lösung ist die High DPI Einstellungen des FormularDesigners auf "Low DPI" zu lassen, womit die Formulare dann zur Entwurfszeit winzig klein sind. Kann ich natürlich auch einfach nur vor jedem Kompilieren wieder umstellen, aber das sind alles keine schönen Lösungen.
Kann den Bug jemand bestätigen oder gibt es eine andere Lösung?

danke

[Uwe Raabe]

Kannst du das irgendwie als Minimalprojekt bereitstellen? Ich versuche möglichst viele problematische Szenarien zu sammeln.

[UntoterGeist]

Erstellst du damit FMX Anwendungen?

Bei FMX Anwendungen kann man ein ScaledLayout mit der Align Fit verwenden und das DPI Support Zeug komplett ausschalten. Tricky wird es dann nur, wenn man skalierbare Fenster hat. Ich hätte jetzt auch angenommen, dass diese Einstellung Anwendung und Designer nicht gerade gleichzeitig betrifft. Weil es ja doch zwei unterschiedliche Dinge sind. Selber hab ich diese Option standardmäßig aus, weil das nur Probleme macht. Aber benutze an dem Entwicklungsrechner auch keinen 4K Monitor.

[Friday]

es geht um VCL Anwendungen. FMX habe ich noch nicht ausprobiert.

Ich schau mal ob ich heute dazu komme ein Beispiel-Projekt zu erstellen.

[Friday]

der springende Punkt, bzw. Einstellung ist:
ParentFont := false Ist das True wird alles normal angezeigt, bei false übertrieben hoch skaliert. Ich habe in dem Beispielprojt Größe 9, also Standard belassen.

Beispielprojekt im Anhang

[Uwe Raabe]

Nur um das richtig einzuordnen: Die Darstellung im Designer ist OK, aber die daraus erzeugte Exe zeigt das Problem?

Ich bin etwas irritiert weil Toolbar1.Height = 65, aber Toolbar1.ButtonHeight = 75 ist. Das ist aber schon in der Original-DFM so.

[Friday]

genau im Formular-Designer wird es korrekt angezeigt.

Die Toolbar hab ich nur schnell hingeklatscht ohne die Höhen zu überprüfen.

[Uwe Raabe]

Leg doch bitte mal eine Kopie der Vcl.Forms.pas in dein Projektverzeichnis (da wo die dpr liegt). Dann ändere die Zeilen 4352 bis 4356 mal so ab, dass die Schleife nicht über Controls sondern über Components geht.

vorher:

Delphi-Quellcode:

        for var I := 0 to ControlCount - 1 do
        begin
          TControlClass(Controls[I]).ChangeScale(FCurrentPPI, FCurrentPPI, True);
          TControlClass(Controls[I]).ScalingFlags := ScalingFlags;
        end;

nachher:

Delphi-Quellcode:

        for var I := 0 to ComponentCount - 1 do
        begin
          if not (Components[I] is TControl) then Continue;
          TControlClass(Components[I]).ChangeScale(FCurrentPPI, FCurrentPPI, True);
          TControlClass(Components[I]).ScalingFlags := ScalingFlags;
        end;

[Friday]

ja das scheint das Problem zu beheben.

Danke

[Benmik]

Ich probiere gerade Delphi 11 so ein bisschen aus und wollte es wegen des geschilderten Problems schon wieder löschen, bevor ich auf Uwes genialen Ratschlag kam. Ich wundere mich, dass man nicht mehr Hilferufe findet und Uwes Lösung augenscheinlich nur hier und sonst nirgendwo.
Vielleicht auch noch ein paar Worte, warum "Component" das Problem löst?