「なでしこv1」開発掲示板

【症状】
１番上に表示される最初のノードが２つ以上あるとツリー部品の選択パス設定が正しく動作しない。
【再現方法】

TWREEとはツリー
そのレイアウトは全体
そに「,NODE6,6Node,,
,NODE1,1NODE,,
NODE1,NODE2,2NODE,,
NODE1,NODE3,3NODE,,
NODE3,NODE4,4NODE,,
NODE3,NODE5,5NODE,,」を一括作成。
0.1秒待つ
TWREEの「3NODE\5NODE」を選択パス設定

//上記の,NODE6,6Node,,を消せばちゃんと動作する。

【要望】
１番上に表示される最初のノードが２つ以上あってもしっかり選択できるようにしてほしい。
また、トップノード(１番上に表示される最初のノード)から順に指定して動作するようにしてほしい。（『TWREEの「3NODE\5NODE」を選択パス設定』を『TWREEの「1NODE\3NODE\5NODE」を選択パス設定』にして動作できるようにしいてほしいです。）
【バージョン】
1.53352
【その他】
ツリー部品で実装できることが増えると思うので、ぜひ修正をよろしくお願いします。

開発向け情報です。
パス設定を以下のような感じに修正するとよさそうです。
この場合、依然の動作とは非互換となるため、取り込んだリリースの際には、
注意書きがあったほうがよさそうです。
---- unit_tree_list.pasの、THiTreeViewのSetSelectPath
procedure THiTreeView.SetSelectPath(path: string);
var
  n, ok: TTreeNode;
  sl: TStringList;
  name: string;
  k: Integer;

  function findChildNode(n:TTreeNode;i:Integer):TTreeNode;
  var
    c, ok: TTreeNode;
    j: Integer;
    name: String;
  begin
    if (i >= sl.Count) or (sl.Strings[i] = '') then
    begin
      // 見つけた。
      Result := n;
      Exit;
    end;
    name := sl.Strings[i];
    for j := 0 to n.Count - 1 do
    begin
      c := n.Item[j];
      if c.Text = name then
      begin
        ok := findChildNode(c,i+1);
        if ok <> nil then
        begin
          Result := ok;
          Exit;
        end;
      end;
    end;
    Result := nil;
  end;

begin
  sl := SplitChar('\', path);
  try
    ok := Self.TopItem;
    if (sl.Count > 0) and (sl.Strings[0]<>'') then
    begin
      name := sl.Strings[0];
      ok := nil;
      for k := 0 to Self.Items.Count -1 do
      begin
        n := Self.Items.Item[k];
        if (n.Parent = nil) and (n.Text = name) then
        begin
          ok := findChildNode(n,1);
          if ok <> nil then Break;
        end;
      end;
      if ok = nil then Exit;// 一致なし
    end;
    ok.Selected := True;
  finally
    sl.Free;
  end;
end;