Changeset 684 for trunk/Packages/DpiControls/Dpi.Controls.pas

Timestamp:

Jul 26, 2025, 10:38:53 PM (14 hours ago)

Author:

chronos

Message:

• Modified: Improved forms painting if resized to bigger dimensions.

File:

• trunk/Packages/DpiControls/Dpi.Controls.pas (modified) (6 diffs)

trunk/Packages/DpiControls/Dpi.Controls.pas

@@ -122 +122 @@
     procedure SetParentFont(AValue: Boolean);
     procedure SetShowHint(AValue: Boolean);
-    procedure NativeFormResize(Sender: TObject);
+    procedure NativeResize(Sender: TObject);
     procedure NativeChangeBounds(Sender: TObject);
-    procedure DoFormResize;
     procedure DoChangeBounds;
     procedure MouseDownHandler(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
@@ -138 +137 @@
     function ColorIsStored: Boolean; virtual;
   protected
+    procedure DoOnResize; virtual;
     procedure DoBorderSpacingChange(Sender: TObject; InnerSpaceChanged: Boolean); virtual;
     function GetText: TCaption; virtual;
@@ -604 +604 @@
 begin
   Font.NativeFont := GetNativeControl.Font;
-  GetNativeControl.OnResize := NativeFormResize;
+  GetNativeControl.OnResize := NativeResize;
   GetNativeControl.OnChangeBounds := NativeChangeBounds;
 
@@ -1034 +1034 @@
 end;
 
-procedure TControl.NativeFormResize(Sender: TObject);
+procedure TControl.NativeResize(Sender: TObject);
 var
   R: TRect;
@@ -1043 +1043 @@
   FWidth := R.Width;
   FHeight := R.Height;
-  DoFormResize;
+  DoOnResize;
 end;
 
@@ -1060 +1060 @@
 end;
 
-procedure TControl.DoFormResize;
+procedure TControl.DoOnResize;
 begin
   if Assigned(FOnResize) then begin