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

70
src/u_miniexplorer.lfm
View File

@ -21,7 +21,7 @@ inherited MiniExplorerWidget: TMiniExplorerWidget
Top = 0 Top = 0
Width = 527 Width = 527
Align = alTop Align = alTop
Columns = < Columns = <
item item
Width = 525 Width = 525
end> end>
@ -84,23 +84,51 @@ 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
Color = clDefault Caption = 'Panel1'
DragMode = dmAutomatic ClientHeight = 162
ReadOnly = True ClientWidth = 527
ScrollBars = ssAutoBoth
SortType = stText
TabOrder = 2 TabOrder = 2
OnColumnClick = lstFilesColumnClick object lstFilter: TListViewFilterEdit
OnDblClick = lstFilesDblClick Left = 3
OnFileAdded = lstFilesFileAdded Height = 30
ObjectTypes = [otNonFolders, otHidden] Top = 3
ShellTreeView = treeFolders 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 end
end end
@ -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;