From df594a122f5b3f81015fbf347f19a123567d5d7b Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Fri, 1 Dec 2006 21:00:09 +0000
Subject: [PATCH] IDE: added Find in files to the Find context menu in the
 source editor (bug #7683)

git-svn-id: trunk@10274 -
---
 ide/uniteditor.pp | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/ide/uniteditor.pp b/ide/uniteditor.pp
index e750690622..fa62f6b76a 100644
--- a/ide/uniteditor.pp
+++ b/ide/uniteditor.pp
@@ -429,6 +429,7 @@ type
     procedure ProcedureJumpClicked(Sender: TObject);
     procedure FindNextWordOccurrenceClicked(Sender: TObject);
     procedure FindPrevWordOccurrenceClicked(Sender: TObject);
+    procedure FindInFilesClicked(Sender: TObject);
     procedure MoveEditorLeftClicked(Sender: TObject);
     procedure MoveEditorRightClicked(Sender: TObject);
     procedure NotebookPageChanged(Sender: TObject);
@@ -790,6 +791,7 @@ var
     SrcEditMenuProcedureJump: TIDEMenuCommand;
     SrcEditMenuFindNextWordOccurrence: TIDEMenuCommand;
     SrcEditMenuFindPrevWordOccurrence: TIDEMenuCommand;
+    SrcEditMenuFindinFiles: TIDEMenuCommand;
   SrcEditMenuOpenFileAtCursor: TIDEMenuCommand;
   SrcEditMenuClosePage: TIDEMenuCommand;
   SrcEditMenuCut: TIDEMenuCommand;
@@ -867,7 +869,9 @@ begin
                       'Find next word occurrence',srkmecFindNextWordOccurrence);
       SrcEditMenuFindPrevWordOccurrence:=RegisterIDEMenuCommand(AParent,
                   'Find previous word occurrence',srkmecFindPrevWordOccurrence);
-    
+      SrcEditMenuFindInFiles:=RegisterIDEMenuCommand(AParent,
+                  'Find in files',srkmecFindInFiles);
+
     AParent:=SrcEditMenuSectionFirstStatic;
     SrcEditMenuOpenFileAtCursor:=RegisterIDEMenuCommand(AParent,
                                      'Open File At Cursor',uemOpenFileAtCursor);
@@ -3763,6 +3767,7 @@ begin
   SrcEditMenuProcedureJump.OnClick:=@ProcedureJumpClicked;
   SrcEditMenuFindNextWordOccurrence.OnClick:=@FindNextWordOccurrenceClicked;
   SrcEditMenuFindPrevWordOccurrence.OnClick:=@FindPrevWordOccurrenceClicked;
+  SrcEditMenuFindinFiles.OnClick:=@FindInFilesClicked;
   SrcEditMenuOpenFileAtCursor.OnClick:=@OpenAtCursorClicked;
 
   SrcEditMenuClosePage.OnClick:=@CloseClicked;
@@ -4696,6 +4701,15 @@ begin
     SrcEdit.FindNextWordOccurrence(false);
 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);
 var ActSE: TSourceEditor;
 begin