PerMonitor Aware und Fonts: wie richtig machen?

[ULIK]

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:

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

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?