THTMLTreeView cannot collapse first node

VCL TMS VCL UI Pack
1

I have a THTMLTreeView with multiple root level nodes.  I can collapse all the nodes except the first one.


Example:

root node 1
- child node 1
- child node 2
- child node 3
root node 2
- child node A
- child node B
- child node C
root node 3
- child node I
- child node II
- child node III

If I loop thru each of the root nodes and issue the rootnode.Collapse(true) for each root node, all root nodes are collapsed except root node 1.

Result:
root node 1
- child node 1
- child node 2
- child node 3
root node 2
root node 3

THTMLTreeView 1.5.3.1
Delphi 10.3.3


2

Nevermind... my bad.  Later in my code I expand the top item.  I feel so stupid. ;)