diff --git a/src/u_miniexplorer.lfm b/src/u_miniexplorer.lfm index 3ecd1488..62fbfe7c 100644 --- a/src/u_miniexplorer.lfm +++ b/src/u_miniexplorer.lfm @@ -21,7 +21,7 @@ inherited MiniExplorerWidget: TMiniExplorerWidget Top = 0 Width = 527 Align = alTop - Columns = < + Columns = < item Width = 525 end> @@ -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 diff --git a/src/u_miniexplorer.pas b/src/u_miniexplorer.pas index 0da141e5..ffce046f 100644 --- a/src/u_miniexplorer.pas +++ b/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;