From 465472c017531b98984dca94022ee5ef25a0baef Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Wed, 31 Aug 2011 18:52:18 +0200
Subject: ide: after a search, set the focus back to the editor widget.

---
 examples/apps/ide/src/frm_main.pas | 1 +
 1 file changed, 1 insertion(+)

(limited to 'examples/apps')

diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas
index 266da2fc..177ab181 100644
--- a/examples/apps/ide/src/frm_main.pas
+++ b/examples/apps/ide/src/frm_main.pas
@@ -213,6 +213,7 @@ begin
     exit;
   edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]);
   edt.FindText(s, lFindOptions, lBackward);
+  edt.SetFocus;
 end;
 
 procedure TMainForm.miSearchProcedureList(Sender: TObject);
-- 
cgit v1.2.3-70-g09d2