| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TreeView изменение рисунка [D7]
Никола © (2006-10-29 09:28:00)Здравствуйте, подскажите как обработать событие 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. После свертывания узла оба рисунка налагаются друг на друга (если рисунок не в виде папок а в виде крестиков енто видно :( )
Заранее спасибо
Никола (2006-10-29 09:59:00) [1]Node.StateIndex :))))) но все равно спасибо...
rar (2006-10-29 09:55:00) [2]
> procedure TForm1.TVExpanded(Sender: TObject; Node: TTreeNode);
>
> begin
TV.Items.BeginUpdate;
> Node.ImageIndex:=1;
TVl.Items.EndUpdate;
> end;
Попробуй так, у меня работает
| |
