Changeset 523 for trunk/Packages

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.

Location:

trunk/Packages/DpiControls

Files:

• Dpi.Common.pas (modified) (2 diffs)
• Dpi.Controls.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;
 

trunk/Packages/DpiControls/Dpi.Controls.pas

@@ -1028 +1028 @@
 
 procedure TControl.NativeFormResize(Sender: TObject);
-begin
-  BoundsRect := ScaleRectFromNative(GetNativeControl.BoundsRect);
+var
+  R: TRect;
+begin
+  R := ScaleRectFromNative(GetNativeControl.BoundsRect);
+  FLeft := R.Left;
+  FTop := R.Top;
+  FWidth := R.Width;
+  FHeight := R.Height;
   DoFormResize;
 end;
@@ -1070 +1076 @@
 
 procedure TControl.UpdateBounds;
-var
-  R: TRect;
 begin
   GetNativeControl.BoundsRect := ScaleRectToNative(BoundsRect);
-  R := ScaleRectToNative(BoundsRect);
-  //WriteLog(Name + ' ' + IntToStr(R.Left) + ', ' + IntToStr(R.Top) + ', ' + IntToStr(R.Width) + ', ' + IntToStr(R.Height))
 end;