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

Prevent "orphaned package" node to appear after resetting the filter.

Browse Source
This commit is contained in:
balazs 2022-01-03 10:51:05 +02:00
parent 2bbb2c67b4
commit 1d7296bf2c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -1067,11 +1067,14 @@ end;
procedure TVisualTree.ResetFilter; procedure TVisualTree.ResetFilter;
var var
Node: PVirtualNode; Node: PVirtualNode;
Data: PData;
begin begin
Node := FVST.GetFirst; Node := FVST.GetFirst;
while Assigned(Node) do while Assigned(Node) do
begin begin
FVST.IsVisible[Node] := True; Data := FVST.GetNodeData(Node);
if Data^.DataType <> 21 then
FVST.IsVisible[Node] := True;
Node := FVST.GetNext(Node); Node := FVST.GetNext(Node);
end; end;
Node := FVST.GetFirst; Node := FVST.GetFirst;