Вопрос про TreeView

← →
dimich (2002-05-30 09:01) [0]

У меня вопрос такой. Надо в ран тайме пихать иконку в Imagelist(это я умею) и её присваивать сразу же одной из ветки Treeview. Все выполняется в цикле, т.е. затем снова добавляется новая иконка в ImageList и присваивается ветки Treeview.
Т.е. я видел прогу которая извлекает иконки по путям и располагает их в TreeView или в ListBox, но это не столь важно.

Заранее спасибо...

← →
Song (2002-05-30 09:10) [1]

А в чём проблема-то?
TTreeNode.ImageIndex

← →
Виктор Щербаков (2002-05-30 09:10) [2]

А в чём же вопрос-то?

← →
dimich (2002-05-30 09:27) [3]

for i:=1 to table1.RecordCount do begin
MyTreeNode1 := Add(nil, table1.Fields[1].asstring);
for j:=1 to table2.RecordCount do begin
AddChild(MyTreeNode1,table2.Fields[1].asstring);
Icon := ExtractIcon(HInstance,"C:\telefon\phone.exe",0);
YIcon := TIcon.Create;
YIcon.Handle := icon;
imagelist1.AddIcon(YIcon);
---А что здесь писать чтобы ветке(addchild) присвоить иконку из imagelist?---
.....

← →
Виктор Щербаков (2002-05-30 09:33) [4]

Примерно так:
var ChildNode: TTreeNode;
NewIconIndex: Integer;
...
for i:=1 to table1.RecordCount do begin
MyTreeNode1 := Add(nil, table1.Fields[1].asstring);
for j:=1 to table2.RecordCount do begin
ChildNode := AddChild(MyTreeNode1,table2.Fields[1].asstring);
Icon := ExtractIcon(HInstance,"C:\telefon\phone.exe",0);
YIcon := TIcon.Create;
YIcon.Handle := icon;
NewIconIndex := imagelist1.AddIcon(YIcon);
ChildNode.ImageIndex := NewIconIndex;

Вопрос про TreeView Найти похожие ветки