Converter: Improve MissingUnits form layout. Issue #28676, patch from Alexey Torgashin.

git-svn-id: trunk@49825 -

converter/missingunits.lfm

@@ -5,31 +5,33 @@ object MissingUnitsDialog: TMissingUnitsDialog
   Width = 732
   HorzScrollBar.Page = 411
   VertScrollBar.Page = 342
+  BorderIcons = [biSystemMenu]
   Caption = 'Units not Found'
   ClientHeight = 261
   ClientWidth = 732
   Position = poScreenCenter
-  LCLVersion = '1.1'
+  LCLVersion = '1.5'
   object ButtonPanel: TPanel
     Left = 0
-    Height = 35
-    Top = 226
+    Height = 41
+    Top = 220
     Width = 732
     Align = alBottom
     AutoSize = True
-    ClientHeight = 35
+    BevelOuter = bvNone
+    ClientHeight = 41
     ClientWidth = 732
-    TabOrder = 0
+    TabOrder = 3
     object CommentButton: TBitBtn
       AnchorSideLeft.Control = ButtonPanel
       AnchorSideTop.Control = AbortButton
       AnchorSideTop.Side = asrCenter
-      Left = 12
-      Height = 26
-      Top = 4
-      Width = 73
+      Left = 6
+      Height = 29
+      Top = 1
+      Width = 78
       AutoSize = True
-      BorderSpacing.Left = 11
+      BorderSpacing.Around = 6
       Caption = 'Comment'
       Default = True
       ModalResult = 1
@@ -40,12 +42,12 @@ object MissingUnitsDialog: TMissingUnitsDialog
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = CommentButton
       AnchorSideTop.Side = asrCenter
-      Left = 96
-      Height = 26
-      Top = 4
-      Width = 58
+      Left = 90
+      Height = 29
+      Top = 1
+      Width = 57
       AutoSize = True
-      BorderSpacing.Left = 11
+      BorderSpacing.Around = 6
       Caption = 'Search'
       ModalResult = 6
       TabOrder = 1
@@ -55,12 +57,12 @@ object MissingUnitsDialog: TMissingUnitsDialog
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = SearchButton
       AnchorSideTop.Side = asrCenter
-      Left = 165
-      Height = 26
-      Top = 4
-      Width = 40
+      Left = 153
+      Height = 29
+      Top = 1
+      Width = 41
       AutoSize = True
-      BorderSpacing.Left = 11
+      BorderSpacing.Around = 6
       Caption = 'Skip'
       ModalResult = 5
       TabOrder = 2
@@ -68,13 +70,13 @@ object MissingUnitsDialog: TMissingUnitsDialog
     object AbortButton: TBitBtn
       AnchorSideRight.Control = ButtonPanel
       AnchorSideRight.Side = asrBottom
-      Left = 638
-      Height = 33
+      Left = 654
+      Height = 29
       Top = 1
-      Width = 82
+      Width = 72
       Anchors = [akTop, akRight]
       AutoSize = True
-      BorderSpacing.Right = 11
+      BorderSpacing.Around = 6
       DefaultCaption = True
       Kind = bkAbort
       ModalResult = 3
@@ -82,50 +84,51 @@ object MissingUnitsDialog: TMissingUnitsDialog
     end
   end
   object MissingUnitsGroupBox: TGroupBox
-    Left = 0
-    Height = 223
-    Top = 0
+    Left = 6
+    Height = 208
+    Top = 6
     Width = 233
     Align = alLeft
-    BorderSpacing.Bottom = 3
+    BorderSpacing.Around = 6
     Caption = 'Missing Units Info'
-    ClientHeight = 204
+    ClientHeight = 189
     ClientWidth = 229
-    TabOrder = 1
+    TabOrder = 0
     object MissingUnitsCheckListBox: TCheckListBox
       Left = 0
-      Height = 204
+      Height = 189
       Top = 0
       Width = 229
       Align = alClient
       ItemHeight = 0
       PopupMenu = PopupMenu1
       TabOrder = 0
+      TopIndex = -1
     end
   end
   object Splitter1: TSplitter
-    Left = 233
-    Height = 226
+    Left = 245
+    Height = 220
     Top = 0
     Width = 5
   end
   object InfoPanel: TPanel
-    Left = 238
-    Height = 217
+    Left = 250
+    Height = 211
     Top = 9
-    Width = 494
+    Width = 482
     Align = alClient
     BorderSpacing.Top = 9
     BevelOuter = bvNone
-    ClientHeight = 217
-    ClientWidth = 494
-    TabOrder = 3
+    ClientHeight = 211
+    ClientWidth = 482
+    TabOrder = 2
     object ChoicesLabel: TLabel
       AnchorSideLeft.Side = asrBottom
       Left = 8
-      Height = 15
+      Height = 17
       Top = 16
-      Width = 53
+      Width = 56
       BorderSpacing.Left = 16
       BorderSpacing.Top = 23
       Caption = 'Choices:'
@@ -135,9 +138,9 @@ object MissingUnitsDialog: TMissingUnitsDialog
       AnchorSideLeft.Control = ChoicesLabel
       AnchorSideTop.Control = ChoicesLabel
       Left = 8
-      Height = 15
+      Height = 17
       Top = 39
-      Width = 31
+      Width = 35
       BorderSpacing.Top = 23
       Caption = 'Info1'
       ParentColor = False
@@ -146,9 +149,9 @@ object MissingUnitsDialog: TMissingUnitsDialog
       AnchorSideLeft.Control = ChoicesLabel
       AnchorSideTop.Control = Info1Label
       Left = 8
-      Height = 15
+      Height = 17
       Top = 62
-      Width = 31
+      Width = 35
       BorderSpacing.Top = 23
       Caption = 'Info2'
       ParentColor = False
@@ -157,9 +160,9 @@ object MissingUnitsDialog: TMissingUnitsDialog
       AnchorSideLeft.Control = ChoicesLabel
       AnchorSideTop.Control = Info2Label
       Left = 8
-      Height = 15
+      Height = 17
       Top = 85
-      Width = 31
+      Width = 35
       BorderSpacing.Top = 23
       Caption = 'Info3'
       ParentColor = False