paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 05:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: codetools: register shortcut, issue #27094

Browse Source 
git-svn-id: trunk@46994 -
This commit is contained in:
mattias 2014-11-26 14:52:16 +00:00
parent e563b55f2c
commit 6c3808768e
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
examples/codetools/jumptoimplementation/codetoolsexample1.pas
View File

@ -27,7 +27,8 @@ interface
uses uses
Classes, SysUtils, MenuIntf, LazIDEIntf, Controls, SrcEditorIntf, Classes, SysUtils, MenuIntf, LazIDEIntf, Controls, SrcEditorIntf,
CodeToolManager, CodeTree, CodeCache, CodeAtom, CustomCodeTool; CodeToolManager, CodeTree, CodeCache, CustomCodeTool, IDECommands,
LCLType;
procedure JumpIDEToImplementationKeyword(Sender: TObject); procedure JumpIDEToImplementationKeyword(Sender: TObject);
@ -91,9 +92,18 @@ begin
end; end;
procedure Register; procedure Register;
var
Key: TIDEShortCut;
Cat: TIDECommandCategory;
CmdMyTool: TIDECommand;
begin begin
// register IDE shortcut and menu item
Key := IDEShortCut(VK_UNKNOWN,[],VK_UNKNOWN,[]);
Cat:=IDECommandList.FindCategoryByName(CommandCategoryCodeTools);
CmdMyTool := RegisterIDECommand(Cat,'JumpToImplementation', 'Jump to implementation keyword', Key, nil, @JumpIDEToImplementationKeyword);
RegisterIDEMenuCommand(itmCodeToolSearches,'JumpToImplementation', RegisterIDEMenuCommand(itmCodeToolSearches,'JumpToImplementation',
'Jump to implementation keyword',nil,@JumpIDEToImplementationKeyword); 'Jump to implementation keyword',nil,@JumpIDEToImplementationKeyword, CmdMyTool);
end; end;
end. end.