fix #138 - The filter of the mini-explorer is too small

src/u_miniexplorer.lfm

@@ -84,23 +84,51 @@ inherited MiniExplorerWidget: TMiniExplorerWidget
         ObjectTypes = [otFolders]
         ShellListView = lstFiles
       end
-      object lstFiles: TShellListView
+      object Panel1: TPanel
         Left = 0
         Height = 162
         Top = 224
         Width = 527
         Align = alClient
-        Color = clDefault
-        DragMode = dmAutomatic
-        ReadOnly = True
-        ScrollBars = ssAutoBoth
-        SortType = stText
+        Caption = 'Panel1'
+        ClientHeight = 162
+        ClientWidth = 527
         TabOrder = 2
-        OnColumnClick = lstFilesColumnClick
-        OnDblClick = lstFilesDblClick
-        OnFileAdded = lstFilesFileAdded
-        ObjectTypes = [otNonFolders, otHidden]
-        ShellTreeView = treeFolders
+        object lstFilter: TListViewFilterEdit
+          Left = 3
+          Height = 30
+          Top = 3
+          Width = 521
+          ButtonWidth = 23
+          Flat = True
+          Align = alTop
+          BorderSpacing.Around = 2
+          NumGlyphs = 1
+          MaxLength = 0
+          TabOrder = 0
+          OnButtonClick = lstFilterButtonClick
+          OnKeyUp = lstFilterKeyUp
+        end
+        object lstFiles: TShellListView
+          Left = 1
+          Height = 126
+          Top = 35
+          Width = 525
+          Align = alClient
+          Color = clDefault
+          DragMode = dmAutomatic
+          ReadOnly = True
+          ScrollBars = ssAutoBoth
+          SortColumn = 0
+          SortType = stText
+          TabOrder = 1
+          OnColumnClick = lstFilesColumnClick
+          OnDblClick = lstFilesDblClick
+          OnMouseMove = lstFilesMouseMove
+          OnFileAdded = lstFilesFileAdded
+          ObjectTypes = [otNonFolders, otHidden]
+          ShellTreeView = treeFolders
+        end
       end
     end
   end
@@ -169,28 +197,12 @@ inherited MiniExplorerWidget: TMiniExplorerWidget
       resourceName = 'GO_PREVIOUS'
       scaledSeparator = False
     end
-    object lstFilter: TListViewFilterEdit[6]
-      Left = 191
-      Height = 26
-      Top = 2
-      Width = 329
-      ButtonWidth = 23
-      Flat = True
-      Align = alClient
-      BorderSpacing.Left = 180
-      BorderSpacing.Around = 2
-      NumGlyphs = 1
-      MaxLength = 0
-      TabOrder = 0
-      OnButtonClick = lstFilterButtonClick
-      OnKeyUp = lstFilterKeyUp
-    end
   end
   inherited contextMenu: TPopupMenu
     Left = 40
     Top = 48
   end
-  object mnuDrives: TPopupMenu[2]
+  object mnuDrives: TPopupMenu[3]
     Left = 8
     Top = 48
   end

src/u_miniexplorer.pas

@@ -76,6 +76,7 @@ type
     btnShellOpen: TDexedToolButton;
     lstFilter: TListViewFilterEdit;
     lstFav: TListView;
+    Panel1: TPanel;
     Panel2: TPanel;
     lstFiles: TShellListView;
     mnuDrives: TPopupMenu;
@@ -357,8 +358,6 @@ begin
   lstFav.OnSelectItem := @lstFavSelect;
   lstFav.OnDblClick := @lstFavDblClick;
 
-  lstFilter.BorderSpacing.Left := ScaleX(182, 96);
-
   treeSetRoots;
 
   fname := getDocPath + OptsFname;
@@ -770,7 +769,6 @@ end;
 
 procedure TMiniExplorerWidget.toolbarResize(Sender: TObject);
 begin
-  lstFilter.Width := toolbar.Width - lstFilter.Left - lstFilter.BorderSpacing.Around;
 end;
 
 procedure TMiniExplorerWidget.shellOpenSelected;