1 files changed, 15 insertions, 1 deletions
diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas
index b63745eb..0721431b 100644
--- a/examples/apps/ide/src/frm_main.pas
+++ b/examples/apps/ide/src/frm_main.pas
@@ -64,6 +64,7 @@ type
     procedure   btnOpenFileClicked(Sender: TObject);
     procedure   miFileSave(Sender: TObject);
     procedure   miFileSaveAs(Sender: TObject);
+    procedure   miFindClicked(Sender: TObject);
     procedure   miSearchProcedureList(Sender: TObject);
     procedure   miAboutFPGuiClicked(Sender: TObject);
     procedure   miAboutIDE(Sender: TObject);
@@ -122,6 +123,7 @@ uses
   ,frm_projectoptions
   ,frm_debug
   ,frm_procedurelist
+  ,frm_find
   ,fpg_basegrid
   ,ideconst
   ,idemacros
@@ -197,6 +199,18 @@ begin
     TfpgTextEdit(pcEditor.ActivePage.Components[0]).SaveToFile(s);
 end;
 
+procedure TMainForm.miFindClicked(Sender: TObject);
+var
+  s: TfpgString;
+  edt: TfpgTextEdit;
+begin
+  DisplayFindForm(s);
+  if s = '' then
+    exit;
+  edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]);
+  edt.FindText(s, [], False);
+end;
+
 procedure TMainForm.miSearchProcedureList(Sender: TObject);
 var
   s: TfpgString;
@@ -1209,7 +1223,7 @@ begin
   begin
     Name := 'mnuSearch';
     SetPosition(476, 98, 172, 20);
-    AddMenuItem('Find...', 'Ctrl+F', nil).Enabled := False;
+    AddMenuItem('Find...', 'Ctrl+F', @miFindClicked);
     AddMenuItem('Find Next', 'F3', nil).Enabled := False;
     AddMenuItem('Find Previous', 'Shift+F3', nil).Enabled := False;
     AddMenuItem('Find in Files...', 'Ctrl+Shift+F', nil).Enabled := False;