Changeset 523 for trunk/Packages/DpiControls/Dpi.Common.pas

Timestamp:

Jan 7, 2024, 11:23:36 PM (4 months ago)

Author:

chronos

Message:

• Fixed: Avoid repeatedly calling Term form resize and repaint in case of fractional scaling.

File:

• trunk/Packages/DpiControls/Dpi.Common.pas (modified) (2 diffs)

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -89 +89 @@
   uFlags: UINT): Boolean;
 begin
-  LCLIntf.SetWindowPos(hWnd, hWndInsertAfter, ScaleToNative(X), ScaleToNative(Y),
+  Result := LCLIntf.SetWindowPos(hWnd, hWndInsertAfter, ScaleToNative(X), ScaleToNative(Y),
     ScaleToNative(cx), ScaleToNative(cy), uFlags);
 end;
@@ -105 +105 @@
 function ScaleFromNative(Value: Integer): Integer;
 begin
-  Result := Round(Value * 96 / ScreenInfo.Dpi);
+  Result := Floor(Value * 96 / ScreenInfo.Dpi);
 end;