Bildschirmskalierung - Wie aktuelle Einstellung ermitteln?

[Cronen]

Ich mochte beim Start einer Anwendung prüfen, wie die aktuelle Bildschirmskalierung (Win 10) eingestellt ist (also 100% / 125% / 150%).
Mit meiner Suche landete ich ua. bei folgenden Beiträgen:
Problem beim skalieren des Bildschirms
oder
Anzeigeskalierung größer 100%

Die dort gezeigten Lösungen zeigen mr aber immer 96 an egal bei welcher Skalierung.

Die Google-Suche führt mich immer zur Registry HKEY_CURRENT_USER\Control Panel\Desktop\Win8DpiScaling od. ..\WindowMetrics\AppliedDPI
Auch hier lande ich immer bei unveränderten Werten.

Kann mir jemand sagen, wo konkret die Einstellung hinterlegt ist bzw. wie ich die Abfrage?

[Steku]

Hi,

vielleicht hilft das Tutorial hier weiter: http://www.helpandmanual.com/downloads_delphi.html

Unter "A Delphi Developers Guide for 4K Displays" gibt es einen ca. 10MB großen
Download.

Grüße
Steku

[Bernhard Geyer]

kann es sein das deine Anwendung ohne ein passendes Manifest läuft das sagt "Ich kann richtig Skalieren"?
Wenn du das nicht hast wird dir Windows eine 96dpi-Einstellung vorgaugeln und alle Skalierungsarbeiten selbst durchführen.

[Cronen]

im Manifest "ich kann skalieren" einstellen ist doch <dpiAware>True</dpiAware> oder?

in Verbindung mit TForm.scaled = True ?

[Glados]

Hilft dir das vielleicht weiter?

Delphi-Quellcode:

DPI := Screen.PixelsPerInch * 100 div 96;
if DPI >= 150 then
 //
else if DPI >= 125 then
 //
else if ...

[EWeiss]

Delphi-Quellcode:

var
  ratio: single;

Delphi-Quellcode:

function GetDPI(nPix: LongInt): LongInt;
var
  DC: HDC;
begin
  if ratio = 0 then
  begin
    DC := GetDC(0);
    ratio := GetDeviceCaps(DC, LOGPIXELSX) / 96.0;
    ReleaseDC(0, DC);
  end;
  result := round(nPix * ratio);
end;

Delphi-Quellcode:

MeineFormWeite := 1000;
MeineFormWeiteDPI := GetDpi(MeineFormWeite);

oder

Delphi-Quellcode:

ButtonWidth := 200;
ButtonHeight := 25;
SetRect(rc, 0, 0, GetDPI(ButtonWidth), GetDPI(ButtonHeight));

bye..

[Cronen]

So ich hab mich dann heute morgen wieder an das Thema ran gewagt.

Zunächst mal Danke für die Antworten.
Aber leider komme ich nicht weiter. Egal wie ich bekomme - ob mit manifest oder ohne - immer die 96 DPI angezeigt.
Der Unterschied liegt "nur" darin, dass mit Manifest die Darstellung wesentlich schärfer ist.

Was spricht eigentlich dagegen, wenn ich TForm.Scaled = FALSE setze?
So wie ich das sehe, bleibt die Form immer gleich - unabhängig von der einestellten Skalierung.

[Glados]

Zitat:

Was spricht eigentlich dagegen, wenn ich TForm.Scaled = FALSE setze?

Mach es doch einfach. Ich habe Scaled schon seit Jahren immer auf False. Die High-DPI-Option in den Projektoptionen ist ebenfalls deaktiviert, ein Manifest hab ich auch mit dpiAware True.
Dann noch obigen Code von mir und alles wird von XP bis Windows 10 korrekt berechnet.

Ich habe diesen ganzen Auto-Scale-Krims-Krams auf False, da er so oder so nicht immer das macht was er soll. Meine Formulare werden alle, je nach DPI, händisch (im Code) angepasst.
Das sieht erstens besser aus und zweitens hat man so die volle Kontrolle und ist nicht von irgendwelchen DPI-Optionen abhängig.

[Bernhard Geyer]

Hat dein Manifest auch die nötige supportedOS-Eintrag (für Win10 wäre das <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />).
MS ist ja auf die glorreiche Idee gekommen mit jeder Windows-Version seit Vista einen neuen Eintrag nötig zu machen. Du musstest also alle 2-3 Jahre einen Eintrag ergänzen damit deine Anwendung nicht wieder von Windows Skaliert wurde.

Zitat:

Der Unterschied liegt "nur" darin, dass mit Manifest die Darstellung wesentlich schärfer ist.

Unscharfe Darstellung deutet darauf hin das die Anwendung von Windows Skaliert wird.

Zitat:

Ich habe diesen ganzen Auto-Scale-Krims-Krams auf False, da er so oder so nicht immer das macht was er soll. Meine Formulare werden alle, je nach DPI, händisch (im Code) angepasst.
Das sieht erstens besser aus und zweitens hat man so die volle Kontrolle und ist nicht von irgendwelchen DPI-Optionen abhängig.

Hab damit eigentlich keine schlechten Erfahrungen gemacht. Wir haben fast 2 Mio Quellcodezeilen und die händische Code zur Anpassung an Auflösungen <> 96dpi sind eine Handvoll zeilen. Mit Umstieg von D6 auf XE6 konnte wir einige dieser Zeilen ausbauen.
Meistens wurde bei dynamisch erstellten Controls vergessen diese passend zu Skalieren wenn dpi <> 96 ist.

[haentschman]

Moin...:P

Schaust du hier: https://forum.delphi-treff.de/index....-herausfinden/

Zitat:

Was ich nicht gemacht hatte ist, den PC nach der Umstellung neu zu starten.
Erst danach ist die Anzeige in der Registrie aktualisiert.