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

git-svn-id: trunk@54597 -
This commit is contained in:
juha 2017-04-09 22:14:01 +00:00
parent 2112766b0b
commit 26faccc615

View File

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