forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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

This commit is contained in:
Basile Burg 2025-01-08 07:47:34 +01:00
parent be699bd9bc
commit 340c099fe9
2 changed files with 42 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
src/u_miniexplorer.lfm
View File

@ -84,26 +84,54 @@ inherited MiniExplorerWidget: TMiniExplorerWidget
ObjectTypes = [otFolders] ObjectTypes = [otFolders]
ShellListView = lstFiles ShellListView = lstFiles
end end
object lstFiles: TShellListView object Panel1: TPanel
Left = 0 Left = 0
Height = 162 Height = 162
Top = 224 Top = 224
Width = 527 Width = 527
Align = alClient Align = alClient
Caption = 'Panel1'
ClientHeight = 162
ClientWidth = 527
TabOrder = 2
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 Color = clDefault
DragMode = dmAutomatic DragMode = dmAutomatic
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
SortColumn = 0
SortType = stText SortType = stText
TabOrder = 2 TabOrder = 1
OnColumnClick = lstFilesColumnClick OnColumnClick = lstFilesColumnClick
OnDblClick = lstFilesDblClick OnDblClick = lstFilesDblClick
OnMouseMove = lstFilesMouseMove
OnFileAdded = lstFilesFileAdded OnFileAdded = lstFilesFileAdded
ObjectTypes = [otNonFolders, otHidden] ObjectTypes = [otNonFolders, otHidden]
ShellTreeView = treeFolders ShellTreeView = treeFolders
end end
end end
end end
end
inherited toolbar: TDexedToolBar inherited toolbar: TDexedToolBar
Width = 527 Width = 527
OnResize = toolbarResize OnResize = toolbarResize
@ -169,28 +197,12 @@ inherited MiniExplorerWidget: TMiniExplorerWidget
resourceName = 'GO_PREVIOUS' resourceName = 'GO_PREVIOUS'
scaledSeparator = False scaledSeparator = False
end 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 end
inherited contextMenu: TPopupMenu inherited contextMenu: TPopupMenu
Left = 40 Left = 40
Top = 48 Top = 48
end end
object mnuDrives: TPopupMenu[2] object mnuDrives: TPopupMenu[3]
Left = 8 Left = 8
Top = 48 Top = 48
end end

4
src/u_miniexplorer.pas
View File

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