[GExperts-Checkins] SF.net SVN: gexperts:[4285] trunk/Source/RenameCompon ents

[<aka...@us...>]

Revision: 4285
          http://sourceforge.net/p/gexperts/code/4285
Author:   akalwahome
Date:     2024-07-07 20:22:52 +0000 (Sun, 07 Jul 2024)
Log Message:
-----------
FIX: RenameComponent scaling issues 

Modified Paths:
--------------
    trunk/Source/RenameComponents/GX_CompRename.dfm
    trunk/Source/RenameComponents/GX_CompRename.pas

Modified: trunk/Source/RenameComponents/GX_CompRename.dfm
===================================================================
--- trunk/Source/RenameComponents/GX_CompRename.dfm	2024-07-07 11:40:46 UTC (rev 4284)
+++ trunk/Source/RenameComponents/GX_CompRename.dfm	2024-07-07 20:22:52 UTC (rev 4285)
@@ -16,6 +16,7 @@
   Position = poScreenCenter
   Scaled = False
   PixelsPerInch = 96
+  OnShow = FormShow
   TextHeight = 14
   object lblOldName: TLabel
     Left = 8
@@ -317,7 +318,7 @@
   end
   object edtOldName: TEdit
     Left = 8
-    Top = 24
+    Top = 25
     Width = 305
     Height = 22
     Color = clBtnFace
@@ -326,7 +327,7 @@
   end
   object edtNewName: TEdit
     Left = 8
-    Top = 72
+    Top = 73
     Width = 305
     Height = 22
     AutoSelect = False

Modified: trunk/Source/RenameComponents/GX_CompRename.pas
===================================================================
--- trunk/Source/RenameComponents/GX_CompRename.pas	2024-07-07 11:40:46 UTC (rev 4284)
+++ trunk/Source/RenameComponents/GX_CompRename.pas	2024-07-07 20:22:52 UTC (rev 4285)
@@ -71,6 +71,7 @@
     procedure b_Margins3Click(Sender: TObject);
     procedure b_Margins6Click(Sender: TObject);
     procedure b_Margins8Click(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     FIsValidComponentName: TIsValidComponentName;
     FProperties: TObjectList;
@@ -199,10 +200,20 @@
 begin
   ActiveControl := edtNewName;
 //  lblReason.Top := btnOK.Top + Round((btnOK.Height / 2) - (lblReason.Height / 2));
-  InitDpiScaler;
   Result := ShowModal;
 end;
 
+procedure TfmCompRename.FormShow(Sender: TObject);
+begin
+  inherited;
+  // Adjust some button positons and size after scaling
+  // DisableAlign;
+  b_AlignRight.Left   := b_AlignTop.Left + b_AlignTop.Width - b_AlignRight.Width;
+  b_AlignClient.Left  := b_AlignLeft.Left + b_AlignLeft.Width + 1;
+  b_AlignClient.Width := b_AlignRight.Left - b_AlignClient.Left - 2;
+  // EnableAlign;
+end;
+
 function TfmCompRename.GetNewName: WideString;
 begin
   Result := Trim(edtNewName.Text);
@@ -447,6 +458,8 @@
 constructor TfmCompRename.Create(Owner: TComponent);
 begin
   inherited;
+  TControl_SetMinConstraints(Self);
+
   FProperties := TObjectList.Create(False);
 
   FAlignButtons[alTop] := TdzSpeedBitBtn.Create(b_AlignTop);
@@ -850,6 +863,7 @@
         frm.OldName := CompName;
 
         frm.SetComponent(Component);
+        frm.InitDpiScaler;
 
         Index := RenameRuleList.IndexOfName(Component.GetComponentType);
         if Index <> -1 then

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.