Set VirtualDrawTree checkbox to True using code

[JD]

Hi there everyone,

I am trying to set checkboxes in a VirtualDrawTree's nodes to True using code IF a certain string is found in one of the node's columns.

Here is part of a procedure I wrote to achieve this objective:

Code: Pascal  [Select][+][-]

1.     //intItems := 0;
2.     //
3.     repeat
4.       if XNode = nil then
5.         XNode := ATree.GetFirst
6.       else
7.         XNode := ATree.GetNext(XNode);
8.  
9.       //Inc(intItems);
10.       Data := ATree.GetNodeData(XNode);
11.  
12.       if Data^.Column[2] = AWord then
13.         //ShowMessage('Check row ' + IntToStr(intItems));
14.         ATree.CheckState[XNode] := csCheckedNormal;
15.     until XNode = ATree.GetLast();
16.     ATree.Invalidate;
17.  

The problem is that this does not work at all. The code finds the string in the node's column 2 but the node is not checked at all.

What am I doing wrong?

Thanks for your assistance.

JD

[balazsszekely]

Hi JD,

Once I wrote a VDT exemple for another forum user. You can find in the attachement, a slightly modified version of that example, where checksupport is added. You can also search, then check a specific node.

[JD]

Hi JD,

Once I wrote a VDT exemple for another forum user. You can find in the attachement, a slightly modified version of that example, where checksupport is added. You can also search, then check a specific node.

Thank you so much GetMem. 

JD