Browse Source

Shouldn't keep AutoSize since that breaks DPI scaling. Also should set Center.

MainForm already had this except that Center was missing for UpdatePanelCloseBitBtn by accident.
Martijn Laan 1 month ago
parent
commit
ae90cc987a

+ 1 - 1
Projects/Src/IDE.InputQueryMemoForm.dfm

@@ -34,8 +34,8 @@ object InputQueryMemoForm: TInputQueryMemoForm
     Height = 20
     Height = 20
     Cursor = crHandPoint
     Cursor = crHandPoint
     Anchors = [akLeft, akBottom]
     Anchors = [akLeft, akBottom]
-    AutoSize = True
     Caption = 'Help'
     Caption = 'Help'
+    Center = True
     TabOrder = 1
     TabOrder = 1
   end
   end
   object OKButton: TButton
   object OKButton: TButton

+ 1 - 0
Projects/Src/IDE.MainForm.dfm

@@ -384,6 +384,7 @@ object MainForm: TMainForm
       Margins.Bottom = 8
       Margins.Bottom = 8
       Align = alRight
       Align = alRight
       Caption = 'Close Banner'
       Caption = 'Close Banner'
+      Center = True
       TabOrder = 1
       TabOrder = 1
       OnClick = UpdatePanelCloseBitBtnClick
       OnClick = UpdatePanelCloseBitBtnClick
       OnPaint = UpdatePanelCloseBitBtnPaint
       OnPaint = UpdatePanelCloseBitBtnPaint

+ 1 - 1
Projects/Src/IDE.RegistryDesignerForm.dfm

@@ -24,8 +24,8 @@ object RegistryDesignerForm: TRegistryDesignerForm
     Width = 20
     Width = 20
     Height = 20
     Height = 20
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
-    AutoSize = True
     Caption = 'Help'
     Caption = 'Help'
+    Center = True
     TabOrder = 9
     TabOrder = 9
   end
   end
   object Panel1: TPanel
   object Panel1: TPanel

+ 2 - 2
Projects/Src/IDE.StartupForm.dfm

@@ -25,8 +25,8 @@ object StartupForm: TStartupForm
     Height = 35
     Height = 35
     Cursor = crHandPoint
     Cursor = crHandPoint
     Anchors = [akLeft, akBottom]
     Anchors = [akLeft, akBottom]
-    AutoSize = True
     Caption = 'Donate'
     Caption = 'Donate'
+    Center = True
     ParentShowHint = False
     ParentShowHint = False
     Bitmap.Data = {
     Bitmap.Data = {
       F60B0000424DF60B00000000000036040000280000003E0000001F0000000100
       F60B0000424DF60B00000000000036040000280000003E0000001F0000000100
@@ -137,8 +137,8 @@ object StartupForm: TStartupForm
     Cursor = crHandPoint
     Cursor = crHandPoint
     Hint = 'Be notified by e-mail of new Inno Setup releases'
     Hint = 'Be notified by e-mail of new Inno Setup releases'
     Anchors = [akLeft, akBottom]
     Anchors = [akLeft, akBottom]
-    AutoSize = True
     Caption = 'Subscribe'
     Caption = 'Subscribe'
+    Center = True
     ParentShowHint = False
     ParentShowHint = False
     Bitmap.Data = {
     Bitmap.Data = {
       F60B0000424DF60B00000000000036040000280000003E0000001F0000000100
       F60B0000424DF60B00000000000036040000280000003E0000001F0000000100

+ 1 - 1
Projects/Src/IDE.Wizard.WizardForm.dfm

@@ -1060,8 +1060,8 @@ object WizardForm: TWizardForm
             Width = 20
             Width = 20
             Height = 20
             Height = 20
             Anchors = [akTop, akRight]
             Anchors = [akTop, akRight]
-            AutoSize = True
             Caption = 'Help'
             Caption = 'Help'
+            Center = True
             TabOrder = 9
             TabOrder = 9
           end
           end
           object AppRegistryFileLabel: TNewStaticText
           object AppRegistryFileLabel: TNewStaticText