paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-29 20:43:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

cody: add menu item sot main bar

Browse Source 
git-svn-id: trunk@33999 -
This commit is contained in:
mattias 2011-12-06 14:32:41 +00:00
parent 24e376bd7c
commit 3ff96b88b1
1 changed files with 27 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -92,21 +92,27 @@ begin
InsertFileAtCursorCommand:=RegisterIDECommand(CmdCatFileMenu, InsertFileAtCursorCommand:=RegisterIDECommand(CmdCatFileMenu,
'InsertFileAtCursor',crsInsertFileAtCursor, 'InsertFileAtCursor',crsInsertFileAtCursor,
CleanIDEShortCut,CleanIDEShortCut,nil,@InsertFileAtCursor); CleanIDEShortCut,CleanIDEShortCut,nil,@InsertFileAtCursor);
RegisterIDEMenuCommand(SrcEditSubMenuSource,'InsertFileAtCursor', RegisterIDEMenuCommand(SrcEditSubMenuSource,'SrcEditInsertFileAtCursor',
crsInsertFileAtCursor,nil,nil,InsertFileAtCursorCommand);
RegisterIDEMenuCommand(itmSourceInsertions,'InsertFileAtCursor',
crsInsertFileAtCursor,nil,nil,InsertFileAtCursorCommand); crsInsertFileAtCursor,nil,nil,InsertFileAtCursorCommand);
// add call inherited // add call inherited
AddCallInheritedCommand:=RegisterIDECommand(CmdCatCodeTools, 'AddCallInherited', AddCallInheritedCommand:=RegisterIDECommand(CmdCatCodeTools, 'AddCallInherited',
crsAddCallInherited, crsAddCallInherited,
CleanIDEShortCut,CleanIDEShortCut,nil,@AddCallInherited); CleanIDEShortCut,CleanIDEShortCut,nil,@AddCallInherited);
RegisterIDEMenuCommand(SrcEditSubMenuSource, 'AddCallInherited', RegisterIDEMenuCommand(SrcEditSubMenuSource, 'SrcEditAddCallInherited',
crsAddCallInherited, nil, nil, AddCallInheritedCommand);
RegisterIDEMenuCommand(itmSourceInsertions, 'AddCallInherited',
crsAddCallInherited, nil, nil, AddCallInheritedCommand); crsAddCallInherited, nil, nil, AddCallInheritedCommand);
// declare variable // declare variable
DeclareVariableCommand:=RegisterIDECommand(CmdCatCodeTools, 'DeclareVariable', DeclareVariableCommand:=RegisterIDECommand(CmdCatCodeTools, 'DeclareVariable',
crsDeclareVariable, crsDeclareVariable,
CleanIDEShortCut,CleanIDEShortCut,nil,@ShowDeclareVariableDialog); CleanIDEShortCut,CleanIDEShortCut,nil,@ShowDeclareVariableDialog);
RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'DeclareVariable', RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'SrcEditDeclareVariable',
crsDeclareVariable2, nil, nil, DeclareVariableCommand);
RegisterIDEMenuCommand(itmRefactorCodeTools, 'DeclareVariable',
crsDeclareVariable2, nil, nil, DeclareVariableCommand); crsDeclareVariable2, nil, nil, DeclareVariableCommand);
// Show unit / identifier dictionary // Show unit / identifier dictionary
@ -114,7 +120,9 @@ begin
ShowIdentifierDictionaryCommand:=RegisterIDECommand(CmdCatCodeTools, 'ShowUnitDictionary', ShowIdentifierDictionaryCommand:=RegisterIDECommand(CmdCatCodeTools, 'ShowUnitDictionary',
crsShowUnitIdentifierDictionary, crsShowUnitIdentifierDictionary,
CleanIDEShortCut,CleanIDEShortCut,nil,@ShowUnitDictionaryDialog); CleanIDEShortCut,CleanIDEShortCut,nil,@ShowUnitDictionaryDialog);
RegisterIDEMenuCommand(SrcEditSubMenuSource, 'ShowIdentifierDictionary', RegisterIDEMenuCommand(SrcEditSubMenuSource, 'SrcEditShowIdentifierDictionary',
crsShowUnitIdentifierDictionary, nil, nil, ShowIdentifierDictionaryCommand);
RegisterIDEMenuCommand(itmSourceInsertions, 'ShowIdentifierDictionary',
crsShowUnitIdentifierDictionary, nil, nil, ShowIdentifierDictionaryCommand); crsShowUnitIdentifierDictionary, nil, nil, ShowIdentifierDictionaryCommand);
@ -124,34 +132,44 @@ begin
AddAssignMethodCommand:=RegisterIDECommand(CmdCatCodeTools, 'AddAssignMethod', AddAssignMethodCommand:=RegisterIDECommand(CmdCatCodeTools, 'AddAssignMethod',
crsAddAssignMethod, crsAddAssignMethod,
CleanIDEShortCut,CleanIDEShortCut,nil,@ShowAddAssignMethodDialog); CleanIDEShortCut,CleanIDEShortCut,nil,@ShowAddAssignMethodDialog);
RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'AddAssignMethod', RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'SrcEditAddAssignMethod',
crsAddAssignMethod2,nil,nil,AddAssignMethodCommand);
RegisterIDEMenuCommand(itmRefactorAdvanced, 'AddAssignMethod',
crsAddAssignMethod2,nil,nil,AddAssignMethodCommand); crsAddAssignMethod2,nil,nil,AddAssignMethodCommand);
// Copy declaration to clipboard // Copy declaration to clipboard
CopyDeclarationToClipboardCommand:=RegisterIDECommand(CmdCatCodeTools, CopyDeclarationToClipboardCommand:=RegisterIDECommand(CmdCatCodeTools,
'CopyDeclarationToClipboard', crsCopyDeclarationToClipboard, 'CopyDeclarationToClipboard', crsCopyDeclarationToClipboard,
CleanIDEShortCut,CleanIDEShortCut,nil,@CopyDeclarationToClipboard); CleanIDEShortCut,CleanIDEShortCut,nil,@CopyDeclarationToClipboard);
RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'CopyDeclarationToClipboard', RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'SrcEditCopyDeclarationToClipboard',
crsCopyDeclarationToClipboard,nil,nil,CopyDeclarationToClipboardCommand){$IFNDEF EnableCodyExperiments}.Visible:=false{$ENDIF};
RegisterIDEMenuCommand(itmRefactorCodeTools, 'CopyDeclarationToClipboard',
crsCopyDeclarationToClipboard,nil,nil,CopyDeclarationToClipboardCommand){$IFNDEF EnableCodyExperiments}.Visible:=false{$ENDIF}; crsCopyDeclarationToClipboard,nil,nil,CopyDeclarationToClipboardCommand){$IFNDEF EnableCodyExperiments}.Visible:=false{$ENDIF};
// Cut declaration to clipboard // Cut declaration to clipboard
CutDeclarationToClipboardCommand:=RegisterIDECommand(CmdCatCodeTools, CutDeclarationToClipboardCommand:=RegisterIDECommand(CmdCatCodeTools,
'CutDeclarationToClipboard', crsCutDeclarationToClipboard, 'CutDeclarationToClipboard', crsCutDeclarationToClipboard,
CleanIDEShortCut,CleanIDEShortCut,nil,@CutDeclarationToClipboard); CleanIDEShortCut,CleanIDEShortCut,nil,@CutDeclarationToClipboard);
RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'CutDeclarationToClipboard', RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'SrcEditCutDeclarationToClipboard',
crsCutDeclarationToClipboard,nil,nil,CutDeclarationToClipboardCommand){$IFNDEF EnableCodyExperiments}.Visible:=false{$ENDIF};
RegisterIDEMenuCommand(itmRefactorCodeTools, 'CutDeclarationToClipboard',
crsCutDeclarationToClipboard,nil,nil,CutDeclarationToClipboardCommand){$IFNDEF EnableCodyExperiments}.Visible:=false{$ENDIF}; crsCutDeclarationToClipboard,nil,nil,CutDeclarationToClipboardCommand){$IFNDEF EnableCodyExperiments}.Visible:=false{$ENDIF};
// explode a With block // explode a With block
ExplodeAWithBlockCommand:=RegisterIDECommand(CmdCatCodeTools, 'ExplodeAWithBlock', ExplodeAWithBlockCommand:=RegisterIDECommand(CmdCatCodeTools, 'ExplodeAWithBlock',
crsExplodeAWithBlock, crsExplodeAWithBlock,
CleanIDEShortCut,CleanIDEShortCut,nil,@ExplodeAWithBlockCmd); CleanIDEShortCut,CleanIDEShortCut,nil,@ExplodeAWithBlockCmd);
RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'ExplodeAWithBlock', RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'SrcEditExplodeAWithBlock',
crsExplodeAWithBlock, nil, nil, ExplodeAWithBlockCommand);
RegisterIDEMenuCommand(itmRefactorAdvanced, 'ExplodeAWithBlock',
crsExplodeAWithBlock, nil, nil, ExplodeAWithBlockCommand); crsExplodeAWithBlock, nil, nil, ExplodeAWithBlockCommand);
// add a With block // add a With block
AddAWithBlockCommand:=RegisterIDECommand(CmdCatCodeTools, 'AddAWithBlock', AddAWithBlockCommand:=RegisterIDECommand(CmdCatCodeTools, 'AddAWithBlock',
crsAddAWithBlock, crsAddAWithBlock,
CleanIDEShortCut,CleanIDEShortCut,nil,@ShowAddWithBlockDialog); CleanIDEShortCut,CleanIDEShortCut,nil,@ShowAddWithBlockDialog);
RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'AddAWithBlock', RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'SrcEditAddAWithBlock',
crsAddAWithBlock, nil, nil, AddAWithBlockCommand);
RegisterIDEMenuCommand(itmRefactorAdvanced, 'AddAWithBlock',
crsAddAWithBlock, nil, nil, AddAWithBlockCommand); crsAddAWithBlock, nil, nil, AddAWithBlockCommand);
// IDE internals menu - - - - - - - - - - - - - - - - - - - - - - - - - - - - // IDE internals menu - - - - - - - - - - - - - - - - - - - - - - - - - - - -