Delphi 11 mit High DPI -> Formulare werden doppelt skaliert

[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?

[Uwe Raabe]

Zitat von Benmik:

Vielleicht auch noch ein paar Worte, warum "Component" das Problem löst?

Die Liste der Controls liefert nur die Controls, deren Parent das Form ist. Components liefert alle Components, deren Owner das Form ist. Ein Button in einem Panel wird somit von Controls nicht erfasst, von Components aber schon.

[snet]

Hallo in die Runde...
wenn ich mich nicht täusche, wurde die Problemlösung von Uwe Raabe heute durch ein Patch von Embacadero ausgerollt.

Die Lösung war für mich die Rettung im dpi skaling jungle...