This is just written by me John Knipper. Don't bother Mike if something is wrong here. I am not related to Mikes company in any way. I'm just doing that because I believe so much in his component, that I would not give you the possibility to miss the opportunity to use it. You won't regret it. I'm not going to enumerate all the nice advantage it has on it's competitors. Because it has so many. The biggest I see is the speed improvement, the multi columns, the automatic allocation of node data and so many more. You will see that the strong points of the Virtual tree view are not obvious. But you can believe me, this is the best Treeview ever. You will be kinda lost at the beginning, but it's only a matter of forgetting what you know about trees. This is the right way to do it. You will ask yourself why it has not be done like that at the beginning. Q: How to initially fill the tree? A: The only information VT needs at startup is the number of root nodes. All other information is queried from the application when they are needed (text, node height etc.). Hence all to do is to set property RootNodeCount to the number \of nodes required. E: <CODE> VirtualStringTree1.RootNodeCount := 5; <COLOR Blue>// is adding 5 nodes at the root of your tree</COLOR> </CODE> To initialize the nodes, use the OnInitNode event Q: How to add a node to the tree? A: The technique is very similar to the one you used with the standard tree view. The only difference is that you fill the node's data after the insertion of the node E: <CODE> var Node: PVirtualNode; Node := VirtualStringTree1.AddChild(nil); <COLOR Blue>// Adds a node to the root of the Tree.</COLOR> Node := VirtualStringTree1.AddChild(ParentNode); <COLOR Blue>// Adds a node as the last child of the given node.</COLOR> Node := VirtualStringTree1.InsertNode(Node, amInsertBefore); <COLOR Blue>// Inserts a node as sibling just before the given node.</COLOR> </CODE> Alternatively you can use the OnInitChildren event. This event is used when a node is marked as having child nodes and these child nodes are somehow about to be accessed (like iteration, expanding, display etc.). Q: Where is gone all the information about my node, like text for example ? A: The text property is gone. You don't need it anymore. The basic idea behind Virtual Treeview is to leave all data management to the application which knows much better how to do this than the tree (see also Related Topics). Every node knows which is its parent and which are their children. Information like the text property, the new hint property, the ImageIndex property and everything else should be stored in the node's data. The tree will ask for it on demand, e.g. when it needs to show a certain node etc. E: <CODE> TTreeData = record Text: WideString; URL: String[255]; CRC: LongInt; isOpened: Boolean; ImageIndex: Integer; end; PTreeData = ^TTreeData; <COLOR Blue>// This is a node example.</COLOR> </CODE> Q: When should I allocate memory for the node data? A: Never, the VT does it for you. The only thing you have to do is to tell the VT how much memory you need for your node data. E: <CODE> VirtualStringTree1.NodeDataSize := SizeOf(TTreeData); <COLOR Blue>// The nodes are reinitialized when you change that value.</COLOR> </CODE> If you know how much memory it will take, you can use the NodeDataSize property of the VT and initialize it directly at design time. Q: When should I fill my nodes data? A: The ideal place for this is the OnInitNode event. E: <CODE> procedure TMainForm.VTInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates); var Level: Integer; Data, ParentData: PMyNodeData; Count: Integer; begin with Sender do begin Data := GetNodeData(Node); ParentData := GetNodeData(ParentNode); if Assigned(ParentData) then Level := ParentData.Level + <COLOR Pink>1</COLOR> else Level := <COLOR Pink>0</COLOR>; case FFillMode of <COLOR Pink>0</COLOR>: <COLOR Blue>// fill tree with a specific amount of nodes and levels</COLOR> begin // determine new node level if Level \< (LevelsUpDown.Position - <COLOR Pink>1</COLOR>) then Include(InitialStates, ivsHasChildren); end; <COLOR Pink>1</COLOR>: <COLOR Blue>// fill tree with one million root nodes (nothing special to do here)</COLOR> ; <COLOR Pink>2</COLOR>: <COLOR Blue>// fill tree with a certain amount of root nodes (they always get fixed text to test sorting)</COLOR> begin Data.FixedText := True; Data.NewText := Format(<COLOR Pink>'Node: %d'</COLOR>, [Node.Index]); end; <COLOR Pink>3</COLOR>: <COLOR Blue>// fill tree with a certain amount of root nodes and a random amount of child nodes // up to an absolute amount of ~1 million nodes and with at most 10 levels</COLOR> begin if Assigned(ParentNode) then Count := ParentNode.ChildCount else Count := TVirtualStringTree(Sender).RootNodeCount; if (Level \< 15) and (Random(Count) \< (Count div <COLOR Pink>2</COLOR>)) and (FCurrentCount \< <COLOR Pink>1000000</COLOR>) then Include(InitialStates, ivsHasChildren); end; end; Data.Level := Level; Node.CheckType := ctTriStateCheckBox; case Level of <COLOR Pink>1</COLOR>: if Random(<COLOR Pink>5</COLOR>) \< <COLOR Pink>2</COLOR> then Include(InitialStates, ivsDisabled); end; end; end; </CODE> Q: How do I access a node's data? A: Use GetNodeData(Node) to get a pointer on your nodes data E: Either use <CODE> with PTreeData(VirtualStringTree1.GetNodeData(Node))^ do begin Text:= ChangeFileExt(ExtractFileName(FileName), <COLOR Pink>''</COLOR>); ImageIndex:= <COLOR Pink>1</COLOR>; <COLOR Blue>//it's an example ;)</COLOR> end; </CODE> Or in that case you can use <CODE> var NodeData: PTreeData; begin NodeData := VirtualStringTree1.GetNodeData(Node); NodeData.Text := <COLOR Pink>'a test'</COLOR>; NodeData.ImageIndex := <COLOR Pink>1</COLOR>; ... </CODE> Q: What else can I do with that nodes data pointer? A: Usually you already have all data in your own structure (database, file etc.) so you need only to supply an identifier or a pointer into your own structure. This prevents your application from doubling the data just for display which in turn saves a remarkable amount of memory. E: You could connect a TBookmark to the data. To display the name of your customer in a VT : <CODE> procedure TFRM_WWW_main.vFavTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: Integer; TextType: TVSTTextType; var Text: WideString); begin <COLOR Blue>// Column is -1 if the header is hidden or no columns are defined</COLOR> if Column \< <COLOR Pink>0</COLOR> then Exit; if TVirtualStringTree(Sender).Header.Columns[Column].Text = <COLOR Pink>'Customer Name'</COLOR> then begin Table.GotoBookmark(TBookmark(Sender.GetNodeData(Node))); Text := Table.FieldByName(<COLOR Pink>'Name'</COLOR>).asString; end; end; </CODE> Q: A move of a scrollbar's thumb doesn't directly scroll the tree. What to do? A: <CODE> VirtualStringTree1.VertScrollBar.Track := True; </CODE> Q: How can I display text for other columns? A: In the OnGetText event, check the column index. E: <CODE> procedure TFRM_WWW_main.vFavTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: Integer; TextType: TVSTTextType; var Text: WideString); begin case Column of \-1, <COLOR Blue>// main column, -1 if columns are hidden, 0 if they are shown</COLOR> 0: Text := <COLOR Pink>'Text of column 1'</COLOR>; 1: Text := <COLOR Pink>'Text of column 2'</COLOR>; 2: Text := <COLOR Pink>'Text of column 3'</COLOR>; end; end; </CODE> Q: When do I tell which icon to use? A: It's the same principle as for the OnGetText event. With the exception that you must tell which icon to use in 3 cases: the normal icon, the selected icon and the state icon. E: <CODE> procedure TFRM_WWW_main.vFavTreeGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: Integer; var Index: Integer); begin if Kind = ikState then begin Index := <COLOR Pink>2</COLOR>; end else if (Kind = ikNormal) or (Kind = ikSelected) then begin Index := <COLOR Pink>1</COLOR>; end; end; </CODE> \or just use <CODE> procedure TFRM_WWW_main.vFavTreeGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: Integer; var Index: Integer); begin case Kind of ikState: Index := <COLOR Pink>2</COLOR>; ikNormal, ikSelected: Index := <COLOR Pink>1</COLOR>; end; end; </CODE> Ok, here we are. This is only a small introduction to help you begin with Virtual Treeview. There are many more useful functions. Nearly everything was done for you. Thank you very much for your work Mike.

@@Repositiory.htm This is just written by me John Knipper. Don't bother Mike if something is wrong here. I am not related to Mikes company in any way. I'm just doing that because I believe so much in his component, that I would not give you the possibility to miss the opportunity to use it. You won't regret it. I'm not going to enumerate all the nice advantage it has on it's competitors. Because it has so many. The biggest I see is the speed improvement, the multi columns, the automatic allocation of node data and so many more. You will see that the strong points of the Virtual tree view are not obvious. But you can believe me, this is the best Treeview ever. You will be kinda lost at the beginning, but it's only a matter of forgetting what you know about trees. This is the right way to do it. You will ask yourself why it has not be done like that at the beginning. Q: How to initially fill the tree? A: The only information VT needs at startup is the number of root nodes. All other information is queried from the application when they are needed (text, node height etc.). Hence all to do is to set property RootNodeCount to the number \of nodes required. E: <CODE> VirtualStringTree1.RootNodeCount := 5; <COLOR Blue>// is adding 5 nodes at the root of your tree</COLOR> </CODE> To initialize the nodes, use the OnInitNode event Q: How to add a node to the tree? A: The technique is very similar to the one you used with the standard tree view. The only difference is that you fill the node's data after the insertion of the node E: <CODE> var Node: PVirtualNode; Node := VirtualStringTree1.AddChild(nil); <COLOR Blue>// Adds a node to the root of the Tree.</COLOR> Node := VirtualStringTree1.AddChild(ParentNode); <COLOR Blue>// Adds a node as the last child of the given node.</COLOR> Node := VirtualStringTree1.InsertNode(Node, amInsertBefore); <COLOR Blue>// Inserts a node as sibling just before the given node.</COLOR> </CODE> Alternatively you can use the OnInitChildren event. This event is used when a node is marked as having child nodes and these child nodes are somehow about to be accessed (like iteration, expanding, display etc.). Q: Where is gone all the information about my node, like text for example ? A: The text property is gone. You don't need it anymore. The basic idea behind Virtual Treeview is to leave all data management to the application which knows much better how to do this than the tree (see also Related Topics). Every node knows which is its parent and which are their children. Information like the text property, the new hint property, the ImageIndex property and everything else should be stored in the node's data. The tree will ask for it on demand, e.g. when it needs to show a certain node etc. E: <CODE> TTreeData = record Text: WideString; URL: String[255]; CRC: LongInt; isOpened: Boolean; ImageIndex: Integer; end; PTreeData = ^TTreeData; <COLOR Blue>// This is a node example.</COLOR> </CODE> Q: When should I allocate memory for the node data? A: Never, the VT does it for you. The only thing you have to do is to tell the VT how much memory you need for your node data. E: <CODE> VirtualStringTree1.NodeDataSize := SizeOf(TTreeData); <COLOR Blue>// The nodes are reinitialized when you change that value.</COLOR> </CODE> If you know how much memory it will take, you can use the NodeDataSize property of the VT and initialize it directly at design time. Q: When should I fill my nodes data? A: The ideal place for this is the OnInitNode event. E: <CODE> procedure TMainForm.VTInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates); var Level: Integer; Data, ParentData: PMyNodeData; Count: Integer; begin with Sender do begin Data := GetNodeData(Node); ParentData := GetNodeData(ParentNode); if Assigned(ParentData) then Level := ParentData.Level + <COLOR Pink>1</COLOR> else Level := <COLOR Pink>0</COLOR>; case FFillMode of <COLOR Pink>0</COLOR>: <COLOR Blue>// fill tree with a specific amount of nodes and levels</COLOR> begin // determine new node level if Level \< (LevelsUpDown.Position - <COLOR Pink>1</COLOR>) then Include(InitialStates, ivsHasChildren); end; <COLOR Pink>1</COLOR>: <COLOR Blue>// fill tree with one million root nodes (nothing special to do here)</COLOR> ; <COLOR Pink>2</COLOR>: <COLOR Blue>// fill tree with a certain amount of root nodes (they always get fixed text to test sorting)</COLOR> begin Data.FixedText := True; Data.NewText := Format(<COLOR Pink>'Node: %d'</COLOR>, [Node.Index]); end; <COLOR Pink>3</COLOR>: <COLOR Blue>// fill tree with a certain amount of root nodes and a random amount of child nodes // up to an absolute amount of ~1 million nodes and with at most 10 levels</COLOR> begin if Assigned(ParentNode) then Count := ParentNode.ChildCount else Count := TVirtualStringTree(Sender).RootNodeCount; if (Level \< 15) and (Random(Count) \< (Count div <COLOR Pink>2</COLOR>)) and (FCurrentCount \< <COLOR Pink>1000000</COLOR>) then Include(InitialStates, ivsHasChildren); end; end; Data.Level := Level; Node.CheckType := ctTriStateCheckBox; case Level of <COLOR Pink>1</COLOR>: if Random(<COLOR Pink>5</COLOR>) \< <COLOR Pink>2</COLOR> then Include(InitialStates, ivsDisabled); end; end; end; </CODE> Q: How do I access a node's data? A: Use GetNodeData(Node) to get a pointer on your nodes data E: Either use <CODE> with PTreeData(VirtualStringTree1.GetNodeData(Node))^ do begin Text:= ChangeFileExt(ExtractFileName(FileName), <COLOR Pink>''</COLOR>); ImageIndex:= <COLOR Pink>1</COLOR>; <COLOR Blue>//it's an example ;)</COLOR> end; </CODE> Or in that case you can use <CODE> var NodeData: PTreeData; begin NodeData := VirtualStringTree1.GetNodeData(Node); NodeData.Text := <COLOR Pink>'a test'</COLOR>; NodeData.ImageIndex := <COLOR Pink>1</COLOR>; ... </CODE> Q: What else can I do with that nodes data pointer? A: Usually you already have all data in your own structure (database, file etc.) so you need only to supply an identifier or a pointer into your own structure. This prevents your application from doubling the data just for display which in turn saves a remarkable amount of memory. E: You could connect a TBookmark to the data. To display the name of your customer in a VT : <CODE> procedure TFRM_WWW_main.vFavTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: Integer; TextType: TVSTTextType; var Text: WideString); begin <COLOR Blue>// Column is -1 if the header is hidden or no columns are defined</COLOR> if Column \< <COLOR Pink>0</COLOR> then Exit; if TVirtualStringTree(Sender).Header.Columns[Column].Text = <COLOR Pink>'Customer Name'</COLOR> then begin Table.GotoBookmark(TBookmark(Sender.GetNodeData(Node))); Text := Table.FieldByName(<COLOR Pink>'Name'</COLOR>).asString; end; end; </CODE> Q: A move of a scrollbar's thumb doesn't directly scroll the tree. What to do? A: <CODE> VirtualStringTree1.VertScrollBar.Track := True; </CODE> Q: How can I display text for other columns? A: In the OnGetText event, check the column index. E: <CODE> procedure TFRM_WWW_main.vFavTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: Integer; TextType: TVSTTextType; var Text: WideString); begin case Column of \-1, <COLOR Blue>// main column, -1 if columns are hidden, 0 if they are shown</COLOR> 0: Text := <COLOR Pink>'Text of column 1'</COLOR>; 1: Text := <COLOR Pink>'Text of column 2'</COLOR>; 2: Text := <COLOR Pink>'Text of column 3'</COLOR>; end; end; </CODE> Q: When do I tell which icon to use? A: It's the same principle as for the OnGetText event. With the exception that you must tell which icon to use in 3 cases: the normal icon, the selected icon and the state icon. E: <CODE> procedure TFRM_WWW_main.vFavTreeGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: Integer; var Index: Integer); begin if Kind = ikState then begin Index := <COLOR Pink>2</COLOR>; end else if (Kind = ikNormal) or (Kind = ikSelected) then begin Index := <COLOR Pink>1</COLOR>; end; end; </CODE> \or just use <CODE> procedure TFRM_WWW_main.vFavTreeGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: Integer; var Index: Integer); begin case Kind of ikState: Index := <COLOR Pink>2</COLOR>; ikNormal, ikSelected: Index := <COLOR Pink>1</COLOR>; end; end; </CODE> Ok, here we are. This is only a small introduction to help you begin with Virtual Treeview. There are many more useful functions. Nearly everything was done for you. Thank you very much for your work Mike.