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

Browse source
This commit is contained in:
rich2014 2024-09-09 00:31:46 +08:00
commit a2f339fb24
1 changed files with 24 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -52,6 +52,11 @@ begin
itemGroupWrapper.lclSetSelectedIndex( 2 );
end;
function onGetSharingItems( item: NSToolBarItem ): TStringArray;
begin
Result:= frmMain.NSServiceMenuGetFilenames()
end;
const
treeViewItemConfig: TCocoaConfigToolBarItem = (
identifier: 'MainForm.TreeView';
@ -119,6 +124,18 @@ const
);
);
shareItemConfig: TCocoaConfigToolBarItemSharing = (
identifier: 'MainForm.Share';
priority: NSToolbarItemVisibilityPriorityUser;
iconName: '';
title: 'Share';
tips: 'Share...';
bordered: True;
onGetItems: @onGetSharingItems;
);
mainFormConfig: TCocoaConfigForm = (
name: 'frmMain';
className: '';
@ -144,13 +161,16 @@ const
'MainForm.HorzSplit',
'MainForm.ShowMode',
'NSToolbarFlexibleSpaceItem'
'NSToolbarFlexibleSpaceItem',
'MainForm.Share'
);
allowedItemsIdentifiers: (
'MainForm.TreeView',
'MainForm.HorzSplit',
'MainForm.ShowMode'
'MainForm.ShowMode',
'MainForm.Share'
);
itemCreator: nil; // default item Creator
);
@ -168,7 +188,8 @@ begin
TCocoaToolBarUtils.toClass(treeViewItemConfig),
TCocoaToolBarUtils.toClass(horzSplitItemConfig),
TCocoaToolBarUtils.toClass(showModeItemConfig)
TCocoaToolBarUtils.toClass(showModeItemConfig),
TCocoaToolBarUtils.toClass(shareItemConfig)
];
CocoaConfigForms:= [ mainFormConfig ];