paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-12 10:40:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

cody: dictionary

Browse Source 
git-svn-id: trunk@33658 -
This commit is contained in:
mattias 2011-11-20 23:25:15 +00:00
parent 5c84b3e84a
commit 4ab001d5dc
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/ide/codyregistration.pas
View File

@ -58,9 +58,7 @@ var
ViewCodyWindowCommand: TIDECommand; ViewCodyWindowCommand: TIDECommand;
CopyDeclarationToClipboardCommand: TIDECommand; CopyDeclarationToClipboardCommand: TIDECommand;
CutDeclarationToClipboardCommand: TIDECommand; CutDeclarationToClipboardCommand: TIDECommand;
{$IFDEF EnableCodyIdentifiers}
ShowIdentifierDictionaryCommand: TIDECommand; ShowIdentifierDictionaryCommand: TIDECommand;
{$ENDIF}
begin begin
CodyOptions:=TCodyMiscOptions.Create; CodyOptions:=TCodyMiscOptions.Create;
CodyOptions.LoadSafe; CodyOptions.LoadSafe;
@ -156,14 +154,12 @@ begin
crsShowCodeToolsNodeInfo, nil, nil, ShowCodeNodeInfoCommand); crsShowCodeToolsNodeInfo, nil, nil, ShowCodeNodeInfoCommand);
// Show unit / identifier dictionary // Show unit / identifier dictionary
{$IFDEF EnableCodyIdentifiers}
InitUnitDictionary; InitUnitDictionary;
ShowIdentifierDictionaryCommand:=RegisterIDECommand(CmdCatCodeTools, 'ShowUnitDictionary', ShowIdentifierDictionaryCommand:=RegisterIDECommand(CmdCatCodeTools, 'ShowUnitDictionary',
crsShowUnitIdentifierDictionary, crsShowUnitIdentifierDictionary,
CleanIDEShortCut,CleanIDEShortCut,nil,@ShowUnitDictionaryDialog); CleanIDEShortCut,CleanIDEShortCut,nil,@ShowUnitDictionaryDialog);
RegisterIDEMenuCommand(itmViewIDEInternalsWindows, 'ShowIdentifierDictionary', RegisterIDEMenuCommand(itmViewIDEInternalsWindows, 'ShowIdentifierDictionary',
crsShowUnitIdentifierDictionary, nil, nil, ShowIdentifierDictionaryCommand); crsShowUnitIdentifierDictionary, nil, nil, ShowIdentifierDictionaryCommand);
{$ENDIF}
// View menu - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - // View menu - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ViewCodyWindowCommand:=RegisterIDECommand(CmdCatView, 'Cody', ViewCodyWindowCommand:=RegisterIDECommand(CmdCatView, 'Cody',