Das sieht sehr vielversprechend aus! Ich hatte es eben schon mit der Message WM_DPICHANGED versucht aber die kommt scheinbar nicht durch. Warum weiß ich nicht.
Deine Lösung funktioniert sehr gut! Nicht einmal Font-Anpassungen sind notwendig. Bei ATTabs muss man nur FOptTabHeight und Height (die Höhe der Komponente selber) setzen.
Es gibt nur ein Problem. Wenn man das Formular von 100% DPI auf 175% zieht und dann wieder auf 100%, bleibt FOptTabHeight relativ groß. Um genau behält der Tab seine Höhe von 175 runter auf 100.
Hier muss man scheinbar initial den alten Wert von FOptTabHeight zwischenspeichern und dementsprechend diesen in MulDiv verwenden.
Aber auch hier bin ich mir alles andere als sicher.
Denn erste Tests mit dem folgenden ergeben, dass es leider nicht so einfach ist.
Delphi-Quellcode:
Height := MulDiv(29, M, D);
FOptTabHeight := MulDiv(24, M, D);
Ich habe jetzt auch herausgefunden warum.
Verschiebe ich das Fenster von Monitor 1 (100%) auf Monitor 2 (175%) wird ChangeScale aufgerufen. Umgekehrt aber nicht.
Jetzt habe ich aber die Lösung zu meinem Problem gefunden.
erstens musste die zweite überladene Methode von ChangeScale überschreiben (die mit isDPIChange Parameter)
und zweitens fehlte inherited;