Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос про TreeView [D5, Win95/98]

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

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

Виктор Щербаков (2002-05-30 09:33:00) [1]
Примерно так:
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;

dimich (2002-05-30 09:27:00) [2]
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?---
.....

Song (2002-05-30 09:10:00) [3]
А в чём проблема-то?
TTreeNode.ImageIndex

Виктор Щербаков (2002-05-30 09:10:00) [4]
А в чём же вопрос-то?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »