Formulargröße auf HighDPI-Monitor speichern

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

Was hat das verhindern von Zeichen Operationen nun mit dem Skalieren der Form zu tun?

Als dreckigen Workaround hatte ich vorher ScaleBy benutzt. Und um das sichtbare Neuzeichnen zu verbergen, habe ich mir diese Prozedur geschrieben.

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

[Michael II]

Ja mir war aufgefallen, dass deine nicht 100%ig jener von Delphi entspricht, aber meistens wohl genügt .

Delphi setzt dies um:
https://docs.microsoft.com/en-us/win...winbase-muldiv

D.h. deine nachgebaute Funktion sollte zum Beispiel in gewissen Fällen -1 ausgeben.

Fürs Runden solltest du nicht round verwenden. round(x) rundet .5 immer auf die gerade Zahl, welche x am nächsten liegt. Beispiel 0.5 wird auf 0 gerundet, 1.5 auf 2, 2.5 auf 2, 3.5 auf 4. MulDiv macht's anders. Schau dir zum Beispiel trunc an.

Zum Runden in Delphi gibt's hier Infos.

[DieDolly]

Verbesserung

Delphi-Quellcode:

class function TMathUtils.MathRound(X: Extended): Int64; // Bei stackoverflow gefunden, für die Sammlung. Obwohl Trunc dasselbe macht.
begin
 if X >= 0 then
  Result := Trunc(X + 0.5)
 else
  Result := Trunc(X - 0.5);
end;

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

[EWeiss]

Zitat von DieDolly:

Verbesserung

Delphi-Quellcode:

class function TMathUtils.MathRound(X: Extended): Int64; // Bei stackoverflow gefunden, für die Sammlung. Obwohl Trunc dasselbe macht.
begin
 if X >= 0 then
  Result := Trunc(X + 0.5)
 else
  Result := Trunc(X - 0.5);
end;

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

Danke.. Werde ich sicherlich mal benötigen.

gruss

[Michael II]

Ja du musst aber natürlich in deiner MulDiv() deine Rundungsfunktion MathRound() verwenden - so wie von dir gepostet verwendest du trunc().

Also so:
 Result := MathRound( (nNumber * nNumerator) / nDenominator); Weiter musst du den Fall nDenominator=0 abfangen (Result := -1) und auch mögliche Überläufe ((nNumber * nNumerator) / nDenominator kann so gross werden, dass das Resultat nicht in einem integer Platz hat).


Weiteres Problem: Möglicher integer Überlauf bei der Multiplikation nNumber * nNumerator

Deine MulDiv Funktion liefert zum Beispiel für

Delphi-Quellcode:

var x : integer;
begin
    x := MulDiv( maxint div 2, maxint div 2, maxint div 2 );

x = -2, müsste aber natürlich maxint div 2 zurückgeben.

Schreibe deshalb int64(nNumber) * int64(nNumerator) statt nNumber * nNumerator, sonst hast du wenig Freude, wenn nNumber * nNumerator > maxint.

OK für deinen "Fenster-Fall" wirst du kaum je solche Werte als Argumente haben. Aber wenn du MulDiv nachbilden willst, dann musst du darauf achten.

[DieDolly]

Ich hätte nicht gedacht, dass die windowseigene Muldiv() das alles berücksichtigt. Was berücksichtigt die denn noch? Denn die ist scheinbar plattformspezifisch.

[Fritzew]

Zitat:

Schreibe deshalb int64(nNumber) * int64(nNumerator) statt nNumber * nNumerator, sonst hast du wenig Freude, wenn nNumber * nNumerator > maxint.

oder verwende gleich die
MulDivInt64(.....) aus der System Unit. Die ist crossplatform angelegt sollte also keine Problem machen.