paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 06:39:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Disconnect OnIdle handler of FilterEdit when the control is destroyed. Issue #31893.

Browse Source 
git-svn-id: trunk@55058 -
This commit is contained in:
juha 2017-05-23 07:46:23 +00:00
parent 649fcd18cd
commit 6dbb82d795
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/editbtn.pas
View File

@ -221,6 +221,7 @@ type
ItemData: Pointer): Boolean; ItemData: Pointer): Boolean;
function DoDefaultFilterItem(const ACaption, FilterLC: string; function DoDefaultFilterItem(const ACaption, FilterLC: string;
const ItemData: Pointer): Boolean; virtual; const ItemData: Pointer): Boolean; virtual;
procedure DestroyWnd; override;
procedure EditKeyDown(var Key: Word; Shift: TShiftState); override; procedure EditKeyDown(var Key: Word; Shift: TShiftState); override;
procedure EditChange; override; procedure EditChange; override;
procedure ButtonClick; override; procedure ButtonClick; override;
@ -1117,6 +1118,12 @@ begin
Result := (FilterLC='') or (Pos(FilterLC,UTF8LowerCase(ACaption))>0); Result := (FilterLC='') or (Pos(FilterLC,UTF8LowerCase(ACaption))>0);
end; end;
procedure TCustomControlFilterEdit.DestroyWnd;
begin
IdleConnected:=false;
inherited DestroyWnd;
end;
function TCustomControlFilterEdit.DoFilterItem(const ACaption, function TCustomControlFilterEdit.DoFilterItem(const ACaption,
FilterLC: string; ItemData: Pointer): Boolean; FilterLC: string; ItemData: Pointer): Boolean;
var var