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

cody: moved unit dictionary menu item to src edit

Browse Source 
git-svn-id: trunk@33700 -
This commit is contained in:
mattias 2011-11-22 21:15:14 +00:00
parent ae01fefa3a
commit 0380dd7344
2 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/ide/codyidentifiersdlg.pas
View File

@ -344,7 +344,7 @@ end;
function TCodyUnitDictionary.GetFilename: string;
begin
Result:=AppendPathDelim(LazarusIDE.GetPrimaryConfigPath)+'codyunitdictionary.gz';
Result:=AppendPathDelim(LazarusIDE.GetPrimaryConfigPath)+'codyunitdictionary.txt';
end;
function TCodyUnitDictionary.StartLoadSaveThread: boolean;

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

@ -77,6 +77,15 @@ begin
raise Exception.Create('cody: command category '+CommandCategoryViewName+' not found');
// Project menu - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// show ppu list of project
PPUListCommand:=RegisterIDECommand(CmdCatProjectMenu, 'ShowPPUList',
crsShowUsedPpuFiles,
CleanIDEShortCut,CleanIDEShortCut,nil,@ShowPPUList);
RegisterIDEMenuCommand(itmProjectWindowSection,'PPUList',crsShowUsedPpuFiles,
nil,nil,PPUListCommand);
// Source menu - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// insert file at cursor
@ -86,13 +95,6 @@ begin
RegisterIDEMenuCommand(SrcEditSubMenuSource,'InsertFileAtCursor',
crsInsertFileAtCursor,nil,nil,InsertFileAtCursorCommand);
// show ppu list of project
PPUListCommand:=RegisterIDECommand(CmdCatProjectMenu, 'ShowPPUList',
crsShowUsedPpuFiles,
CleanIDEShortCut,CleanIDEShortCut,nil,@ShowPPUList);
RegisterIDEMenuCommand(itmProjectWindowSection,'PPUList',crsShowUsedPpuFiles,
nil,nil,PPUListCommand);
// add call inherited
AddCallInheritedCommand:=RegisterIDECommand(CmdCatCodeTools, 'AddCallInherited',
crsAddCallInherited,
@ -107,6 +109,14 @@ begin
RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'DeclareVariable',
crsDeclareVariable2, nil, nil, DeclareVariableCommand);
// Show unit / identifier dictionary
InitUnitDictionary;
ShowIdentifierDictionaryCommand:=RegisterIDECommand(CmdCatCodeTools, 'ShowUnitDictionary',
crsShowUnitIdentifierDictionary,
CleanIDEShortCut,CleanIDEShortCut,nil,@ShowUnitDictionaryDialog);
RegisterIDEMenuCommand(SrcEditSubMenuSource, 'ShowIdentifierDictionary',
crsShowUnitIdentifierDictionary, nil, nil, ShowIdentifierDictionaryCommand);
// Refactor menu - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
@ -153,14 +163,6 @@ begin
RegisterIDEMenuCommand(itmViewIDEInternalsWindows, 'ShowCodeNodeInfo',
crsShowCodeToolsNodeInfo, nil, nil, ShowCodeNodeInfoCommand);
// Show unit / identifier dictionary
InitUnitDictionary;
ShowIdentifierDictionaryCommand:=RegisterIDECommand(CmdCatCodeTools, 'ShowUnitDictionary',
crsShowUnitIdentifierDictionary,
CleanIDEShortCut,CleanIDEShortCut,nil,@ShowUnitDictionaryDialog);
RegisterIDEMenuCommand(itmViewIDEInternalsWindows, 'ShowIdentifierDictionary',
crsShowUnitIdentifierDictionary, nil, nil, ShowIdentifierDictionaryCommand);
// View menu - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ViewCodyWindowCommand:=RegisterIDECommand(CmdCatView, 'Cody',
'Cody', CleanIDEShortCut, CleanIDEShortCut, nil, @ShowCodyWindow);
@ -170,7 +172,6 @@ begin
.Visible:=false
{$ENDIF};
// Components - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
TVIconRes:=LazarusResources.Find('TTreeView');
LazarusResources.Add(TCodyTreeView.ClassName,TVIconRes.ValueType,TVIconRes.Value);
@ -180,7 +181,7 @@ begin
CodyWindowCreator:=IDEWindowCreators.Add(CodyWindowName,@CreateCodyWindow,nil,
'80%','50%','+18%','+25%','CodeExplorer',alBottom);
// Options
// Options - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
CodyMiscOptionID:=RegisterIDEOptionsEditor(GroupCodetools,
TCodyMiscOptionsFrame,CodyMiscOptionID)^.Index;
CodyOptions.Apply;