Delphi 11 mit High DPI -> Formulare werden doppelt skaliert

[Pfaffe]

Bei mir steht nach dem Update (Version 28.0.42600.6491) dies:

Delphi-Quellcode:

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

[harfes]

Da scheint bei mir etwas nicht funktioniert zu haben mit dem Update...ich habe mir das nochmal heruntergeladen (direkt von Emba, nicht über GetIt) und nochmal installiert. Jetzt passt es und es sieht aus wie bei Pfaffe - danke für den Hinweis.

Hartmut