Change in TreeView (treeview.inc)

[jcmontherock]

Hello,
I suggest a little change in the function FindNodeWithText:
Change:

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

1. function TTreeNodes.FindNodeWithText(const NodeText: string): TTreeNode;
2. begin
3.   Result := GetFirstNode;
4.   while Assigned(Result) and (Result.Text <> NodeText) do
5.     Result := Result.GetNext;
6. end;
7.  

To:

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

1. function TTreeNodes.FindNodeWithText(StrtIndex: Integer = 0; const NodeText: string): TTreeNode;
2. begin
3.   Result := TreeView1.Items[StrtIndex];
4.   while Assigned(Result) and (Result.Text <> NodeText) do
5.     Result := Result.GetNext;
6. end;
7.  

If you have 2 (or more) nodes with the same text with a different parent node, you cannot find the next one.

[wp]

Please post this in the bugtracker and mark it as feature request. The optional parameter must be at the end, though.

[Martin_fr]

Also, since it returns a TTreeNode, maybe it should take a TTreeNode as optional arg?

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

1. function TTreeNodes.FindNodeWithText(const NodeText: string; ContinueAfterNode: TTreeNode = nil): TTreeNode;

Just an idea.

[AlexTP]

Martin, +1.

[jcmontherock]

Fine, it's more better...