Converter: improved/fixed converter settings form layout

git-svn-id: trunk@39700 -

converter/convertsettings.lfm

@@ -17,7 +17,7 @@ object ConvertSettingsForm: TConvertSettingsForm
     AnchorSideLeft.Control = Owner
     AnchorSideRight.Control = UnitReplaceDivider
     Left = 9
-    Height = 19
+    Height = 21
     Hint = 'Directory where project''s main file must be'
     Top = 32
     Width = 330
@@ -32,8 +32,8 @@ object ConvertSettingsForm: TConvertSettingsForm
     EditLabel.AnchorSideRight.Side = asrBottom
     EditLabel.AnchorSideBottom.Control = ProjectPathEdit
     EditLabel.Left = 9
-    EditLabel.Height = 15
-    EditLabel.Top = 10
+    EditLabel.Height = 13
+    EditLabel.Top = 12
     EditLabel.Width = 330
     EditLabel.Caption = 'Project Path:'
     EditLabel.ParentColor = False
@@ -48,10 +48,10 @@ object ConvertSettingsForm: TConvertSettingsForm
     AnchorSideTop.Control = TargetGroupBox
     AnchorSideTop.Side = asrBottom
     Left = 12
-    Height = 21
+    Height = 17
     Hint = 'Creates a Backup directory under project directory'
-    Top = 179
-    Width = 210
+    Top = 166
+    Width = 159
     BorderSpacing.Left = 3
     BorderSpacing.Top = 9
     Caption = 'Make backup of changed files'
@@ -63,8 +63,8 @@ object ConvertSettingsForm: TConvertSettingsForm
   end
   object ButtonPanel1: TButtonPanel
     Left = 6
-    Height = 38
-    Top = 311
+    Height = 34
+    Top = 315
     Width = 587
     OKButton.Name = 'OKButton'
     OKButton.DefaultCaption = True
@@ -84,10 +84,10 @@ object ConvertSettingsForm: TConvertSettingsForm
     AnchorSideTop.Control = BackupCheckBox
     AnchorSideTop.Side = asrBottom
     Left = 12
-    Height = 21
+    Height = 17
     Hint = 'Separate form files allow different properties'
-    Top = 205
-    Width = 241
+    Top = 188
+    Width = 185
     BorderSpacing.Top = 5
     Caption = 'Keep converted files open in editor'
     ParentShowHint = False
@@ -257,14 +257,15 @@ object ConvertSettingsForm: TConvertSettingsForm
     AnchorSideTop.Control = ProjectPathEdit
     AnchorSideTop.Side = asrBottom
     Left = 9
-    Height = 108
+    Height = 93
     Hint = 'xxx'
-    Top = 62
-    Width = 255
+    Top = 64
+    Width = 165
+    AutoSize = True
     BorderSpacing.Top = 11
     Caption = 'Target'
-    ClientHeight = 91
-    ClientWidth = 251
+    ClientHeight = 75
+    ClientWidth = 161
     ParentShowHint = False
     ShowHint = True
     TabOrder = 8
@@ -272,11 +273,12 @@ object ConvertSettingsForm: TConvertSettingsForm
       AnchorSideLeft.Control = CrossPlatformCheckBox
       AnchorSideTop.Control = CrossPlatformCheckBox
       AnchorSideTop.Side = asrBottom
-      Left = 10
-      Height = 21
-      Top = 30
-      Width = 116
-      BorderSpacing.Top = 5
+      Left = 6
+      Height = 17
+      Top = 29
+      Width = 88
+      BorderSpacing.Top = 6
+      BorderSpacing.Right = 6
       Caption = 'Support Delphi'
       OnChange = SupportDelphiCheckBoxChange
       ParentShowHint = False
@@ -284,14 +286,17 @@ object ConvertSettingsForm: TConvertSettingsForm
       TabOrder = 0
     end
     object SameDfmCheckBox: TCheckBox
-      AnchorSideLeft.Control = SupportDelphiCheckBox
+      AnchorSideLeft.Control = CrossPlatformCheckBox
       AnchorSideTop.Control = SupportDelphiCheckBox
       AnchorSideTop.Side = asrBottom
-      Left = 10
-      Height = 21
-      Top = 56
-      Width = 194
-      BorderSpacing.Top = 5
+      AnchorSideRight.Side = asrBottom
+      Left = 6
+      Height = 17
+      Top = 52
+      Width = 149
+      BorderSpacing.Top = 6
+      BorderSpacing.Right = 6
+      BorderSpacing.Bottom = 6
       Caption = 'Use the same DFM form file'
       OnChange = SameDfmCheckBoxChange
       ParentShowHint = False
@@ -299,12 +304,15 @@ object ConvertSettingsForm: TConvertSettingsForm
       TabOrder = 1
     end
     object CrossPlatformCheckBox: TCheckBox
+      AnchorSideLeft.Control = TargetGroupBox
       AnchorSideTop.Control = TargetGroupBox
-      Left = 10
-      Height = 21
-      Top = 4
-      Width = 114
-      BorderSpacing.Top = 4
+      Left = 6
+      Height = 17
+      Top = 6
+      Width = 89
+      BorderSpacing.Left = 6
+      BorderSpacing.Top = 6
+      BorderSpacing.Right = 6
       Caption = 'Cross-platform'
       ParentShowHint = False
       ShowHint = True
@@ -317,11 +325,11 @@ object ConvertSettingsForm: TConvertSettingsForm
     AnchorSideTop.Control = UnitReplaceButton
     AnchorSideTop.Side = asrCenter
     Left = 447
-    Height = 27
-    Top = 26
+    Height = 21
+    Top = 29
     Width = 136
     BorderSpacing.Left = 23
-    ItemHeight = 0
+    ItemHeight = 13
     Style = csDropDownList
     TabOrder = 9
   end
@@ -330,11 +338,11 @@ object ConvertSettingsForm: TConvertSettingsForm
     AnchorSideTop.Control = UnknownPropsDivider
     AnchorSideTop.Side = asrBottom
     Left = 447
-    Height = 27
+    Height = 21
     Top = 84
     Width = 136
     BorderSpacing.Top = 2
-    ItemHeight = 0
+    ItemHeight = 13
     Style = csDropDownList
     TabOrder = 10
   end
@@ -344,11 +352,11 @@ object ConvertSettingsForm: TConvertSettingsForm
     AnchorSideTop.Control = FuncReplaceButton
     AnchorSideTop.Side = asrCenter
     Left = 447
-    Height = 27
-    Top = 194
+    Height = 21
+    Top = 197
     Width = 136
     BorderSpacing.Left = 23
-    ItemHeight = 0
+    ItemHeight = 13
     Style = csDropDownList
     TabOrder = 11
   end
@@ -358,11 +366,11 @@ object ConvertSettingsForm: TConvertSettingsForm
     AnchorSideTop.Control = CoordOffsButton
     AnchorSideTop.Side = asrCenter
     Left = 447
-    Height = 27
-    Top = 250
+    Height = 21
+    Top = 253
     Width = 136
     BorderSpacing.Left = 23
-    ItemHeight = 0
+    ItemHeight = 13
     Style = csDropDownList
     TabOrder = 12
   end
@@ -372,11 +380,11 @@ object ConvertSettingsForm: TConvertSettingsForm
     AnchorSideTop.Control = TypeReplaceButton
     AnchorSideTop.Side = asrCenter
     Left = 447
-    Height = 27
-    Top = 138
+    Height = 21
+    Top = 141
     Width = 136
     BorderSpacing.Left = 23
-    ItemHeight = 0
+    ItemHeight = 13
     Style = csDropDownList
     TabOrder = 13
   end
@@ -385,9 +393,9 @@ object ConvertSettingsForm: TConvertSettingsForm
     AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = KeepFileOpenCheckBox
     AnchorSideTop.Side = asrBottom
-    Left = 181
+    Left = 142
     Height = 20
-    Top = 250
+    Top = 229
     Width = 102
     BorderSpacing.Left = 6
     BorderSpacing.Top = 24
@@ -399,9 +407,9 @@ object ConvertSettingsForm: TConvertSettingsForm
     AnchorSideTop.Control = ScanProgressBar
     AnchorSideTop.Side = asrCenter
     Left = 12
-    Height = 15
-    Top = 253
-    Width = 163
+    Height = 13
+    Top = 233
+    Width = 124
     Caption = 'Scanning parent directory'
     ParentColor = False
   end
@@ -411,9 +419,9 @@ object ConvertSettingsForm: TConvertSettingsForm
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = ScanProgressBar
     AnchorSideRight.Side = asrBottom
-    Left = 181
+    Left = 142
     Height = 25
-    Top = 271
+    Top = 250
     Width = 102
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Top = 1