From 18dbc5693859ed8e56671b924ec7c7f451b88fe2 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sat, 16 May 2015 07:55:19 +0200
Subject: [PATCH] fix, search actions didn't update the button state

---
 src/ce_search.pas | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/ce_search.pas b/src/ce_search.pas
index 265846ff..998cc7c6 100644
--- a/src/ce_search.pas
+++ b/src/ce_search.pas
@@ -389,6 +389,7 @@ begin
   if Updating then exit;
   fToFind := cbToFind.Text;
   fHasSearched := false;
+  updateImperative;
 end;
 
 procedure TCESearchWidget.chkEnableRepChange(Sender: TObject);
@@ -402,18 +403,16 @@ begin
   if Updating then exit;
   fReplaceWth := cbReplaceWth.Text;
   fHasSearched := false;
+  updateImperative;
 end;
 
 procedure TCESearchWidget.updateImperative;
 begin
-  fActFindNext.Enabled := fDoc <> nil;
-  fActReplaceNext.Enabled := (fDoc <> nil) and (chkEnableRep.Checked);
-  fActReplaceAll.Enabled := (fDoc <> nil) and (chkEnableRep.Checked);
+  btnFind.Enabled := (fDoc <> nil) and (fToFind <> '');
+  btnReplace.Enabled := (fDoc <> nil) and (chkEnableRep.Checked) and (fToFind <> '');
+  btnReplaceAll.Enabled := btnReplace.Enabled;
   cbReplaceWth.Enabled := (fDoc <> nil) and (chkEnableRep.Checked);
   cbToFind.Enabled := fDoc <> nil;
-  //
-  cbToFind.Items.Assign(fSearchMru);
-  cbReplaceWth.Items.Assign(fReplaceMru);
 end;
 {$ENDREGION}