Forum: Win32/Win64 API (native code)
Delphi
by Roadmap,
30. Jul 2015
Luckie, ich verstehe Deinen Einwand! Allerdings ist es so das jedes meiner D7-Programme ohne das ich es will so ausgeführt wird. Unter Windows 7 war eben dies nicht der Fall, da es mit Scaled:=False komplett abgefangen werden konnte. Es mag sein, dass es auch Anwendnungszwecke dafür gibt, für den beschränkten Userkreis meiner Programm allerdings nicht. Zudem wäre es schön wenn ich da auch...
Forum: Win32/Win64 API (native code)
Delphi
by Roadmap,
30. Jul 2015
Hallo Sebastian,
nein das XPMan(ifest) ändert an dem Verhalten gar nichts. Alleine das Fenster wird schon um 25% vergrössert dargestellt und alle Inhalte darin gescaled?!?!
Forum: Win32/Win64 API (native code)
Delphi
by Roadmap,
30. Jul 2015
Jetzt nochmal die Ansicht unter Windows 7 mit 125% Scaling und dem gleichen Code. Der Fensterrahmen ist zwar vergrössert aber der Inhalt bleibt gleich. DAs möchte ich auch unter Windows 10 wieder erreichen!
So wie ich das sehe ist das Problem das WIndows 10 schon das Fenster an sich vergrössert (125%) des Originals inkl. der Controls und daraus dann die Interpolation entsteht, nur wie...
Forum: Win32/Win64 API (native code)
Delphi
by Roadmap,
30. Jul 2015
Also ich habe mir das nochmal angeschaut, das Ganze stellt sich so dar:
1. Bild: Das Fenster unter Win7 96DPI, so sollte es überall aussehen
2. Bild: Das Fenster unter Win10 mit 150% Scaling und Scaling:=True
3. Bild: Das Fenster unter Win10 mit 150% Scaling und Scaling:=False;
Angestrebt ist das es einfach überall gleich aussieht, nur Win10 scheint das Fenster jetzt immer zu scalen und...
Forum: Win32/Win64 API (native code)
Delphi
by Roadmap,
30. Jul 2015
Danke Markus für die schnelle Antwort, bin nicht auf die Idee gekommen im "Betriebssystem"-Bereich nach einer Lösung zu suchen :?
OK dann versuche ich mal zusammenzufassen, denn das dürfte ja dann einige Leute mit älteren Delphi-Applikationen betreffen.
Das Scaling in einer Delphi-Applikation bringt wohl erst mal nix mehr, da Windows hier einfach einen Override macht. Lösbar wäre das Ganze...
Forum: Win32/Win64 API (native code)
Delphi
by Roadmap,
30. Jul 2015
Habe heute bei einem Test meiner Programme auf einem Windows 10 Tablet eine interessante Entdeckung gemacht. Ich habe bisher die Problematik von verschiedenen DPI-Zahlen bzw. Large Fonts mit folgendem Code im FormCreate gelöst:
Scaled := False;
if Screen.PixelsPerInch <> 96 then ScaleBy(Screen.PixelsPerInch, 96);
Der Effekt war klar, Scaling aus und wenn PixelsPerInc ungleich 96 DPI...
