1. Pascal / Говнокод #548

    +148

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    if currIndex=2 then
 begin
  // разкрываем выделенные узлы
  TreeView_U.Items[r].Expanded:=true;
  if TreeView_U.Items[r].Parent <> nil then
   begin
    TreeView_U.Items[r].Parent.Expanded:=true;
    if TreeView_U.Items[r].Parent.Parent <> nil then
     begin
      TreeView_U.Items[r].Parent.Parent.Expanded:=true;
      if TreeView_U.Items[r].Parent.Parent.Parent <> nil then
       TreeView_U.Items[r].Parent.Parent.Parent.Expanded:=true;
     end;
   end;

    Это попытка раскрыть полностью ветвь дерева, если в ней есть хоть один выбранный (с помеченным чекбоксом) элемент, о чём говорит currIndex=2
    Вообще-то оно даже работает, ибо вложенность дерева маленькая. Но увеличиться запросто может...

    Запостил: guest, 13 Февраля 2009

    Комментарии (0) RSS

    Добавить комментарий

    Ошибка компиляции комментария:
    1. Гости могут высказаться только в понедельник, среду, четверг или воскресение
    ava Помни, guest, за тобой могут следить!
    А не использовать ли нам bbcode?
    • [b]жирный[/b] — жирный
    • [i]курсив[/i] — курсив
    • [u]подчеркнутый[/u] — подчеркнутый
    • [s]перечеркнутый[/s] — перечеркнутый
    • [blink]мигающий[/blink] — мигающий
    • [color=red]цвет[/color] — цвет (подробнее)
    • [size=20]размер[/size] — размер (подробнее)
    • [code=<language>]some code[/code] (подробнее)
    Проверочный код