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;