warum Skalierung über Font.Size und nicht Font.Height

[BerndS]

Hallo,

In der Unit Forms wird die Änderung der Auflösung über die Änderung von TextHeight in procedure TCustomForm.ReadState(Reader: TReader); erkannt, sofern Scaled = True. Hier erfolgt dann auch die Änderung der Schriftgröße des Formulars über

Code:

...
Font.Height := MulDiv(Font.Height, Screen.PixelsPerInch, GetFPixelsPerInch(FPixelsPerInch));
...

Dadurch bekommen alle Controls mit ParentFont = True auch diese Schriftart.
Anschließend wird dann das Form wenn nötig skaliert aber nicht ScaleBy bzw. ChangeScale verwendet, sondern u.a. ScaleControls aufgerufen.

Aber hier wird es dann richtig ungenau, da hier nur noch die Änderung der Schriftgröße als Berechnungsgrundlage verwendet wird.

Code:

ScaleControls(NewTextHeight, FTextHeight);

Aber sowohl procedure TCustomForm.ChangeScale(M, D: Integer);
als auch ScaleControls verwendet dann

Code:

Font.Size := MulDiv(Font.Size, M, D);

, was in einigen Fällen zu anderen Fonts bzw. Schriftbreiten führt.

Das Bild im Anhang zeigt das Ergebnis von zwei Labels mit ursprünglich gleicher Schriftgröße, wobei das blaue mit ParentFont = False per ScaleControls skaliert wurde.
Hier wird beim blauen Label Font.Size=10 (Height = -20), während das andere Font.Size=9 (Height = -17) hat

Genauer wäre aber eine Skalierung mit

Code:

Font.Height := MulDiv(Font.Height, M, D);

dann aber bitte mit der gleichen Berechnungsgrundlage.

Mir persönlich ist das aufgefallen, als unter der W7 mit 150% und DPI.Skalierung im Stil Windows XP verwenden Labels im Formular nicht mehr genug Platz hatten.

Hier wird aus Font.Size = 8 -> Font.Size = 6, da im dfm ja Font.Height = -11 steht.

Rechnet mal nun Font.Height mit 150% um kommt man von -11 -> -17 was Font.Size = 9 entspricht, aber setzt man Font.Size = 9 wird Font.Height = -18.

Ich habe mal die Units Forms und Controls entsprechend in das Projektverzeichnis kopiert, die Untis geändert und Skaliere selber, in dem ich Scaled auf False setze und vor dem 1. Show per

Code:

ScalyBy(Screen.Screen.PixelsPerInch, 96);

das Formular anpasse. So klappt das ganze jetzt wie gewünscht

Ich habe das mit Delphi2007 getestet. Eigendlich wollt ich ja nie in den Originalen Units irgendwas ändern, aber hier finden ich bisher keine bessere Lösung.

Im Übrigen musste ich auch feststellen, dass das Skalieren bei vielen Komponenten nicht durchgängig umgesetzt wurde. Speziell wenn ParentFont = False gesetztsetzt ist,sind z.B. in den Grids und im Listview die Schriften der Titel nicht skaliert.

Gruß Bernd