вопрос по TreeView

[Cyn4uk]

Как сделать чтобы у меня не все дерево было развернуто при открытии формы (не все категории), а только часть? Т.е. только необходимое мне было развернуто автоматически, остальное при надобности разворачивалось вручную кликом.

В самом объекте есть свойство чтобы было все развернуто либо все свернуто, но это не подходит.

Заранее спасибо!

[mihali4]

А как же Expand method (TTreeNode) и Collapse method (TTreeNode)?

[Cyn4uk]

Сообщение от mihali4

А как же Expand method (TTreeNode) и Collapse method (TTreeNode)?

Не понял немного... Как я уже писал, могу сделать сейчас только FullExpand.

А как частично развернуть дерево, вот этого и не знаю.

Хэлп не пашет в связи с тем что виста стоит =(

[Sibedir]

Может быть это поможет:
TreeView.zip

[mihali4]

TTreeNode - это то, из чего состоит дерево, то есть это - его ветви. А у них есть персональные методы для сворачивания и разворачивания.
А что, в Висте файл хэлпа вручную тоже нельзя открыть?

[Cyn4uk]

Сообщение от Sibedir

Может быть это поможет:
Вложение 1820

Спасибо, хороший пример, все понял =)

[Cyn4uk]

Сообщение от mihali4

А что, в Висте файл хэлпа вручную тоже нельзя открыть?

Справка Windows (WinHlp32.exe) – это программа, предоставляющая справочную информацию и включенная в версии операционной системы Microsoft Windows, начиная с Microsoft Windows 3.1. Однако справка Windows практически не обновлялась для многих выпусков операционных систем и уже не соответствует стандартам корпорации Майкрософт. Поэтому, начиная с выпуска ОС Windows Vista, справка Windows не будет поставляться в составе Windows. Для просмотра 32-разрядных файлов HLP необходимо загрузить и установить программу (WinHlp32.exe) из центра загрузки корпорации Майкрософт.


Хорошо что у меня лицензионка, а то так бы сейчас не загрузил установщик хелпа... Сейчас хоть можно просматривать хелпы...

[mihali4]

Посмотрел пример.
Второй цикл (while) у Button2 не нужен, а в первом - при нахождении итемса нужного номера достаточно сделать
TreeView1.Selected:= TreeView1.Items [i] и все.

Сейчас хоть можно просматривать хелпы...

Правильное решение приняли. Теперь многое станет гораздо проще.

[Sibedir]

Второй цикл (while) у Button2 не нужен, а в первом - при нахождении итемса нужного номера достаточно сделать
TreeView1.Selected:= TreeView1.Items [i] и все

Все так. Вот код:

var
  i: Integer;
begin
  for i := 0 to TreeView1.Items.Count - 1 do begin
    if TreeView1.Items [i].Text = Edit1.Text then begin
      TreeView1.Selected := TreeView1.Items [i];
      TreeView1.Selected.Expand (False);
      Break;
    end;
  end;
end;

[Cyn4uk]

Я в итоге сделал куда проще:

т.к. мне нужно развернуть только конкретные ветви, несколько штук, я вставил код

tv1.Items.Item[i].Expand(false);

на каждую i'ю ветвь которую мне нужно развернуть.

перед этим делаем только tv1.FullCollapse