Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.10;
Скачать: CL | DM;

Вниз

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



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

Текущий архив: 2002.01.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.005 c
1-28468
avr555
2001-12-21 16:50
2002.01.10
Сделать компонент поверх всех.


1-28478
tovSuhov
2001-12-22 13:47
2002.01.10
Как поюзать ListView ?


3-28447
-=CrazyFish=-
2001-12-07 13:27
2002.01.10
record / key deleted


1-28466
GorA
2001-12-21 15:18
2002.01.10
T(Rx)RichEdit


14-28536
tovSuhov
2001-11-16 15:39
2002.01.10
E-mail автоответчик