маленькая деталь в treeview

← →
Miralex © (2003-08-08 13:49) [0]

Значит так:
у меня есть дерево treeview в котором отображаються папки и файлы
и различаються по Node.Data (если 1 то папка если 2 то файл)

Делаю процедуру обработки картинок, где ImageIndex 1 - картинка файла, ImageIndex 2 - картинка закрытой папки и ImageIndex 3 - картинка открытой папки!

procedure TForm1.TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);
begin
Node.ImageIndex := Integer(Node.Data);
if Node.Expanded then Node.ImageIndex := 3;
if Node.Selected then
begin
Node.SelectedIndex := Integer(Node.Data);
if Node.Expanded then Node.SelectedIndex := 3;
end;
end;

Лажа получаеться с папками кода они выделены!
Если папка выделена и ее открыть и потом закрыть, то картинка меняеться на открытую папку НО назад на закрытую нехочет!
Если я уберу выделение с етой папки (тыкну мышкой в другой место дерева) то папка отображаеться уже нормально!

Помогите мне разобраться!
Я так понял что я не правильно опрашиваю папку (открыта или закрыта).
А как правильно написать?

← →
Семен Сорокин © (2003-08-08 14:41) [1]

обрабатывай OnExpanded, OnCollapsed и высталяй там ImageIndex и SelectedIndex

маленькая деталь в treeview Найти похожие ветки