Formulargröße auf HighDPI-Monitor speichern

[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.

[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

[Uwe Raabe]

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.

Das unterstreicht meinen Einwand aber doch gerade! Der Wert ist für alle Monitore derselbe, also bekommt man eben nicht den für den jeweiligen Monitor relevanten Wert, sondern einen systemweit gültigen.

[DieDolly]

Ich habe mir eure Funktionen jetzt nochmal genau angeguckt, selber nachgerechnet und ja, ich bin dumm wie Stroh. ich bin halt ein mathematisches Anti-Wunderkind im erhöhten Alter
Ich versuche hier die ganze Zeit Prozentrechnung und wundere mich, warum ich nicht zurück auf 1050 komme.

MultiDiv scheint genau das zu tun, was Michael schrieb. Leider kann man in die Quelltexte von MultiDiv nicht reingucken. Wenn ich das richtig verstehe, ist MultiDiv auch plattformspezifisch.

Meine zwei neuen Funktionen, die mir sicher oft noch weiterhelfen werden

Delphi-Quellcode:

// Plattformunabhängiges MultiDiv, Uwe Raabe, Michael II@ DelphiPraxis.net
function TMathUtils.MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer;
begin
 Result := Round((nNumber / nNumerator) * nDenominator);
end;

// Diese Funktion nutze ich aktuell dort, wo ich vorher nur ScaleBy nutzte
procedure TFormUtils.ScaleForm(const Form: TForm; const NewDPI, CurrentDPI: Integer);
begin
 if NewDPI <> CurrentDPI then
  begin
   SendMessage(Form.Handle, WM_SETREDRAW, WPARAM(False), 0); // LockWindow nutze ich nicht wegen, siehe ***
   try
    aForm.ScaleBy(NewDPI, CurrentDPI);
   finally
    SendMessage(Form.Handle, WM_SETREDRAW, WPARAM(True), 0);
   end;
  end;
end;

***

Zitat:

LockWindowUpdate was designed to stop drawing for drag and drop, it goes a bit further than WM_SETREDRAW because it could make assumptions about what the user was doing. One assumption was that since a drag and drop was occurring, window moving could be disabled/ignored. You can still drag a window around that has WM_SETREDRAW set to false.

@https://stackoverflow.com/questions/3792217/how-can-i-disable-screen-update-which-updating-a-lot-of-controls

[EWeiss]

Versteh nicht was du da tust aber gut..
Was hat das verhindern von Zeichnungs Operationen nun mit dem Skalieren der Form zu tun?
Ok bin raus das driftet ab.

gruss

[DieDolly]

Zitat von DieDolly:

Ich habe mir eure Funktionen jetzt nochmal genau angeguckt, selber nachgerechnet und ja, ich bin dumm wie Stroh. ich bin halt ein mathematisches Anti-Wunderkind im erhöhten Alter
Ich versuche hier die ganze Zeit Prozentrechnung und wundere mich, warum ich nicht zurück auf 1050 komme.

MultiDiv scheint genau das zu tun, was Michael schrieb. Leider kann man in die Quelltexte von MultiDiv nicht reingucken. Wenn ich das richtig verstehe, ist MultiDiv auch plattformspezifisch.

Meine zwei neuen Funktionen, die mir sicher oft noch weiterhelfen werden

Delphi-Quellcode:

// Plattformunabhängiges MultiDiv, Uwe Raabe, Michael II@ DelphiPraxis.net
function TMathUtils.MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer;
begin
 Result := Round((nNumber / nNumerator) * nDenominator);
end;

// Diese Funktion nutze ich aktuell dort, wo ich vorher nur ScaleBy nutzte
procedure TFormUtils.ScaleForm(const Form: TForm; const NewDPI, CurrentDPI: Integer);
begin
 if NewDPI <> CurrentDPI then
  begin
   SendMessage(Form.Handle, WM_SETREDRAW, WPARAM(False), 0); // LockWindow nutze ich nicht wegen, siehe ***
   try
    aForm.ScaleBy(NewDPI, CurrentDPI);
   finally
    SendMessage(Form.Handle, WM_SETREDRAW, WPARAM(True), 0);
   end;
  end;
end;

Die MulDiv Funktion muss ich korrigieren. Sie war leider falsch. Nicht, dass einer die falsche kopiert. Richtig lautet sie

Delphi-Quellcode:

class function TMathUtils.MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer;
begin
 Result := Round((nNumber * nNumerator) / nDenominator);
end;