SetPixelsPerInch auch für Windows 10 - die Helper...

[Papaschlumpf73]

Moin, ich habe hier eine Prozedur, die mit einer Codezeile meine gesamte VCL-Anwendung ziemlich gut skalieren kann. Manche Controls brauchen zwar etwas Nachhilfe - aber das sind kleine Ausnahmen. Nur die Windows-Dialoge (FileOpen, MessageBox usw.) haben die Standardgröße.

Funktioniert mit allen Windows-Versionen von 7 - 10 inkl. der Serverversionen.
Mit Delphi XE3 und XE8 geht's; mit Delphi 10.1 Berlin leider nicht mehr.

Habe hier schon viel im Forum gelesen - und ja: Es funktioniert mit Windows 10.

Bei Delphi 10.1 Berlin gibt es wahrscheinlich Probleme mit den Änderungen bei den Helpern. Von denen habe ich leider noch gar keine Ahnung...

Wer kann mir helfen?

Anbei ein Beispielprojekt mit XE8 erstellt. Die gewünschten PixelsPerInch können in der Projektdatei nach belieben verändert werden und wirken sich auch die ganze Anwendung aus.

[jaenicke]

Wie wäre es einfach so?

Delphi-Quellcode:

procedure TScreenHelper.SetPixelsPerInch(Value: Integer);
begin
  PInteger(@PixelsPerInch)^ := Value;
end;

[Papaschlumpf73]

So sieht es schon viel einfacher aus. Mit Delphi XE8 geht auch diese Variante. Nur wenn es mit Delphi 10.1 Berlin kompiliert wird, passiert gar nichts und die Anwendung hat die Standardauflösung...

[jaenicke]

Dass solche unsauberen Tricks nicht unbedingt immer weiter funktionieren, ist klar...

Warum benutzt du eigentlich nicht die normale Methode und rufst einfach ScaleBy auf? Da musst du nicht tricksen und die Methode wird offiziell unterstützt. Einzig für ein TPageControl funktioniert diese in Delphi 10.1 nicht:
https://quality.embarcadero.com/browse/RSP-14750

[Papaschlumpf73]

Meine Anwendung hat über 150 Formulare, welche dynamisch bei Bedarf erzeugt und auch wieder freigegeben werden. Dabei verwende ich auch viele PageControls z.B. für Assistenten-Formulare. Ich müsste jetzt für alle Formulare ScaleBy() nach der Erzeugung aufrufen. Das ging mit meiner bisherigen proc wesentlich unkomplizierter - und die PageControls hat's unter Win10 auch nicht zerschossen.

Gibt es evtl. so etwas wie Application.OnCreateForm um die ScaleBy-Aufrufe zu bündeln? Ich müsste sonst alle 150 Forms anpassen.

[jaenicke]

Wir haben das in alle Formulare explizit eingebaut.

Eine Alternative könnte sein, dass du einen Hook z.B. auf TCustomForm.DoShow setzt.

[Papaschlumpf73]

Danke. Dann werde ich wohl vorerst bei Delphi XE8 bleiben bis die Probleme mit den PageControls behoben sind.

[dummzeuch]

Zitat von Papaschlumpf73:

Gibt es evtl. so etwas wie Application.OnCreateForm um die ScaleBy-Aufrufe zu bündeln? Ich müsste sonst alle 150 Forms anpassen.

Es gibt Screen.OnActiveFormChange, vielleicht hilft das weiter?