Can not clear all nodes in TTMSFNCTreeView

FNC TMS FNC UI Pack
1

I think I do something wrong. After clearing the node list, there is always one root node left, hier is the code:

procedure TForm1.FormCreate(Sender: TObject);
begin
TMSFNCTreeView1.ClearNodeList;
TMSFNCTreeView1.ClearNodes;
TMSFNCTreeView1.ClearColumns;
TMSFNCTreeView1.Columns.Add;
TMSFNCTreeView1.AddVirtualNode; // will add a second root node
end;

procedure TForm1.TMSFNCTreeView1GetNodeText(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AMode: TTMSFNCTreeViewNodeTextMode;
var AText: string);
begin
AText := 'Node ' + inttostr(ANode.Index) + ' for ' + TMSFNCTreeView1.Columns[AColumn].Text
end;

procedure TForm1.TMSFNCTreeView1GetNumberOfNodes(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var ANumberOfNodes: Integer);
begin
if ANode.Level = -1 then
ANumberOfNodes := 1;
end;

2

This is normal, because OnGetNumberOfNodes is triggered and adds one node. You want to set this to 0, or just not use this event.

procedure TForm1.TMSFNCTreeView1GetNumberOfNodes(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var ANumberOfNodes: Integer);
begin
if ANode.Level = -1 then
ANumberOfNodes := 0;
end;