From 1d7296bf2cf7ad6fe2a7af860d2288b0a10624f7 Mon Sep 17 00:00:00 2001
From: balazs <balazs@lazarus-ide.org>
Date: Mon, 3 Jan 2022 10:51:05 +0200
Subject: [PATCH] Prevent "orphaned package" node to appear after resetting the
 filter.

---
 components/onlinepackagemanager/opkman_visualtree.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/components/onlinepackagemanager/opkman_visualtree.pas b/components/onlinepackagemanager/opkman_visualtree.pas
index 80217d7df0..a452e516a4 100644
--- a/components/onlinepackagemanager/opkman_visualtree.pas
+++ b/components/onlinepackagemanager/opkman_visualtree.pas
@@ -1067,11 +1067,14 @@ end;
 procedure TVisualTree.ResetFilter;
 var
   Node: PVirtualNode;
+  Data: PData;
 begin
   Node := FVST.GetFirst;
   while Assigned(Node) do
   begin
-    FVST.IsVisible[Node] := True;
+    Data := FVST.GetNodeData(Node);
+    if Data^.DataType <> 21 then
+      FVST.IsVisible[Node] := True;
     Node := FVST.GetNext(Node);
   end;
   Node := FVST.GetFirst;