Changeset 523 for trunk/Packages/DpiControls/Dpi.Controls.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.Controls.pas (modified) (2 diffs)

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;