paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 08:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

moved ProcedureList shortcut/command to the IDE key/menu tables from Graeme

Browse Source 
git-svn-id: trunk@9636 -
This commit is contained in:
mattias 2006-07-19 22:26:35 +00:00
parent 1ecaec575c
commit 5ba422890c
7 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/keymapping.pp
View File

@ -359,6 +359,8 @@ begin
ecJumpToPrevError: SetResult(VK_F8,[ssCtrl, ssShift],VK_UNKNOWN,[]);
ecJumpToNextError: SetResult(VK_F8,[ssCtrl],VK_UNKNOWN,[]);
ecOpenFileAtCursor: SetResult2(VK_RETURN,[ssCtrl],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecProcedureList: SetResult(VK_G, [ssCtrl,ssShift],VK_UNKNOWN,[]);
// marker
ecSetFreeBookmark: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
@ -1300,6 +1302,7 @@ begin
ecJumpToPrevError : Result:= lisMenuJumpToPrevError;
ecGotoIncludeDirective : Result:= srkmecGotoIncludeDirective;
ecOpenFileAtCursor : Result:= srkmecOpenFileAtCursor;
ecProcedureList : Result:= srkmecProcedureList;
// view menu
ecToggleFormUnit : Result:= srkmecToggleFormUnit;
@ -2154,6 +2157,7 @@ begin
AddDefault(C,'Jump to next error',ecJumpToNextError);
AddDefault(C,'Jump to previous error',ecJumpToPrevError);
AddDefault(C,'Open file at cursor',ecOpenFileAtCursor);
AddDefault(C,srkmecProcedureList,ecProcedureList);
// marker - without menu items in the IDE bar
C:=Categories[AddCategory('Marker',srkmCatMarker,IDECmdScopeSrcEdit)];

1
ide/lazarusidestrconsts.pas
View File

@ -1444,6 +1444,7 @@ resourcestring
srkmecAddJumpPoint = 'Add jump point';
srkmecOpenFileAtCursor = 'Open file at cursor';
srkmecGotoIncludeDirective = 'Go to to include directive of current include file';
srkmecProcedureList = 'Procedure List...';
// view menu
srkmecToggleFormUnit = 'Switch between form and unit';

10
ide/main.pp
View File

@ -208,6 +208,7 @@ type
procedure mnuFindDeclarationClicked(Sender: TObject);
procedure mnuOpenFileAtCursorClicked(Sender: TObject);
procedure mnuGotoIncludeDirectiveClicked(Sender: TObject);
procedure mnuSearchProcedureList(Sender: TObject);
// view menu
procedure mnuViewInspectorClicked(Sender: TObject);
@ -1983,6 +1984,7 @@ begin
itmSearchFindIdentifierRefs.OnClick:=@mnuSearchFindIdentifierRefsClicked;
itmSearchRenameIdentifier.OnClick:=@mnuSearchRenameIdentifierClicked;
itmGotoIncludeDirective.OnClick:=@mnuGotoIncludeDirectiveClicked;
itmSearchProcedureList.OnClick := @mnuSearchProcedureList;
end;
end;
@ -2254,6 +2256,11 @@ begin
DoGotoIncludeDirective;
end;
procedure TMainIDE.mnuSearchProcedureList(Sender: TObject);
begin
ProcedureList.ExecuteProcedureList(Sender);
end;
procedure TMainIDE.mnuSaveClicked(Sender: TObject);
begin
if SourceNoteBook.Notebook=nil then exit;
@ -2551,6 +2558,9 @@ begin
ecRemoveBreakPoint:
SourceNotebook.DeleteBreakpointClicked(Self);
ecProcedureList:
mnuSearchProcedureList(self);
else
Handled:=false;

1
ide/mainbar.pas
View File

@ -169,6 +169,7 @@ type
itmGotoIncludeDirective: TIDEMenuCommand;
itmSearchFindIdentifierRefs: TIDEMenuCommand;
itmSearchRenameIdentifier: TIDEMenuCommand;
itmSearchProcedureList: TIDEMenuCommand;
// view menu
//mnuView: TIDEMenuSection;

2
ide/mainbase.pas
View File

@ -511,6 +511,7 @@ begin
CreateMenuItem(ParentMI,itmGotoIncludeDirective,'itmGotoIncludeDirective',lisMenuGotoIncludeDirective);
CreateMenuItem(ParentMI,itmSearchFindIdentifierRefs,'itmSearchFindIdentifierRefs',lisMenuFindIdentifierRefs);
CreateMenuItem(ParentMI,itmSearchRenameIdentifier,'itmSearchRenameIdentifier',lisMenuRenameIdentifier);
CreateMenuItem(ParentMI,itmSearchProcedureList,'itmSearchProcedureList',srkmecProcedureList);
end;
end;
@ -859,6 +860,7 @@ begin
itmFindDeclaration.Command:=GetCommand(ecFindDeclaration);
itmOpenFileAtCursor.Command:=GetCommand(ecOpenFileAtCursor);
itmGotoIncludeDirective.Command:=GetCommand(ecGotoIncludeDirective);
itmSearchProcedureList.Command:=GetCommand(ecProcedureList);
// view menu
itmViewInspector.Command:=GetCommand(ecToggleObjectInsp);

6
ide/procedurelist.pas
View File

@ -100,8 +100,9 @@ type
end;
procedure Register;
procedure Register;
procedure ExecuteProcedureList(Sender: TObject);
implementation
@ -168,7 +169,7 @@ var
Key: TIDEShortCut;
Cat: TIDECommandCategory;
begin
Key := IDEShortCut(VK_G,[ssCtrl,ssShift],VK_UNKNOWN,[]);
{ Key := IDEShortCut(VK_G,[ssCtrl,ssShift],VK_UNKNOWN,[]);
Cat := IDECommandList.CreateCategory(Nil,
cProcedureList,
SProcedureListCaption,
@ -182,6 +183,7 @@ begin
cProcedureList,
SProcedureListCaption,
nil, nil, CmdProcedureList);
}
end;

1
ideintf/idecommands.pas
View File

@ -77,6 +77,7 @@ const
ecViewJumpHistory = ecFirstLazarus + 13;
ecJumpToNextError = ecFirstLazarus + 14;
ecJumpToPrevError = ecFirstLazarus + 15;
ecProcedureList = ecFirstLazarus + 16;
// search code
ecFindDeclaration = ecFirstLazarus + 20;