Форум: "Основная";
Поиск по всему сайту: 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.024 c
3-28407           urii                  2001-12-06 10:35  2002.01.10  
Вопрос по таблице Paradox


4-28558           Viking                2001-11-08 19:44  2002.01.10  
Сворачивание окна


4-28564           YUS                   2001-11-09 08:04  2002.01.10  
Создание Dll.


3-28437           Polevi                2001-12-06 18:11  2002.01.10  
MIDAS


6-28521           Serguar               2001-10-10 12:42  2002.01.10  
Вопрос по TUDPServer/TUDPClient из Indy