From f702096feafd697db6a33f574c4cf5a3ba9d3024 Mon Sep 17 00:00:00 2001
From: juha <juha.manninen62@gmail.com>
Date: Mon, 22 May 2017 22:08:12 +0300
Subject: [PATCH] LCL: Disconnect OnIdle handler of FilterEdit when the control
 is destroyed.

---
 lcl/editbtn.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lcl/editbtn.pas b/lcl/editbtn.pas
index 4401adcb..343b3173 100644
--- a/lcl/editbtn.pas
+++ b/lcl/editbtn.pas
@@ -221,6 +221,7 @@ type
       ItemData: Pointer): Boolean;
     function DoDefaultFilterItem(const ACaption, FilterLC: string;
       const ItemData: Pointer): Boolean; virtual;
+    procedure DestroyWnd; override;
     procedure EditKeyDown(var Key: Word; Shift: TShiftState); override;
     procedure EditChange; override;
     procedure ButtonClick; override;
@@ -1117,6 +1118,12 @@ begin
   Result := (FilterLC='') or (Pos(FilterLC,UTF8LowerCase(ACaption))>0);
 end;
 
+procedure TCustomControlFilterEdit.DestroyWnd;
+begin
+  IdleConnected:=false;
+  inherited DestroyWnd;
+end;
+
 function TCustomControlFilterEdit.DoFilterItem(const ACaption,
   FilterLC: string; ItemData: Pointer): Boolean;
 var
-- 
2.13.0