[Electronic_Arts]

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

Код:

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

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

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

ImageIndex
SelectedIndex
StateIndex
Expandedindex

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

[XTen]

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

Код:

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;

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

Код:

       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;
при разворачивании раздела изображения не меняется - почему?

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

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

Код:

 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

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

Код:

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

[XTen]

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

Код:

  nodetmp.ImageIndex:=treeview1.Selected.SelectedIndex;
  nodetmp.SelectedIndex:=treeview1.Selected.SelectedIndex;

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

[NumLock]

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

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

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

[Electronic_Arts]

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

Код:

  nodetmp.ImageIndex:=treeview1.Selected.SelectedIndex;
  nodetmp.SelectedIndex:=treeview1.Selected.SelectedIndex;

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

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

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

[Electronic_Arts]

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

Код:

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;

Но как быть с -

Код:

node.expandedimageindex:=2;

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