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

Browse source
This commit is contained in:
rich2014 2024-09-09 12:13:07 +08:00
commit cc0bb25644
1 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -73,6 +73,11 @@ begin
frmMain.Commands.cm_MultiRename([]);
end;
procedure refreshAction( const Sender: id );
begin
frmMain.Commands.cm_Refresh([]);
end;
const
treeViewItemConfig: TCocoaConfigToolBarItem = (
identifier: 'MainForm.TreeView';
@ -164,6 +169,17 @@ const
);
refreshItemConfig: TCocoaConfigToolBarItem = (
identifier: 'MainForm.Refresh';
priority: NSToolbarItemVisibilityPriorityStandard;
navigational: False;
iconName: 'arrow.clockwise';
title: 'Refresh';
tips: 'Refresh';
bordered: True;
onAction: @refreshAction;
);
multiRenameItemConfig: TCocoaConfigToolBarItem = (
identifier: 'MainForm.MultiRename';
priority: NSToolbarItemVisibilityPriorityStandard;
@ -175,7 +191,6 @@ const
onAction: @multiRenameAction;
);
swapPanelsItemConfig: TCocoaConfigToolBarItem = (
identifier: 'MainForm.SwapPanels';
priority: NSToolbarItemVisibilityPriorityStandard;
@ -216,6 +231,7 @@ const
'MainForm.Share',
'MainForm.AirDrop',
'NSToolbarFlexibleSpaceItem',
'MainForm.Refresh',
'MainForm.MultiRename',
'MainForm.SwapPanels'
);
@ -226,6 +242,7 @@ const
'MainForm.ShowMode',
'MainForm.Share',
'MainForm.AirDrop',
'MainForm.Refresh',
'MainForm.MultiRename',
'MainForm.SwapPanels'
);
@ -249,6 +266,7 @@ begin
TCocoaToolBarUtils.toClass(shareItemConfig),
TCocoaToolBarUtils.toClass(airdropItemConfig),
TCocoaToolBarUtils.toClass(swapPanelsItemConfig),
TCocoaToolBarUtils.toClass(refreshItemConfig),
TCocoaToolBarUtils.toClass(multiRenameItemConfig)
];