Скачать: CL | DM;

Вопрос про 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c