ide: improve use project unit dialog layout

git-svn-id: trunk@28950 -

ide/useprojunitdlg.lfm

@@ -1,17 +1,19 @@
 object UseProjUnitDialog: TUseProjUnitDialog
-  Left = 287
-  Height = 348
+  Left = 350
+  Height = 346
   Top = 177
   Width = 318
   Caption = 'Use a Unit from this Project'
-  ClientHeight = 348
+  ClientHeight = 346
   ClientWidth = 318
+  Constraints.MinHeight = 150
+  Constraints.MinWidth = 200
   Position = poScreenCenter
-  LCLVersion = '0.9.29'
+  LCLVersion = '0.9.31'
   object ButtonPanel1: TButtonPanel
     Left = 6
-    Height = 39
-    Top = 303
+    Height = 26
+    Top = 314
     Width = 306
     OKButton.Name = 'OKButton'
     OKButton.Caption = '&OK'
@@ -25,6 +27,7 @@ object UseProjUnitDialog: TUseProjUnitDialog
     CancelButton.Caption = 'Cancel'
     TabOrder = 2
     ShowButtons = [pbOK, pbCancel]
+    ShowBevel = False
   end
   object SectionRadioGroup: TRadioGroup
     AnchorSideLeft.Control = UnitsListBox
@@ -32,13 +35,15 @@ object UseProjUnitDialog: TUseProjUnitDialog
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = UnitsListBox
     AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = ButtonPanel1
     Left = 6
     Height = 49
-    Top = 244
+    Top = 259
     Width = 306
-    Anchors = [akTop, akLeft, akRight]
+    Anchors = [akLeft, akRight, akBottom]
     AutoFill = True
     BorderSpacing.Top = 3
+    BorderSpacing.Bottom = 3
     Caption = 'Insert into Uses Section'
     ChildSizing.LeftRightSpacing = 6
     ChildSizing.TopBottomSpacing = 6
@@ -48,8 +53,8 @@ object UseProjUnitDialog: TUseProjUnitDialog
     ChildSizing.ShrinkVertical = crsScaleChilds
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 2
-    ClientHeight = 29
-    ClientWidth = 300
+    ClientHeight = 31
+    ClientWidth = 302
     Columns = 2
     ItemIndex = 1
     Items.Strings = (
@@ -59,12 +64,17 @@ object UseProjUnitDialog: TUseProjUnitDialog
     TabOrder = 1
   end
   object UnitsListBox: TListBox
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = SectionRadioGroup
     Left = 6
-    Height = 233
-    Top = 8
+    Height = 247
+    Top = 6
     Width = 306
     Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.Around = 6
     ItemHeight = 0
     TabOrder = 0
   end