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 - Terminal Control for macOS 11+

Browse source
This commit is contained in:
rich2014 2024-09-10 23:03:35 +08:00
commit d4268a4c84
1 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -123,6 +123,11 @@ begin
frmMain.Commands.cm_MultiRename([]);
end;
procedure terminalAction( const Sender: id );
begin
frmMain.Commands.cm_RunTerm([]);
end;
procedure swapPanelsAction( const Sender: id );
begin
frmMain.Commands.cm_Exchange([]);
@ -289,6 +294,17 @@ const
onAction: @multiRenameAction;
);
terminalItemConfig: TCocoaConfigToolBarItem = (
identifier: 'MainForm.Terminal';
priority: NSToolbarItemVisibilityPriorityStandard;
navigational: False;
iconName: 'terminal';
title: 'Terminal';
tips: 'Run Terminal';
bordered: True;
onAction: @terminalAction;
);
swapPanelsItemConfig: TCocoaConfigToolBarItem = (
identifier: 'MainForm.SwapPanels';
priority: NSToolbarItemVisibilityPriorityStandard;
@ -337,6 +353,7 @@ const
'NSToolbarFlexibleSpaceItem',
'MainForm.Refresh',
'MainForm.MultiRename',
'MainForm.Terminal',
'MainForm.SwapPanels'
);
allowedItemsIdentifiers: (
@ -352,6 +369,7 @@ const
'MainForm.Menu',
'MainForm.Refresh',
'MainForm.MultiRename',
'MainForm.Terminal',
'MainForm.SwapPanels'
);
itemCreator: nil; // default item Creator
@ -379,6 +397,7 @@ begin
TCocoaToolBarUtils.toClass(quickLookItemConfig),
TCocoaToolBarUtils.toClass(refreshItemConfig),
TCocoaToolBarUtils.toClass(multiRenameItemConfig),
TCocoaToolBarUtils.toClass(terminalItemConfig),
TCocoaToolBarUtils.toClass(swapPanelsItemConfig)
];