paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 08:28: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
Classes, SysUtils, MenuIntf, LazIDEIntf, Controls, SrcEditorIntf,
CodeToolManager, CodeTree, CodeCache, CodeAtom, CustomCodeTool;
CodeToolManager, CodeTree, CodeCache, CustomCodeTool, IDECommands,
LCLType;
procedure JumpIDEToImplementationKeyword(Sender: TObject);
@ -91,9 +92,18 @@ begin
end;
procedure Register;
var
Key: TIDEShortCut;
Cat: TIDECommandCategory;
CmdMyTool: TIDECommand;
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',
'Jump to implementation keyword',nil,@JumpIDEToImplementationKeyword);
'Jump to implementation keyword',nil,@JumpIDEToImplementationKeyword, CmdMyTool);
end;
end.