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: add ShortCut String to tips for Backward/Forward button on macOS

Browse source
This commit is contained in:
rich2014 2026-01-05 18:07:49 +08:00
commit dd3d54ca31
1 changed files with 20 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -8,7 +8,7 @@ interface
uses
Classes, SysUtils,
LCLType, Forms, Menus,
fMain, uDCUtils, uLng,
fMain, uHotkeyManager, uGlobs, uLng, uDCUtils,
uFileView, uBriefFileView, uColumnsFileView, uThumbFileView,
uDarwinUtil, uDarwinApplication, uDarwinFile,
uDarwinFinder, uDarwinFinderModel, uDarwinFileView, uDarwinPanel,
@ -797,8 +797,27 @@ const
);
);
procedure addShortCutString( var item: TCocoaConfigToolBarItemWithAction; const command: String );
var
form: THMForm;
hotkey: THotKey;
begin
form:= HotMan.Forms.Find('Main');
if form = nil then
Exit;
hotkey:= form.Hotkeys.FindByCommand( command );
if hotkey = nil then
Exit;
item.tips:= item.tips + ' ( ' + hotkey.Shortcuts[0] + ' )';
end;
procedure doInitConfig;
begin
addShortCutString( goBackwardItemConfig, 'cm_ViewHistoryPrev' );
addShortCutString( goForwardItemConfig, 'cm_ViewHistoryNext' );
showModeItemConfig.subitems:= [
TCocoaToolBarUtils.toClass(showBriefItemConfig),
TCocoaToolBarUtils.toClass(showFullItemConfig),