Форум: "Основная";
Текущий архив: 2004.08.22;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.033 c