Frames skalieren falsch unter HighDPI-Gesichtspunkten

[Carsten Hölscher]

Ich hab wohl jetzt eine Lösung für das Problem. Man baut sich eine eigene Frameklasse wie unten und leitet alle Frames von dieser ab, also TMyFrame = class(TFrameCH) statt TMyFrame = class(TFrame).

Damit verhalten sich alle meine Testfälle korrekt, wobei ich möglicherweise nicht alle erfast habe. Der Entwurfsmonitor steht wie schon geschrieben auf 150%, die DPI-Werte in der dfm-datei auf 144.

Delphi-Quellcode:

unit CHFrame;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs;

type
  TFrameCH = class(TFrame)
  private
    { Private-Deklarationen }
    FCreate:Boolean;
    FDPIStart:integer;
  protected
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    procedure ScaleForPPI(NewPPI: Integer); override;
  end;

implementation

{$R *.dfm}

constructor TFrameCH.Create(AOwner: TComponent);
var m:TMonitor;
begin
  FCreate:=true;
  m:=Screen.MonitorFromWindow(Application.MainForm.Handle, mdNearest);     
  FDPIStart:=m.PixelsPerInch;

  inherited Create(AOwner);

  if Self.PixelsPerInch <> m.PixelsPerInch then
  begin
    ScaleControls(96, Self.PixelsPerInch);
  end;
end;

procedure TFrameCH.ScaleForPPI(NewPPI: Integer);
var m:TMonitor;
begin
  m:=Screen.MonitorFromWindow(Application.MainForm.Handle, mdNearest);     
  if not FCreate then
  begin
    ScaleControls(m.PixelsPerInch, FDPIStart);
    FDPIStart:=m.PixelsPerInch;
  end
  else
  begin
    Inherited;
    FCreate:=false;
  end;
end;

end.

[Carsten Hölscher]

hier noch das angepasste Testprojekt.

Carsten

[Thomasl]

Ich habe noch ein anderes Problem
Alexandria 11.2 Patch 1

IDE steht auf 96DPI
Ein Frame erstellt.
PixelsPerInch ist im DFM nicht vorhanden
noch alles OK

IDE auf eine andere DPI stellen. z.B 192
wenn man das Frame öffnet, wird alles in der IDE mit doppelt größe angezeigt
PixelsPerInch im DFM steht auf 192
noch alles OK

Öffnet man die IDE mit 96 DPI, wird nicht auf 96 DPI zurück Skaliert
nach dem Speichern bleibt PixelsPerInch auf der alten größe z.B 192

Ein Wechsel von 192 auf 144 DPI klappt aber

Bei Forms klappt der Wechsel zurück auf 96 DPI

[Michael II]

Hallo Thomasl

meinst du mit IDE steht auf 96DPI die IDE Einstellung unter Tools > Optionen > Benutzeroberfläche > Formular Designer > High DPI oder die Skalierung unter Windows?

Ich habe wohl falsch getestet. Ich habe ein neues Projekt erstellt mit einer Form und einem Frame. Ich habe sowohl mit der High DPI Einstellung der IDE wie auch mit der Skalierung unter Windows probiert; Form wie Frame wurden nach dem Laden immer wie erwartet angezeigt.

[Thomasl]

Zitat von Michael II:

Hallo Thomasl
meinst du mit IDE steht auf 96DPI die IDE Einstellung unter Tools > Optionen > Benutzeroberfläche > Formular Designer > High DPI Windows probiert; Form wie Frame wurden nach dem Laden

Ja in der IDE. Wechsel zwischen LowDPI und Auto oder Custom

In Windows steht das dann auch schon auf z.B. 200%

[Thomasl]

Wenn ich hier das Beispiel öffne.
Da sind PixelsPerInch im Frame auf 144

Sind in der IDE LowDPI 96 eingestellt, bleiben nach dem öffnen des Frames (ändern Speichern) die PixelsPerInch auf 144

[Michael II]

Zitat von Thomasl:

Wenn ich hier das Beispiel öffne.
Da sind PixelsPerInch im Frame auf 144

Sind in der IDE LowDPI 96 eingestellt, bleiben nach dem öffnen des Frames (ändern Speichern) die PixelsPerInch auf 144

In Delphi 11.2 [11 Version 28.0.46481.1287] funktioniert es einwandfrei. (Hab's sowohl mit dem Testprojekt wie auch mit einem neuen Projekt rauf und runter geprüft,)