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?