Hi,

Delphi XE 11.1:

wie handhabt ihr eigentlich das Font-Handling, wenn die Anwendung PerMonitor-Aware laufen soll und mit der Fontgröße gerechnet werden muß?
Folgendes Problem:

* 2 Monitore: Primärer 200% Skalierung, Sekundärer 100% Skalierung
* Anwendung via Explorer platziert auf Primärem starten, dann ein zweites Mal via Explorer platziert auf Sekundärem Monitor
* Ergebnis: unterschiedliche Darstellungen und Werte (siehe Bild im Anhang)


Die Anwendung selbst ist eigentlich sehr einfach:
* leere Anwendung
* TMemo und TLabel drauf platzieren
* Font der Form auf Tahoma / 8 stellen
* folgenden FormCreate Handler einhängen:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  LogFont;

  // key point 1: form changes font on FormCreate
  Font.Name := 'Segoe UI';
  Font.Size := 9;
  LogFont;


  // key point 2: move form to secondary monitor to enforce scaling
  if Screen.MonitorCount > 1 then
    Left := Screen.Monitors[1].Left + 1;

  LogFont;
end;

mit

markieren

Delphi-Quellcode:

procedure TForm1.LogFont;
begin
  memo1.lines.add(Format('Font.Size: %d; Font.PPI: %d, Font.Height: %d', [Font.Size, Font.PixelsPerInch, Font.Height]));
end;

Wenn ich mir die VCL Sourcen so ansehe und mit dem obigen Resultaten vergleiche: man darf eigentlich nirgens mehr mit der Font.Size arbeiten, denn diese liefert eventuell "falsche" Ergebnisse, da sie ja immer auf FontHöhe und PixelsPerInch den Wert berechnet.

Sollte man das als Bug in der VCL ansehen oder generell jegliche Berechnung/Änderung mit Font.Size immer vermeiden?

Meiner Meinung nach hat man das Font-Scaling falsch angefangen. Anstatt die Font.Size invariant zu halten und sich einfach mittels Font.PixelsPerInch auf die jeweilige Skalierung des Monitors einzustellen. Wird Font.PixelsPerInch einmalig gesetzt (anhand des Primären Monitors) und danach immer Font.Height skaliert. Ich hoffe, das kommt nochmal auf die Agenda und wird in einer zukünftigen Version revidiert.

Als Folge davon muss die Zuweisung Font.Size := 9 schon die aktuelle Skalierung berücksichtigen: Font.Size := MulDiv(9, CurrentPPI, Font.PixelsPerInch);

Vielen Dank!

Zitat von Uwe Raabe:

Meiner Meinung nach hat man das Font-Scaling falsch angefangen. Anstatt die Font.Size invariant zu halten und sich einfach mittels Font.PixelsPerInch auf die jeweilige Skalierung des Monitors einzustellen. Wird Font.PixelsPerInch einmalig gesetzt (anhand des Primären Monitors) und danach immer Font.Height skaliert. Ich hoffe, das kommt nochmal auf die Agenda und wird in einer zukünftigen Version revidiert.

Als Folge davon muss die Zuweisung Font.Size := 9 schon die aktuelle Skalierung berücksichtigen: Font.Size := MulDiv(9, CurrentPPI, Font.PixelsPerInch);

Ist das schon in QP erfasst?
Dann könnte ich dafür stimmen...

https://quality.embarcadero.com/browse/RSP-35021