paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 23:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 55058 #6dbb82d795 from trunk:

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

git-svn-id: branches/fixes_1_8@55066 -
This commit is contained in:
maxim 2017-05-23 22:08:46 +00:00
parent 41a8c54dd4
commit 6936797b51
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;
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