Delphi 11 mit High DPI -> Formulare werden doppelt skaliert

[Uwe Raabe]

Zitat von snet:

wurde die Problemlösung von Uwe Raabe heute durch ein Patch von Embacadero ausgerollt.

Um das klar zu stellen: Die Lösung stammt nicht von mir...

[harfes]

Super! Das löst zumindest mal die Skalierungsprobleme in D11...aber wo bitte soll das Patch von Emba sein???

Hartmut

[Uwe Raabe]

Zitat von harfes:

aber wo bitte soll das Patch von Emba sein???

Sollte als Link rechts neben dem Titel der Welcome Page erscheinen. Alternativ im GetIt-Package-Manager unter Patches and Hotfixes.

[harfes]

Hmmm, im GetIt-Package-Manager unter Patches and Hotfixes erscheint nur das von mir bereits installierte Update1 (siehe Bild) - das behebt aber das Problem nicht. Sonst wird nix weiter angezeigt (die Welcome page habe ich generell abgeschaltet).

Hartmut

[Uwe Raabe]

Na ja, wenn der Hotfix dein Problem nicht löst, dann ist das eben so.

[harfes]

Hallo Uwe,

bitte nicht falsch verstehen: es hörte sich so an, als wenn es einen fertigen Patch dafür gibt. Den einzigen Patch bzw das einzige Update ist das von vor ein paar Tagen. Wenn ich den Code von Hand in der Vcl.Forms.pas einbaue, dann funktioniert es (jedenfalls nach einem ersten, schnellen Test). Ich wollte nur sagen, dass der von Dir genannte Code nicht im Update1 enthalten ist und auch sonst keine anderer Patch/Hotfix angezeigt wird.

Hartmut

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