Главная страница
    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.036 c
14-1091553860
DDA
2004-08-03 21:24
2004.08.22
jmp +$06


3-1090843450
AleXqwq
2004-07-26 16:04
2004.08.22
ADO+MySql


1-1091810693
Lamak
2004-08-06 20:44
2004.08.22
Про RichEdit


14-1091175002
ОлегЪ
2004-07-30 12:10
2004.08.22
Помогите плиз!


9-1083603086
Tsaiper
2004-05-03 20:51
2004.08.22
random збесился. что делать?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский