Как разворачивать ShellTreeView одним щелчком?

[McLion]

Как разворачивать ShellTreeView одним щелчком мыши? Кто подскажет?

Спасибо!

[resident]

Код: Выделить всё

ShellTreeView1.FullExpand;   

[McLion]

Код: Выделить всё

ShellTreeView1.FullExpand;   

Вообще то я имел ввиду не все за раз, а отдельные папки разворачивать одним щелчком.

[Лекс Айрин]

McLion, нужно обработать событие onClick для ShellTreeView

Код: Выделить всё

if MainForm.ShellTreeView1.Selected.Expanded=true
   then MainForm.ShellTreeView1.Selected.Expanded:=false
   else  MainForm.ShellTreeView1.Selected.Expanded:=true

[McLion]

McLion, нужно обработать событие onClick для ShellTreeView

Да я там вообще то, только не пойму что там делать... все на свете перепробовал но никак. Индекс как будто с неба берется, никакой логики... как будто Random за ним стоит.

Код: Выделить всё

ShellTreeView1.Items.Item[ShellTreeView1.Selected.SelectedIndex].Expanded := True; 
ShellTreeView1.Items.Item[ShellTreeView1.Selected.Index].Expanded := True; 


[Лекс Айрин]

Все четко. Никаких особых проблем. Код выше.

[McLion]

Все четко. Никаких особых проблем. Код выше.

Не, у меня он не работает, но вот это вроде работает!

Код: Выделить всё

  if ShellTreeView1.Selected.Expanded then
    ShellTreeView1.Selected.Expanded := False
  else ShellTreeView1.Selected.Expanded := True;


[Лекс Айрин]

McLion, странно, у меня работает и указанный мною вариант. впрочем, разница несущественна. А насчет ного, что непонятно откуда индекс берется... Так для таких случаев и нужен пункт Selected

[McLion]

McLion, странно, у меня работает и указанный мною вариант. впрочем, разница несущественна. А насчет ного, что непонятно откуда индекс берется... Так для таких случаев и нужен пункт Selected

Ооо... я твой код не видел... он только сейчас появился... прикольно, форум глючит.

Спасибо за помощь! А в ShellListView сильно понимаешь?

[Лекс Айрин]

А в ShellListView сильно понимаешь?

не то что бы... я в свое время долго курил TreeView. Могу попытаться покурить и это.
А то, что код не видел... видимо, ты выложил тогда, когда я правил пост, добавляя его.

[McLion]

А в ShellListView сильно понимаешь?

не то что бы... я в свое время долго курил TreeView. Могу попытаться покурить и это.

Я уже тоже намучился, особенно с иконками...
Помощь просто в лазарусе плохая, ничего не найдешь, а если и найдешь - умнее не станешь!

[Лекс Айрин]

Помощь просто в лазарусе плохая, ничего не найдешь, а если и найдешь - умнее не станешь!

Гугл и яндекс рулят. В крайнем случае, смотришь исходники. При наличии качественных исходников хелп не особо нужен.

[McLion]

Помощь просто в лазарусе плохая, ничего не найдешь, а если и найдешь - умнее не станешь!

Гугл и яндекс рулят. В крайнем случае, смотришь исходники. При наличии качественных исходников хелп не особо нужен.

Как можно из кода в нужный исходник (uses) прыгнуть?

[Лекс Айрин]

Через подручное меню. кликаешь на функцию/переменную/класс/модуль чтобы текстовый курсор был на имени и выбираешь пункт найти определение в подручном (контекстном) меню.