IDE: improved Form Editor options page layout, issue #39757

ide/frames/formed_options.lfm

@@ -1,11 +1,13 @@
 object FormEditorOptionsFrame: TFormEditorOptionsFrame
   Left = 0
-  Height = 600
+  Height = 750
   Top = 0
-  Width = 769
-  ClientHeight = 600
-  ClientWidth = 769
+  Width = 961
+  ClientHeight = 750
+  ClientWidth = 961
+  DesignTimePPI = 120
   OnResize = FrameResize
+  ParentFont = False
   TabOrder = 0
   Visible = False
   DesignLeft = 345
@@ -16,37 +18,37 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
     AnchorSideTop.Control = Owner
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
-    Left = 232
-    Height = 141
+    Left = 290
+    Height = 193
     Top = 0
-    Width = 537
+    Width = 671
     Anchors = [akTop, akLeft, akRight]
     AutoSize = True
-    BorderSpacing.Left = 6
+    BorderSpacing.Left = 8
     Caption = 'GridGroupBox'
-    ClientHeight = 123
-    ClientWidth = 533
+    ClientHeight = 168
+    ClientWidth = 667
     TabOrder = 1
     object GridSizeXLabel: TLabel
       AnchorSideLeft.Control = GridGroupBox
       AnchorSideTop.Control = GridSizeXSpinEdit
       AnchorSideTop.Side = asrCenter
-      Left = 6
-      Height = 13
-      Top = 73
-      Width = 69
-      BorderSpacing.Around = 6
+      Left = 8
+      Height = 20
+      Top = 100
+      Width = 100
+      BorderSpacing.Around = 8
       Caption = 'GridSizeXLabel'
     end
     object GridSizeYLabel: TLabel
       AnchorSideLeft.Control = GridGroupBox
       AnchorSideTop.Control = GridSizeYSpinEdit
       AnchorSideTop.Side = asrCenter
-      Left = 6
-      Height = 13
-      Top = 100
-      Width = 69
-      BorderSpacing.Around = 6
+      Left = 8
+      Height = 20
+      Top = 136
+      Width = 99
+      BorderSpacing.Around = 8
       Caption = 'GridSizeYLabel'
     end
     object SnapToGridCheckBox: TCheckBox
@@ -55,13 +57,13 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = GridGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 6
-      Height = 17
-      Top = 46
-      Width = 122
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 3
-      BorderSpacing.Right = 6
+      Left = 8
+      Height = 24
+      Top = 64
+      Width = 163
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 4
+      BorderSpacing.Right = 8
       Caption = 'SnapToGridCheckBox'
       ParentShowHint = False
       ShowHint = True
@@ -70,12 +72,12 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
     object ShowGridCheckBox: TCheckBox
       AnchorSideLeft.Control = GridGroupBox
       AnchorSideTop.Control = GridGroupBox
-      Left = 6
-      Height = 17
-      Top = 6
-      Width = 112
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 6
+      Left = 8
+      Height = 24
+      Top = 8
+      Width = 149
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 8
       Caption = 'ShowGridCheckBox'
       ParentShowHint = False
       ShowHint = True
@@ -85,12 +87,12 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideLeft.Control = GridGroupBox
       AnchorSideTop.Control = ShowGridCheckBox
       AnchorSideTop.Side = asrBottom
-      Left = 6
-      Height = 17
-      Top = 26
-      Width = 154
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 3
+      Left = 8
+      Height = 24
+      Top = 36
+      Width = 206
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 4
       Caption = 'ShowBorderSpaceCheckBox'
       ParentShowHint = False
       ShowHint = True
@@ -101,11 +103,11 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = SnapToGridCheckBox
       AnchorSideTop.Side = asrBottom
-      Left = 81
-      Height = 21
-      Top = 69
-      Width = 64
-      BorderSpacing.Around = 6
+      Left = 116
+      Height = 28
+      Top = 96
+      Width = 80
+      BorderSpacing.Around = 8
       MaxValue = 128
       MinValue = 2
       ParentShowHint = False
@@ -118,11 +120,11 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = GridSizeXSpinEdit
       AnchorSideTop.Side = asrBottom
-      Left = 81
-      Height = 21
-      Top = 96
-      Width = 64
-      BorderSpacing.Around = 6
+      Left = 115
+      Height = 28
+      Top = 132
+      Width = 80
+      BorderSpacing.Around = 8
       MaxValue = 128
       MinValue = 2
       ParentShowHint = False
@@ -140,15 +142,15 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
     Left = 0
-    Height = 239
-    Top = 220
-    Width = 769
+    Height = 317
+    Top = 302
+    Width = 961
     Anchors = [akTop, akLeft, akRight]
     AutoSize = True
-    BorderSpacing.Top = 6
+    BorderSpacing.Top = 8
     Caption = 'FormEditMiscGroupBox'
-    ClientHeight = 221
-    ClientWidth = 765
+    ClientHeight = 292
+    ClientWidth = 957
     TabOrder = 3
     object ShowComponentCaptionsCheckBox: TCheckBox
       AnchorSideLeft.Control = FormEditMiscGroupBox
@@ -156,13 +158,13 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = FormEditMiscGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 6
-      Height = 17
-      Top = 26
-      Width = 190
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 3
-      BorderSpacing.Right = 6
+      Left = 8
+      Height = 24
+      Top = 36
+      Width = 257
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 4
+      BorderSpacing.Right = 8
       Caption = 'ShowComponentCaptionsCheckBox'
       ParentShowHint = False
       ShowHint = True
@@ -174,13 +176,13 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = FormEditMiscGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 6
-      Height = 17
-      Top = 46
-      Width = 145
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 3
-      BorderSpacing.Right = 6
+      Left = 8
+      Height = 24
+      Top = 64
+      Width = 195
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 4
+      BorderSpacing.Right = 8
       Caption = 'ShowEditorHintsCheckBox'
       ParentShowHint = False
       ShowHint = True
@@ -192,13 +194,13 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = FormEditMiscGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 6
-      Height = 17
-      Top = 66
-      Width = 194
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 3
-      BorderSpacing.Right = 6
+      Left = 8
+      Height = 24
+      Top = 92
+      Width = 262
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 4
+      BorderSpacing.Right = 8
       Caption = 'OpenDesignerOnOpenUnitCheckBox'
       ParentShowHint = False
       ShowHint = True
@@ -210,12 +212,12 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = FormEditMiscGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 6
-      Height = 17
-      Top = 86
-      Width = 147
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 3
+      Left = 8
+      Height = 24
+      Top = 120
+      Width = 197
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 4
       Caption = 'RightClickSelectsCheckBox'
       ParentShowHint = False
       ShowHint = True
@@ -225,13 +227,13 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideLeft.Control = FormEditMiscGroupBox
       AnchorSideTop.Control = RightClickSelectsCheckBox
       AnchorSideTop.Side = asrBottom
-      Left = 7
-      Height = 17
-      Top = 107
-      Width = 182
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 3
-      BorderSpacing.Bottom = 3
+      Left = 8
+      Height = 24
+      Top = 148
+      Width = 245
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 4
+      BorderSpacing.Bottom = 4
       Caption = 'CreateCompFocusNameCheckBox'
       OnChange = CreateCompFocusNameCheckBoxChange
       ParentShowHint = False
@@ -243,13 +245,13 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideTop.Control = FormEditMiscGroupBox
       AnchorSideRight.Control = FormEditMiscGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 6
-      Height = 17
-      Top = 6
-      Width = 759
+      Left = 8
+      Height = 24
+      Top = 8
+      Width = 949
       Anchors = [akTop, akLeft, akRight]
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 6
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 8
       Caption = 'RubberbandSelectsGrandChildsCheckBox'
       ParentShowHint = False
       ShowHint = True
@@ -259,13 +261,13 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideLeft.Control = FormEditMiscGroupBox
       AnchorSideTop.Control = SwitchToFavoritesOITabCheckBox
       AnchorSideTop.Side = asrBottom
-      Left = 6
-      Height = 17
-      Top = 158
-      Width = 212
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 3
-      BorderSpacing.Bottom = 3
+      Left = 8
+      Height = 24
+      Top = 204
+      Width = 281
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 4
+      BorderSpacing.Bottom = 4
       Caption = 'CheckPackagesOnFormCreateCheckBox'
       ParentShowHint = False
       ShowHint = True
@@ -273,14 +275,15 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
     end
     object SwitchToFavoritesOITabCheckBox: TCheckBox
       AnchorSideLeft.Control = CreateCompFocusNameCheckBox
-      AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = CreateCompFocusNameCheckBox
-      AnchorSideTop.Side = asrCenter
-      Left = 208
-      Height = 17
-      Top = 138
-      Width = 185
-      BorderSpacing.Left = 20
+      AnchorSideTop.Side = asrBottom
+      Left = 32
+      Height = 24
+      Top = 176
+      Width = 244
+      BorderSpacing.Left = 24
+      BorderSpacing.Top = 4
+      BorderSpacing.Bottom = 4
       Caption = 'SwitchToFavoritesOITabCheckBox'
       ParentShowHint = False
       ShowHint = True
@@ -292,13 +295,13 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideTop.Side = asrBottom
       AnchorSideBottom.Control = FormEditMiscGroupBox
       AnchorSideBottom.Side = asrBottom
-      Left = 6
-      Height = 17
-      Top = 178
-      Width = 247
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 3
-      BorderSpacing.Bottom = 3
+      Left = 8
+      Height = 24
+      Top = 232
+      Width = 331
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 4
+      BorderSpacing.Bottom = 4
       Caption = 'FormTitleBarChangesObjectInspectorCheckBox'
       ParentShowHint = False
       ShowHint = True
@@ -309,13 +312,13 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideTop.Control = FormTitleBarChangesObjectInspectorCheckBox
       AnchorSideTop.Side = asrBottom
       AnchorSideBottom.Side = asrBottom
-      Left = 6
-      Height = 17
-      Top = 198
-      Width = 208
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 3
-      BorderSpacing.Bottom = 6
+      Left = 8
+      Height = 24
+      Top = 260
+      Width = 283
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 4
+      BorderSpacing.Bottom = 8
       Caption = 'ForceDPIScalingInDesignTimeCheckBox'
       ParentShowHint = False
       ShowHint = True
@@ -330,30 +333,30 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Side = asrBottom
-    Left = 232
-    Height = 67
-    Top = 147
-    Width = 537
+    Left = 290
+    Height = 93
+    Top = 201
+    Width = 671
     Anchors = [akTop, akLeft, akRight]
     AutoSize = True
-    BorderSpacing.Left = 6
-    BorderSpacing.Top = 6
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
     Caption = 'GuideLinesGroupBox'
-    ClientHeight = 49
-    ClientWidth = 533
+    ClientHeight = 68
+    ClientWidth = 667
     TabOrder = 2
     object ShowGuideLinesCheckBox: TCheckBox
       AnchorSideLeft.Control = GuideLinesGroupBox
       AnchorSideRight.Control = GuideLinesGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 6
-      Height = 17
-      Top = 6
-      Width = 521
+      Left = 8
+      Height = 24
+      Top = 8
+      Width = 651
       Anchors = [akTop, akLeft, akRight]
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 6
-      BorderSpacing.Right = 6
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 8
+      BorderSpacing.Right = 8
       Caption = 'ShowGuideLinesCheckBox'
       ParentShowHint = False
       ShowHint = True
@@ -365,15 +368,15 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = GuideLinesGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 6
-      Height = 17
-      Top = 26
-      Width = 521
+      Left = 8
+      Height = 24
+      Top = 36
+      Width = 651
       Anchors = [akTop, akLeft, akRight]
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 3
-      BorderSpacing.Right = 6
-      BorderSpacing.Bottom = 6
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 4
+      BorderSpacing.Right = 8
+      BorderSpacing.Bottom = 8
       Caption = 'SnapToGuideLinesCheckBox'
       ParentShowHint = False
       ShowHint = True
@@ -388,26 +391,26 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
     AnchorSideBottom.Control = GuideLinesGroupBox
     AnchorSideBottom.Side = asrBottom
     Left = 0
-    Height = 214
+    Height = 294
     Top = 0
-    Width = 226
+    Width = 282
     Anchors = [akTop, akLeft, akBottom]
     Caption = 'DesignerColorsGroupBox'
-    ClientHeight = 196
-    ClientWidth = 222
+    ClientHeight = 269
+    ClientWidth = 278
     TabOrder = 0
     object ColorsListBox: TColorListBox
       AnchorSideLeft.Control = DesignerColorsGroupBox
       AnchorSideTop.Control = DesignerColorsGroupBox
       AnchorSideBottom.Control = ColorBox
-      Left = 6
-      Height = 156
-      Top = 6
-      Width = 210
+      Left = 8
+      Height = 219
+      Top = 8
+      Width = 262
       Style = [cbCustomColors]
       OnGetColors = ColorsListBoxGetColors
       Anchors = [akTop, akLeft, akBottom]
-      BorderSpacing.Around = 6
+      BorderSpacing.Around = 8
       ItemHeight = 0
       OnSelectionChange = ColorsListBoxSelectionChange
       TabOrder = 0
@@ -420,14 +423,14 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame
       AnchorSideRight.Side = asrBottom
       AnchorSideBottom.Control = DesignerColorsGroupBox
       AnchorSideBottom.Side = asrBottom
-      Left = 6
-      Height = 22
-      Top = 168
-      Width = 210
+      Left = 8
+      Height = 26
+      Top = 235
+      Width = 262
       Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
       Anchors = [akLeft, akBottom]
-      BorderSpacing.Around = 6
-      ItemHeight = 16
+      BorderSpacing.Around = 8
+      ItemHeight = 20
       OnChange = ColorBoxChange
       TabOrder = 1
     end