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;

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