paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 09:17:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE/Cocoa: add Ctrl+Command+F ShortCut for 'Search Instantly'

Browse Source
This commit is contained in:
rich2014 2024-09-12 23:23:44 +08:00
parent 86a3eccf08
commit be1b06eadc
1 changed files with 57 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
ide/cocoaideformconfig.inc
View File

@ -5,9 +5,9 @@ interface
uses
Classes, SysUtils,
Forms,
Forms, Menus,
SourceEditor, SynEditTypes,
CocoaAll, CocoaConfig, CocoaToolBar, Cocoa_Extra, CocoaUtils;
CocoaAll, CocoaConfig, CocoaToolBar, Cocoa_Extra;
implementation
@ -16,6 +16,7 @@ type
private
searchingString: String;
procedure doFindNext(Data: PtrInt);
procedure doFocusSearchField( Sender: TObject );
end;
var
@ -30,7 +31,23 @@ begin
self.searchingString:= '';
end;
procedure searchHandle( const Sender: id );
procedure TCocoaIDEMainFormHandler.doFocusSearchField(Sender: TObject);
var
lclForm: TCustomForm;
cocoaItem: NSToolbarItem;
cocoaWindow: NSWindow;
begin
lclForm:= Screen.ActiveCustomForm;
cocoaItem:= TCocoaToolBarUtils.findItemByIdentifier( lclForm, 'MainIDE.Search' );
if NOT Assigned(cocoaItem) then
Exit;
cocoaWindow:= NSView(lclForm.Handle).window;
if NOT Assigned(cocoaWindow) then
Exit;
cocoaWindow.makeFirstResponder( TCocoaToolBarItemSearch(cocoaItem).searchField );
end;
procedure searchAction( const Sender: id );
var
searchField: NSSearchField absolute Sender;
begin
@ -51,6 +68,24 @@ begin
SourceEditorManager.JumpForwardClicked( nil );
end;
function onGetCommandMenu: TMenuItem;
var
menu: TMenuItem;
function createSearchMenuItem: TMenuItem;
begin
Result:= TMenuItem.Create( menu );
Result.Caption:= 'Search Instantly';
Result.OnClick:= @IDEMainFormHandler.doFocusSearchField;
Result.ShortCut:= ShortCut( Word('F'), [ssCtrl, ssMeta] );
end;
begin
menu:= TMenuItem.Create( nil );
menu.Add( createSearchMenuItem );
Result:= menu;
end;
const
backItemConfig: TCocoaConfigToolBarItem = (
@ -75,6 +110,19 @@ const
onAction: @jumpForwardAction;
);
commandItemConfig: TCocoaConfigToolBarItemMenu = (
identifier: 'MainIDE.Command';
iconName: 'ellipsis.circle';
title: 'Command';
tips: '';
bordered: True;
onAction: nil;
showsIndicator: False;
menu: nil;
onGetMenu: @onGetCommandMenu;
);
searchItemConfig: TCocoaConfigToolBarItemSearch = (
identifier: 'MainIDE.Search';
priority: NSToolbarItemVisibilityPriorityLow;
@ -82,7 +130,7 @@ const
title: 'Search';
tips: 'Search Instantly';
bordered: True;
onAction: @searchHandle;
onAction: @searchAction;
sendWhole: False;
sendImmediately: False;
@ -115,12 +163,14 @@ const
defaultItemsIdentifiers: (
'MainIDE.Back',
'MainIDE.Forward',
'MainIDE.Search'
'MainIDE.Search',
'MainIDE.Command'
);
allowedItemsIdentifiers: (
'MainIDE.Back',
'MainIDE.Forward',
'MainIDE.Search'
'MainIDE.Search',
'MainIDE.Command'
);
itemCreator: nil; // default item Creator
);
@ -131,6 +181,7 @@ begin
mainIDEFormConfig.toolBar.items:= [
TCocoaToolBarUtils.toClass(backItemConfig),
TCocoaToolBarUtils.toClass(forwardItemConfig),
TCocoaToolBarUtils.toClass(commandItemConfig),
TCocoaToolBarUtils.toClass(searchItemConfig)
];