Форум: "Основная";
Поиск по всему сайту: 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;




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




Наверх





Память: 0.71 MB
Время: 0.023 c
3-28409           Lbvf                  2001-12-07 17:10  2002.01.10  
Uhm...


3-28424           Adulteress            2001-12-08 23:53  2002.01.10  
Глюк в DCom приложении или глюк Дельфи?


6-28513           dimen                 2001-10-15 02:19  2002.01.10  
исходник копмпоненты http или как организовать его...


1-28454           Imelda                2001-12-21 17:00  2002.01.10  
Как «сжать» эти строки так чтобы они шли по порядку?


3-28420           Ross                  2001-12-08 21:58  2002.01.10  
Проблема со шрифтами