Formulargröße auf HighDPI-Monitor speichern

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