paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-25 14:41:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: added Find in files to the Find context menu in the source editor (bug #7683)

Browse Source 
git-svn-id: trunk@10274 -
This commit is contained in:
vincents 2006-12-01 21:00:09 +00:00
parent f5483e721d
commit df594a122f
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/uniteditor.pp
View File

@ -429,6 +429,7 @@ type
procedure ProcedureJumpClicked(Sender: TObject); procedure ProcedureJumpClicked(Sender: TObject);
procedure FindNextWordOccurrenceClicked(Sender: TObject); procedure FindNextWordOccurrenceClicked(Sender: TObject);
procedure FindPrevWordOccurrenceClicked(Sender: TObject); procedure FindPrevWordOccurrenceClicked(Sender: TObject);
procedure FindInFilesClicked(Sender: TObject);
procedure MoveEditorLeftClicked(Sender: TObject); procedure MoveEditorLeftClicked(Sender: TObject);
procedure MoveEditorRightClicked(Sender: TObject); procedure MoveEditorRightClicked(Sender: TObject);
procedure NotebookPageChanged(Sender: TObject); procedure NotebookPageChanged(Sender: TObject);
@ -790,6 +791,7 @@ var
SrcEditMenuProcedureJump: TIDEMenuCommand; SrcEditMenuProcedureJump: TIDEMenuCommand;
SrcEditMenuFindNextWordOccurrence: TIDEMenuCommand; SrcEditMenuFindNextWordOccurrence: TIDEMenuCommand;
SrcEditMenuFindPrevWordOccurrence: TIDEMenuCommand; SrcEditMenuFindPrevWordOccurrence: TIDEMenuCommand;
SrcEditMenuFindinFiles: TIDEMenuCommand;
SrcEditMenuOpenFileAtCursor: TIDEMenuCommand; SrcEditMenuOpenFileAtCursor: TIDEMenuCommand;
SrcEditMenuClosePage: TIDEMenuCommand; SrcEditMenuClosePage: TIDEMenuCommand;
SrcEditMenuCut: TIDEMenuCommand; SrcEditMenuCut: TIDEMenuCommand;
@ -867,7 +869,9 @@ begin
'Find next word occurrence',srkmecFindNextWordOccurrence); 'Find next word occurrence',srkmecFindNextWordOccurrence);
SrcEditMenuFindPrevWordOccurrence:=RegisterIDEMenuCommand(AParent, SrcEditMenuFindPrevWordOccurrence:=RegisterIDEMenuCommand(AParent,
'Find previous word occurrence',srkmecFindPrevWordOccurrence); 'Find previous word occurrence',srkmecFindPrevWordOccurrence);
SrcEditMenuFindInFiles:=RegisterIDEMenuCommand(AParent,
'Find in files',srkmecFindInFiles);
AParent:=SrcEditMenuSectionFirstStatic; AParent:=SrcEditMenuSectionFirstStatic;
SrcEditMenuOpenFileAtCursor:=RegisterIDEMenuCommand(AParent, SrcEditMenuOpenFileAtCursor:=RegisterIDEMenuCommand(AParent,
'Open File At Cursor',uemOpenFileAtCursor); 'Open File At Cursor',uemOpenFileAtCursor);
@ -3763,6 +3767,7 @@ begin
SrcEditMenuProcedureJump.OnClick:=@ProcedureJumpClicked; SrcEditMenuProcedureJump.OnClick:=@ProcedureJumpClicked;
SrcEditMenuFindNextWordOccurrence.OnClick:=@FindNextWordOccurrenceClicked; SrcEditMenuFindNextWordOccurrence.OnClick:=@FindNextWordOccurrenceClicked;
SrcEditMenuFindPrevWordOccurrence.OnClick:=@FindPrevWordOccurrenceClicked; SrcEditMenuFindPrevWordOccurrence.OnClick:=@FindPrevWordOccurrenceClicked;
SrcEditMenuFindinFiles.OnClick:=@FindInFilesClicked;
SrcEditMenuOpenFileAtCursor.OnClick:=@OpenAtCursorClicked; SrcEditMenuOpenFileAtCursor.OnClick:=@OpenAtCursorClicked;
SrcEditMenuClosePage.OnClick:=@CloseClicked; SrcEditMenuClosePage.OnClick:=@CloseClicked;
@ -4696,6 +4701,15 @@ begin
SrcEdit.FindNextWordOccurrence(false); SrcEdit.FindNextWordOccurrence(false);
end; end;
procedure TSourceNotebook.FindInFilesClicked(Sender: TObject);
var
SrcEdit: TSourceEditor;
begin
SrcEdit := GetActiveSE;
if SrcEdit<>nil then
SrcEdit.DoEditorExecuteCommand(ecFindInFiles);
end;
Procedure TSourceNotebook.CutClicked(Sender: TObject); Procedure TSourceNotebook.CutClicked(Sender: TObject);
var ActSE: TSourceEditor; var ActSE: TSourceEditor;
begin begin