IDE: Hide border and make button wider in ViewUnit dialog. Issue #28049, patch from Alexey Torgashin

git-svn-id: trunk@48982 -

ide/viewunit_dlg.lfm

@@ -15,11 +15,11 @@ object ViewUnitDialog: TViewUnitDialog
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   Position = poScreenCenter
-  LCLVersion = '1.3'
+  LCLVersion = '1.5'
   object Listbox: TListBox
     Left = 6
-    Height = 278
-    Top = 34
+    Height = 279
+    Top = 35
     Width = 366
     Align = alClient
     BorderSpacing.Around = 6
@@ -32,12 +32,11 @@ object ViewUnitDialog: TViewUnitDialog
     ScrollWidth = 364
     Style = lbOwnerDrawFixed
     TabOrder = 0
-    TopIndex = -1
   end
   object ButtonPanel: TButtonPanel
     Left = 6
-    Height = 36
-    Top = 344
+    Height = 34
+    Top = 346
     Width = 366
     OKButton.Name = 'OKButton'
     OKButton.DefaultCaption = True
@@ -55,23 +54,24 @@ object ViewUnitDialog: TViewUnitDialog
     ShowButtons = [pbOK, pbCancel, pbHelp]
   end
   object BtnPanel: TPanel
-    Left = 0
-    Height = 28
-    Top = 0
-    Width = 378
+    Left = 6
+    Height = 23
+    Top = 6
+    Width = 366
     Align = alTop
     AutoSize = True
-    ClientHeight = 28
-    ClientWidth = 378
+    BorderSpacing.Around = 6
+    BevelOuter = bvNone
+    ClientHeight = 23
+    ClientWidth = 366
     TabOrder = 2
     object SortAlphabeticallySpeedButton: TSpeedButton
-      Left = 1
-      Height = 26
-      Top = 1
-      Width = 15
+      Left = 0
+      Height = 23
+      Top = 0
+      Width = 25
       Align = alLeft
       AllowAllUp = True
-      AutoSize = True
       Constraints.MinHeight = 15
       Constraints.MinWidth = 15
       GroupIndex = 2
@@ -80,20 +80,14 @@ object ViewUnitDialog: TViewUnitDialog
       ParentShowHint = False
     end
     object FilterEdit: TListFilterEdit
-      AnchorSideLeft.Control = SortAlphabeticallySpeedButton
-      AnchorSideLeft.Side = asrBottom
-      AnchorSideTop.Control = SortAlphabeticallySpeedButton
-      AnchorSideTop.Side = asrCenter
-      Left = 22
-      Height = 28
+      Left = 31
+      Height = 23
       Top = 0
-      Width = 349
+      Width = 335
       ButtonWidth = 23
       NumGlyphs = 1
-      Anchors = [akTop, akLeft, akRight]
+      Align = alClient
       BorderSpacing.Left = 6
-      BorderSpacing.Top = 6
-      BorderSpacing.Bottom = 6
       MaxLength = 0
       ParentFont = False
       TabOrder = 0
@@ -103,7 +97,7 @@ object ViewUnitDialog: TViewUnitDialog
   object ProgressBar1: TProgressBar
     Left = 6
     Height = 20
-    Top = 318
+    Top = 320
     Width = 366
     Align = alBottom
     BorderSpacing.Left = 6