Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Вниз

Вопрос про TreeView и ImageList 


$Hic0   (2001-12-21 13:17) [0]

В общем у меня есть TreeView вы который я добавляю итемы динамически с помощью указанного ниже когда. В этом же коде я присваиваю Этим итемам рисунки которые храняться в ImageList. Все хорошо. Добавляется все как мне надо. НО когда я запустив программу выбираю какой-нить итем, в незаивисмости от его Node имидж рядом с ним заменяется на 0-й в списке ImageList. Когда я выбираю другой итем, опять таки выбранный заменяется на нулевой а тот с которого я ушел становится таким каким и должен быть :)
В чем трабла? :)
Procedure TMain_Box.UpdateTree;
var
CurentNode : TTreeNode;
CurentNode1, CurentNode2 : TTreeNode;
i : byte;
Begin
TreeView1.Items.Clear;
CurentNode := TreeView1.Items.Add(nil, AccountAr[1].Login);
CurentNode.ImageIndex:=0;
CurentNode1:=TreeView1.Items.AddChild(CurentNode,"Входящие");
CurentNode1.ImageIndex:=1;
CurentNode2:=TreeView1.Items.AddChild(CurentNode,"Отправленные");
CurentNode2.ImageIndex:=2;
If AcsCount>2 then Begin
For i:=2 to AcsCount-1 do
Begin
CurentNode:= TreeView1.Items.Add(CurentNode,AccountAr[i].Login);
CurentNode.ImageIndex:=0;
CurentNode1:=TreeView1.Items.AddChild(CurentNode,"Входящие");
CurentNode1.ImageIndex:=1;
CurentNode2:=TreeView1.Items.AddChild(CurentNode,"Отправленные");
CurentNode2.ImageIndex:=2;
End;
End;
End;



Gennady   (2001-12-21 14:30) [1]

CurentNode1.SelectedIndex:=CurentNode1.ImageIndex



$Hic0   (2001-12-21 14:45) [2]

А ниче что для этого их придется описывать глобально? :)



McSimm   (2001-12-21 15:25) [3]

Зачем глобально?
Там где присваиваите ImageIndex, добавьте предложенную вам строчку
CurentNode1:=TreeView1.Items.AddChild(CurentNode,"Входящие");
CurentNode1.ImageIndex:=1;
CurentNode1.SelectedIndex:=CurentNode1.ImageIndex




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.009 c
3-28440           Сержик                2001-12-06 13:06  2002.01.10  
Как узнать высоту frMemoView после подстановки в них данных


1-28471           XPatriot              2001-12-21 14:50  2002.01.10  
Работа с файлами.


3-28423           Boss2                 2001-12-08 20:20  2002.01.10  
TreeView/БД


14-28533          anod                  2001-11-15 20:58  2002.01.10  
Блок питания жужит


1-28464           Виктор                2001-12-20 03:35  2002.01.10  
Как узнать дату создания каталога?