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
Programmierung allgemein
Antwort
Zitat
Linear-Darstellung
