From 53be7564f4e16f5995e043260e24d9529ae98566 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Mon, 7 Aug 2000 19:15:05 +0000
Subject: [PATCH] Added the Search menu to the IDE. Shane

git-svn-id: trunk@22 -
---
 ide/main.pp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/ide/main.pp b/ide/main.pp
index c81ab570f5..06fdd0858d 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -66,6 +66,7 @@ type
 
     mnuFile: TMenuItem;
     mnuEdit: TMenuItem; 
+    mnuSearch: TMenuItem;
     mnuView: TMenuItem; 
     mnuProject: TMenuItem; 
     mnuEnvironment:TMenuItem;
@@ -92,6 +93,7 @@ type
     itmEditCut: TMenuItem; 
     itmEditCopy: TMenuItem; 
     itmEditPaste: TMenuItem; 
+    itmSearchfind: TMenuItem;
     itmViewInspector: TMenuItem; 
     itmViewProject: TMenuItem; 
     itmViewProjectOptions: TMenuItem;
@@ -682,6 +684,9 @@ begin
   mnuEdit.Caption := '&Edit';
   mnuMain.Items.Add(mnuEdit);
 
+  mnuSearch := TMenuItem.Create(Self);
+  mnuSearch.Caption := '&Search';
+  mnuMain.Items.Add(mnuSearch);
 
   mnuView := TMenuItem.Create(Self);
   mnuView.Caption := '&View';
@@ -773,6 +778,13 @@ itmFileNew := TMenuItem.Create(Self);
   mnuEdit.Add(itmEditPaste);
 
 
+//--------------
+// Search
+//--------------
+  itmSearchFind := TMenuItem.Create(nil);
+  itmSearchFind.caption := 'Find';
+  mnuSearch.add(itmSearchFind);
+
 //--------------
 // View
 //--------------
@@ -2168,6 +2180,10 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.2  2000/08/07 19:15:05  lazarus
+  Added the Search menu to the IDE.
+  Shane
+
   Revision 1.1  2000/07/13 10:27:47  michael
   + Initial import