Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты!
Как в TreeView сделать так, чтобы при разорачивании ветви была одна иконка, а при сворачивании другая?

изначально делал вот так для изменения иконки,но при клике по строке иконки меняются (imageindex=0)

    procedure TForm1.TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);
    begin
     if node.Level = 0 then node.ImageIndex:=1;
     if node.Level = 1 then node.ImageIndex:=0;
     if node.Level = 2 then node.ImageIndex:=0;
    end;
 
    procedure TForm1.TreeView1GetSelectedIndex(Sender: TObject; Node: TTreeNode);
    begin
     if node.Level = 0 then node.ImageIndex:=1;
     if node.Level = 1 then node.ImageIndex:=0;
     if node.Level = 2 then node.ImageIndex:=0;
    end;

Вопрос задал: casio (статус: Посетитель) Вопрос отправлен: 7 февраля 2012, 01:54 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Чернышев

Здравствуйте, casio!
у Node есть такое свойство как SelectedIndex - индекс картинки при выделении строки
по умолчанию SelectedIndex=0
измени его на индекс другой иконки, или на -1 чтобы иконки вообще не было

Ответ отправил: Чернышев (статус: 1-ый класс) Время отправки: 19 марта 2012, 18:00

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.