Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
14-1091355954
dimon_programmer
2004-08-01 14:25
2004.08.22
Как достать темы для XP, подскажите!


14-1091710708
Ш-К
2004-08-05 16:58
2004.08.22
Пишу макрос


3-1091101972
SergP
2004-07-29 15:52
2004.08.22
Проблема с запросом...(LEFT JOIN)


14-1091578503
Soft
2004-08-04 04:15
2004.08.22
Microsoft пытаются запретить продавать Windows!!!


14-1091186602
WondeRu
2004-07-30 15:23
2004.08.22
Какая часть Вашего дохода уходит на "поддержание"...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский