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 - Backward/Forward button for macOS 11+

Browse source 
(cherry picked from commit 6208c4a832)
This commit is contained in:
rich2014 2026-01-05 18:07:32 +08:00 • committed by Alexander Koblov
commit 7c249235e7
1 changed files with 40 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

40
src/platform/unix/darwin/ucocoamodernformconfig.inc
View file

@ -33,6 +33,16 @@ begin
frmMain.Commands.cm_Exchange([]);
end;
procedure goBackwardAction( const Sender: id );
begin
frmMain.Commands.cm_ViewHistoryPrev([]);
end;
procedure goForwardAction( const Sender: id );
begin
frmMain.Commands.cm_ViewHistoryNext([]);
end;
procedure showModeAction( const Sender: id );
var
showModeItem: NSToolBarItemGroup absolute Sender;
@ -438,6 +448,28 @@ const
);
goBackwardItemConfig: TCocoaConfigToolBarItem = (
identifier: 'MainForm.GoBackward';
priority: NSToolbarItemVisibilityPriorityStandard;
navigational: False;
iconName: 'chevron.backward';
title: 'Backward';
tips: 'Backward';
bordered: True;
onAction: @goBackwardAction;
);
goForwardItemConfig: TCocoaConfigToolBarItem = (
identifier: 'MainForm.GoForward';
priority: NSToolbarItemVisibilityPriorityStandard;
navigational: False;
iconName: 'chevron.forward';
title: 'Forward';
tips: 'Forward';
bordered: True;
onAction: @goForwardAction;
);
iCloudItemConfig: TCocoaConfigToolBarItem = (
identifier: 'MainForm.iCloud';
priority: NSToolbarItemVisibilityPriorityStandard;
@ -706,6 +738,10 @@ const
'MainForm.HorzSplit',
'MainForm.SwapPanels',
'MainForm.GoBackward',
'MainForm.GoForward',
'NSToolbarFlexibleSpaceItem',
'MainForm.iCloud',
'MainForm.network',
'NSToolbarFlexibleSpaceItem',
@ -733,6 +769,8 @@ const
'MainForm.TreeView',
'MainForm.HorzSplit',
'MainForm.SwapPanels',
'MainForm.GoBackward',
'MainForm.GoForward',
'MainForm.iCloud',
'MainForm.network',
@ -771,6 +809,8 @@ begin
TCocoaToolBarUtils.toClass(treeViewItemConfig),
TCocoaToolBarUtils.toClass(horzSplitItemConfig),
TCocoaToolBarUtils.toClass(swapPanelsItemConfig),
TCocoaToolBarUtils.toClass(goBackwardItemConfig),
TCocoaToolBarUtils.toClass(goForwardItemConfig),
TCocoaToolBarUtils.toClass(showModeItemConfig),
TCocoaToolBarUtils.toClass(shareItemConfig),