mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Modern Form Style - Search Files Control for macOS 11+

Browse source
This commit is contained in:
rich2014 2024-09-10 23:03:55 +08:00
commit 378d3e829d
1 changed files with 22 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/platform/unix/darwin/ucocoamodernformconfig.pas
View file

@ -133,6 +133,11 @@ begin
frmMain.Commands.cm_Exchange([]);
end;
procedure searchFilesAction( const Sender: id );
begin
frmMain.Commands.cm_Search([]);
end;
const
treeViewItemConfig: TCocoaConfigToolBarItem = (
identifier: 'MainForm.TreeView';
@ -316,6 +321,17 @@ const
onAction: @swapPanelsAction;
);
searchFilesItemConfig: TCocoaConfigToolBarItem = (
identifier: 'MainForm.SearchFiles';
priority: NSToolbarItemVisibilityPriorityStandard;
navigational: False;
iconName: 'magnifyingglass';
title: 'Search';
tips: 'Search Files...';
bordered: True;
onAction: @searchFilesAction;
);
mainFormConfig: TCocoaConfigForm = (
name: 'frmMain';
className: '';
@ -354,7 +370,8 @@ const
'MainForm.Refresh',
'MainForm.MultiRename',
'MainForm.Terminal',
'MainForm.SwapPanels'
'MainForm.SwapPanels',
'MainForm.SearchFiles'
);
allowedItemsIdentifiers: (
'MainForm.TreeView',
@ -370,7 +387,8 @@ const
'MainForm.Refresh',
'MainForm.MultiRename',
'MainForm.Terminal',
'MainForm.SwapPanels'
'MainForm.SwapPanels',
'MainForm.SearchFiles'
);
itemCreator: nil; // default item Creator
);
@ -398,7 +416,8 @@ begin
TCocoaToolBarUtils.toClass(refreshItemConfig),
TCocoaToolBarUtils.toClass(multiRenameItemConfig),
TCocoaToolBarUtils.toClass(terminalItemConfig),
TCocoaToolBarUtils.toClass(swapPanelsItemConfig)
TCocoaToolBarUtils.toClass(swapPanelsItemConfig),
TCocoaToolBarUtils.toClass(searchFilesItemConfig)
];
CocoaConfigForms:= [ mainFormConfig ];