TreeView

[W0LF]

Видел в DelphiWorld дерево (правда то не TreeView, а TdxTreeList)...
Можно ли в TreeView добавить иконки по такому принипу?



Если нет, то какой компонент способен на такое?

И еще одно, я в TreeView строю дерево программно (количество элементов может быть от 1 до 100000 (это примерное число, может быть и больше)). Как можно уменьшить время их создания? Пробовал "Реактивный TreeView" (HETreeView), но загрузка 30000 элементов длиться примерно 1.5 - 2 минуты...

[psycho-coder]

1-й)
Как два пальца...

procedure TForm1.FormActivate(Sender: TObject);
begin
  // Create lists big and small icons
  TreeView1.Images := ImageList1;
end;

при добавлении

var
  MyNode: TTreeNode;
begin
  with TreeView1.Items do
  begin
    MyNode := Add(nil, {название});
    Item[MyNode.Index].ImageIndex := {Номер значка};
  end;
end;

2-е)
Попробуй перед заполнением TreeView сделать

  TreeView1.Items.BeginUpdate;
  TreeView1.Items.Clear;
  { Заполнение }
  TreeView1.Items.EndUpdate;

P.S. на скрине заполнение стандартными значками винды))

[W0LF]

О, а у меня как раз создаеться дерево файлов и каталогов... Как присвоить им стандартные иконки ?

[psycho-coder]

Как то так. Поковыряйся))
ListView2 в данном случае TreeView