Formulargröße auf HighDPI-Monitor speichern

[Michael II]

Zitat:

Ganz genau genommen ist mein Formular bei 96 DPI 1050 Pixel breit. Nach dem Rüberziehen und Speichern auf einen 144 DPI (150%) Monitor werden daraus 1575. Das sind 33,4% mehr.
Wie ich da wieder auf 1050 komme ist mir ein Geheimnis.

Hallo DieDolly

von einer Länge 1050 auf 1575 sind's nicht 33,4% mehr sondern 50%. Genau so ist es bei den DPI Werten: Von 96 auf 144 sind's auch 50% mehr.

Wenn du auf System 1 Auflösung DPI1 und auf System 2 DPI2 hast, und ein Formular auf System 1 l1 lang ist, dann hat es auf System 2 eine Länge von l2 := (DPI2/DPI1)*l1. In deinem Fall l2=144/96*1050=1.5*1050=1575.

[EWeiss]

Ich gebe mal ein kleines Beispiel wie ich das in meinem KVPlayer mache (c++) keine Ahnung ob du das dann so auf VCL umsetzen kannst.

Code:

SetRect(&rc, 0, 0, dpi(CLIENT_WIDTH), dpi(CLIENT_HEIGHT));
AdjustWindowRectEx(&rc, dwStyle, FALSE, 0);

CLIENT_WIDTH und CLIENT_HEIGHT ist die normale größe ohne DPI.

Code:

#define CLIENT_WIDTH 960
#define CLIENT_HEIGHT 658

Ich rechne DPI hoch wie folgt.

Code:

long dpi(IN long nPix) {
    static float ratio;
    if (ratio == 0) {
        HDC hDC = GetDC(0); ratio = (GetDeviceCaps(hDC, LOGPIXELSX) / 96.0f); ReleaseDC(0, hDC); 
    }
    return  (long)(nPix * ratio);
}

Du musst nun lediglich die DPI in umgekehrter Reihenfolge zurück rechnen das wars schon.
Ich denke damit kommst du zurecht.

gruss

[DieDolly]

Und wie rechne ich zurück (auf 96 DPI), dass ich so abspeichern kann, dass Windows nicht bei jedem Start neu hochskaliert?

Leider verstehe ich das da oben nicht.

Was funktioniert ist, das Formular kurz vorher zurück auf 96 DPI zu skalieren ABER ob das schön ist ... ich bezweifle es

Delphi-Quellcode:

// Routine zum beenden und speichern des Programms ...

ZuSchließendeUndSpeicherndeForm.ScaleBy(96, Aktuelle DPI des Monitors auf dem das Form liegt);

Das ergibt dann zwar 1057 Pixel statt 1050 aber damit kann man leben.

[EWeiss]

Zitat von DieDolly:

Und wie rechne ich zurück (auf 96 DPI), dass ich so abspeichern kann, dass Windows nicht bei jedem Start neu hochskaliert?

Leider verstehe ich das da oben nicht.

habe ich doch gepostet ..

Code:

(GetDeviceCaps(hDC, LOGPIXELSX) / 96.0f);

so wird die neue gesetzt das ins Gegenteil umlegen und fertig.

Code:

nPix * Ratio

Code:

nPix div Ratio

Oder?

gruss

[DieDolly]

Leider kenne ich mich mit C++ kein bisschen aus. Deswegen sagen mir weder diese Funktionen was noch die Variablen.

[Uwe Raabe]

Zitat von DieDolly:

(AktuelleDPI minus 96)

Wies denn Minus? Es geht doch um das Verhältnis von AktuelleDPI zu 96.

Zitat von DieDolly:

Ich würde die gerne umrechnen zurück auf 96 DPI aber ich weiß leider nicht wie.

<zu speichernder Wert> := MulDiv(<aktueller Wert>, 96, <aktuelle DPI>);

[Michael II]

Hallo Dolly, was an der Formel verstehst du nicht?


Nimm ein System 1 mit DPI1 und ein System 2 mit DPI2.

Formularlänge auf System 1 sei l1 und auf System 2 l2.

Wenn DPI1 und DPI2 bekannt sind und das Formular mit Länge l1 momentan auf System 1 liegt, dann gilt für die entsprechende Länge l2 auf System 2 (zum Beispiel die Breite oder die Höhe oder die Diagonale ):

l2 := DPI2/DPI1*l1 (1)

und umgekehrt kannst du natürlich auch nach l1 auflösen:

11 := DPI1/DPI2*l2 (2)


In deinem Fall: Dein Formular befindet sich auf System 2 mit DPI2=144 und hat eine Breite von w=1575. Nun willst du die Breite auf System 1 bestimmen. Es gilt Formel 2 von oben:

Du berechnest
l1 := 96/144*1575 = 1050

Das Formular hat also auf System 1 eine Breite von l1=1050.

Was nebenbei und nicht ganz zufällig genau dem Wert entspricht, den du gemessen hast .

[EWeiss]

Zitat von DieDolly:

Leider kenne ich mich mit C++ kein bisschen aus. Deswegen sagen mir weder diese Funktionen was noch die Variablen.

Na dann..

Delphi-Quellcode:

function dpi(nPix: Integer): Integer; (oder(LongInt ))
var
  ratio: Single;
  DC: HDC;
begin

  if (ratio = 0) then
  begin
    DC := GetDC(0);
    ratio := (GetDeviceCaps(DC, LOGPIXELSX) / 96.0);
    ReleaseDC(0, hDC);
  end;
  result := nPix * ratio;
end;

 ratio: Single;

global definieren.
Dafür brauche ich nicht mal ein Manifest.. muss halt nur drauf achten das ich jedes Control durch diese Funktion jage.

Zitat:

Du berechnest
l1 := 96/144*1575 = 1050

OH schreck das macht doch die Funktion GetDeviceCaps da muss man nichts berechnen.
GetDC(0) ist das DC des Desktop.
Von der Auflösung des Desktop wird dann über GetDeviceCaps(GetDeviceCaps(DC, LOGPIXELSX)) die DPI zurückgegeben.
Diese noch durch 96.0 teilen und fertig.

gruss

[Uwe Raabe]

Zitat von EWeiss:

Delphi-Quellcode:

    DC := GetDC(0);
    ratio := (GetDeviceCaps(DC, LOGPIXELSX) / 96.0f);

Das gibt aber nicht zwingend die aktuelle DPI des Monitors an, auf dem das Form gerade sichtbar ist, oder?

Ich hatte es so verstanden, daß es genau darum ging:

Zitat von DieDolly:

Verschiebe ich mein Formular auf meinen 150% DPI-Monitor und beende das Programm, wird die Formulargröße viel zu groß gespeichert.

[EWeiss]

Zitat:

Das gibt aber nicht zwingend die aktuelle DPI des Monitors an, auf dem das Form gerade sichtbar ist, oder?

Klar siehe

Zitat:

Number of pixels per logical inch along the screen width. In a system with multiple display monitors, this value is the same for all monitors.

Zitat:

Number of pixels per logical inch along the screen height. In a system with multiple display monitors, this value is the same for all monitors.

gruss