paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-29 12:33:05 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazControls: Apply filter also at start in TreeFilterEdit. Issue #31632.

Browse Source 
git-svn-id: trunk@54597 -
This commit is contained in:
juha 2017-04-09 22:14:01 +00:00
parent 2112766b0b
commit 26faccc615
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazcontrols/treefilteredit.pas
View File

@ -443,12 +443,15 @@ end;
procedure TTreeFilterEdit.SetFilteredTreeview(const AValue: TCustomTreeview); procedure TTreeFilterEdit.SetFilteredTreeview(const AValue: TCustomTreeview);
begin begin
if fFilteredTreeview = AValue then Exit; if fFilteredTreeview = AValue then Exit;
if fFilteredTreeview <> nil then begin if fFilteredTreeview <> nil then
begin
fFilteredTreeview.RemoveFreeNotification(Self); fFilteredTreeview.RemoveFreeNotification(Self);
fFilteredTreeview.RemoveHandlerOnBeforeDestruction(@OnBeforeTreeDestroy); fFilteredTreeview.RemoveHandlerOnBeforeDestruction(@OnBeforeTreeDestroy);
end; end;
fFilteredTreeview := AValue; fFilteredTreeview := AValue;
if fFilteredTreeview <> nil then begin if fFilteredTreeview <> nil then
begin
Filter := Text;
fFilteredTreeview.FreeNotification(Self); fFilteredTreeview.FreeNotification(Self);
fFilteredTreeview.AddHandlerOnBeforeDestruction(@OnBeforeTreeDestroy); fFilteredTreeview.AddHandlerOnBeforeDestruction(@OnBeforeTreeDestroy);
end; end;