From a96ccdfdb2510eb330cc4c438b30b0643b9c4e3e Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 18 Mar 2010 22:28:45 +0000
Subject: [PATCH] Fix wrong enabled/disabled status of "Clear filter" menu
 item.

---
 source/main.dfm |  2 +-
 source/main.pas | 10 +++-------
 2 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/source/main.dfm b/source/main.dfm
index b173933f..b340f20a 100644
--- a/source/main.dfm
+++ b/source/main.dfm
@@ -1182,7 +1182,7 @@ object MainForm: TMainForm
               ScrollBars = ssVertical
               WantTabs = True
               WordWrap = True
-              OnChange = SynMemoFilterChange
+              OnStatusChange = SynMemoFilterStatusChange
               RemovedKeystrokes = <
                 item
                   Command = ecDeleteLine
diff --git a/source/main.pas b/source/main.pas
index b2bb4117..2b8611ba 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -659,7 +659,7 @@ type
     procedure menuEditVariableClick(Sender: TObject);
     procedure menuTreeCollapseAllClick(Sender: TObject);
     procedure menuTreeExpandAllClick(Sender: TObject);
-    procedure SynMemoFilterChange(Sender: TObject);
+    procedure SynMemoFilterStatusChange(Sender: TObject; Changes: TSynStatusChanges);
     procedure DataGridAfterCellPaint(Sender: TBaseVirtualTree;
       TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
       CellRect: TRect);
@@ -6844,16 +6844,12 @@ begin
   SynMemoFilter.UndoList.AddGroupBreak;
   SynMemoFilter.SelectAll;
   SynMemoFilter.SelText := Clause;
-  SynMemoFilterChange(Sender);
 end;
 
 
-procedure TMainForm.SynMemoFilterChange(Sender: TObject);
-var
-  SomeText: Boolean;
+procedure TMainForm.SynMemoFilterStatusChange(Sender: TObject; Changes: TSynStatusChanges);
 begin
-  SomeText := (SynMemoFilter.GetTextLen > 0) or (editFilterSearch.Text <> '');
-  actClearFilterEditor.Enabled := SomeText;
+  actClearFilterEditor.Enabled := (Sender as TSynMemo).GetTextLen > 0;
 end;