Скачать: CL | DM;

TreeView и ImageList   Найти похожие ветки 

← →
Alex870   (2004-08-06 22:47) [0]

Уважаемые знатоки VCL!
Проблема с TTreeView. Я хочу, чтобы его TTreeNode имели разные иконки. Для этого использую TImageList и пишу так:

procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.Images := ImageList1;
TreeView1.Items.Add(nil,"Node1");
TreeView1.Items.Item[0].ImageIndex := 0;
TreeView1.Items.Add(nil,"Node2");
TreeView1.Items.Item[1].ImageIndex := 1;
TreeView1.Items.Add(nil,"Node3");
TreeView1.Items.Item[2].ImageIndex := 2;
end;

однако после первого щелчка мышью по любому из TNode его иконка становится такой, какая иконка стоит под нулевым индексом в ImageList1. Подскажите пожалуйста как с этим бороться. Зарание большое спасибо!

---

← →
афвуд   (2004-08-07 13:11) [1]

SelectedIndex! :)

Вот правильный код(хотя я его не проверял):

procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.Images := ImageList1;
TreeView1.Items.Add(nil,"Node1");
TreeView1.Items.Item[0].ImageIndex := 0;
TreeView1.Items.Item[0].SelectedIndex := 0;
TreeView1.Items.Add(nil,"Node2");
TreeView1.Items.Item[1].ImageIndex := 1;
TreeView1.Items.Item[1].SelectedIndex := 1;
TreeView1.Items.Add(nil,"Node3");
TreeView1.Items.Item[2].ImageIndex := 2;
TreeView1.Items.Item[2].SelectedIndex := 2;
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c