[Electronic_Arts]

Проблема в том что - надо присвоить отдельным пунктам отдельные иконки
Как при создании нового дочернего раздела

Код:

1	TreeView1.Items.Item.AddChild(TreeView1.Selected, 'Новый раздел');

присвоить ему отдельную иконку из списка ImageList...

или же есть другой способ создания нового раздела с определенными параметрами - просто я не врубился вроде в ручную при добавлении можно выбрать

ImageIndex
SelectedIndex
StateIndex
Expandedindex

а в моем случае - где они?

[XTen]

создай для начала банк иконок на пободии приведённого ниже кода

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

mas[0]:='ico/Node_0/True.bmp'; mas[1]:='ico/Node_0/False.bmp';   ... mas[8]:='ico/Node_3/False.bmp';   for i:=0 to 8 do   begin    bm.LoadFromFile(mas[i]) ;    bm.Width:=16;    bm.Height:=16;    mask.Assign(bm);    mask.Mask(clBlue);    suiTreeView1.Images.Add(bm, mask);   end;

далее присваивай иконки следующим образом

Код:

1 2 3 4

node:=Form1.suiTreeView1.Items.AddChild(ParentNode, 'New node'); node.ImageIndex:=2  // иконка(нумерация начинается с  0)(эта иконка при ожидании будет отображенна) node.SelectedIndex:=1; // эта иконка при наведении на узел node.HasChildren:=true; // ставим продолжение дерева(тоесть  + на открытие след. уровня

[XTen]

меня больше интересует другой вопрос как при раскрытии следующего узла, не выделая его, узнать что в нём написанно
если вот так TreeView1.Selected.Text то он нам возратит чисто выделенный узел, но не узел у которого мы нажали на +

[Assistant]

событие OnExpanding для TTreeView, параметр Node: Node.Text и т.д.

[XTen]

Assistant, спасибо!

[Electronic_Arts]

Вопрос - почему не работает
node.expandedimageindex:=2;
при разворачивании раздела изображения не меняется - почему?

и как перетаскивать разделы так что бы параметры не менялись - а то после перетаскивания - икона раздела меняется

если сделать так

Код:

1 2 3 4 5 6 7 8 9 10

with TreeView1 do  begin    nodeTmp := Items.AddChild(TargetNode, SourceNode.Text);    nodetmp.ImageIndex:=treeview1.Selected.SelectedIndex;    nodetmp.SelectedIndex:=treeview1.Selected.SelectedIndex;    for i := 0 to SourceNode.Count - 1 do    begin      MoveNode(nodeTmp, SourceNode.Item[i]);    end;  end;

то сохраняется параметры только выбранного раздела - а вот иконы подразделов не сохраняются....как быть?

[Kpyc]

подскажите процедурку чтобы раскрыть все дерево со всеми узлами

[lmikle]

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

подскажите процедурку чтобы раскрыть все дерево со всеми узлами

Код:

1	TreeView1.Items[0].Expand(True);

[XTen]

Вопрос - почему не работает
при разворачивании раздела изображения не меняется - почему?

Код:

1 2	nodetmp.ImageIndex:=<u>treeview1.Selected.SelectedIndex</u>; nodetmp.SelectedIndex:=<u>treeview1.Selected.SelectedIndex</u>;

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

[NumLock]

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

подскажите процедурку чтобы раскрыть все дерево со всеми узлами

TreeView1.FullExpand - развернуть все дерево
TreeView1.FullCollapse - свернуть все дерево

[Electronic_Arts]

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

Код:

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

Айблиин как я мог такую ошибку допустить...

а как быть подразделами - когда перетаскиваю раздел - который имеет под разделы - все иконки подраздела меняются на то что стоит у раздела - эту проблему как решить..

[Electronic_Arts]

АААА сссори решил проблему - если что вот код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.MoveNode(TargetNode, SourceNode: TTreeNode); var   nodeTmp: TTreeNode;   i: Integer; begin   with TreeView1 do   begin     nodeTmp := Items.AddChild(TargetNode, SourceNode.Text);     nodetmp.ImageIndex:=treeview1.Selected.ImageIndex;     nodetmp.SelectedIndex:=TreeView1.Selected.SelectedIndex;     for i := 0 to SourceNode.Count - 1 do     begin       sourcenode.ImageIndex:=sourcenode.Item[i].ImageIndex;       sourcenode.SelectedIndex:=sourcenode.Item[i].SelectedIndex;       MoveNode(nodeTmp, SourceNode.Item[i]);     end;   end; end;

Но как быть с -

Код:

1	node.expandedimageindex:=2;

не пашет оно....что делать?