Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.12.10;
Скачать: [xml.tar.bz2];

Вниз

TreeView изменение рисунка   Найти похожие ветки 

 
Никола   (2006-10-29 09:28) [0]

Здравствуйте, подскажите как обработать событие Expanded (развертывание после щелчка по плюсу) так чтоб рисунок узла менялся , например рисунок в виде папки закрытой, после развертывания сменить на открытую, ну конечно же как обработать событие Collapsed(свертывание), тобишь обратно..

Я делаю вот так:

1. развернули узел
procedure TForm1.TVExpanded(Sender: TObject; Node: TTreeNode);
begin
Node.ImageIndex:=1;
end;

2. свернули узел
procedure TForm1.TVCollapsed(Sender: TObject; Node: TTreeNode);
begin
Node.ImageIndex:=0;
end;

Ту возникают две проблемы: 1. узел который выделен, вообще не хочет менять рисунок.
2. После свертывания узла оба рисунка налагаются друг на друга (если рисунок не в виде папок а в виде крестиков енто видно  :(  )

Заранее спасибо


 
rar ©   (2006-10-29 09:55) [1]


> procedure TForm1.TVExpanded(Sender: TObject; Node: TTreeNode);
>
> begin
  TV.Items.BeginUpdate;
> Node.ImageIndex:=1;
  TVl.Items.EndUpdate;
> end;


  Попробуй так, у меня работает


 
Никола   (2006-10-29 09:59) [2]

Node.StateIndex  :))))) но все равно спасибо...



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

Форум: "Основная";
Текущий архив: 2006.12.10;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.04 c
15-1158621901
Ketmar
2006-09-19 03:25
2006.12.10
Console DM client


2-1164378916
Pauchok++
2006-11-24 17:35
2006.12.10
Преобразование типов


3-1160118755
__dmitry
2006-10-06 11:12
2006.12.10
сортировка вычисляемых полей


15-1163770520
Сало
2006-11-17 16:35
2006.12.10
С днём студента!


2-1164040438
Vasiliy
2006-11-20 19:33
2006.12.10
Как обработать WM_NCMOUSEMOVE на не клиентской области?





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