From 91c4e640786ef99e733e32f927b939bb30d498a1 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 21 Dec 2016 00:32:03 +0100
Subject: [PATCH] find, always set the focus on the text field

---
 src/ce_main.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index 44320a8c..56763a69 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -2392,18 +2392,21 @@ var
   win: TAnchorDockHostSite;
   str: string;
 begin
+  if fDoc.isNil then
+      exit;
   win := DockMaster.GetAnchorSite(fFindWidg);
-  if win.isNil then exit;
+  if win.isNil then
+    exit;
   win.Show;
   win.BringToFront;
-  if fDoc.isNil then exit;
-  //
+
   if fDoc.SelAvail then
     str := fDoc.SelText
   else
     str := fDoc.Identifier;
   ffindwidg.cbToFind.Text := str;
   ffindwidg.cbToFindChange(nil);
+  ffindwidg.cbToFind.SetFocus;
 end;
 
 procedure TCEMainForm.actEdFindNextExecute(Sender: TObject);