При создании Node в TreeView загонять соответствующие картинки

← →
Anatoli (2004-04-17 16:13) [0]

Подключаю к свойству TreeView.Images список картинок ImageList1
В коде делаю так:
tnJournal,tnArchives: TTreeNode; {.-.-.-.-.} tnJournal:=fmMainTreeView.Items.Add(nil,"Журнал"); tnArchives:=fmMainTreeView.Items.Add(nil,"Архив"); tnJournal.ImageIndex:=0; tnArchives.ImageIndex:=1;
Также создаются поветки
Но все ветки и подветки имеют последнюю картинку
(т.е. с индексом 1)

Поскажите, пожалуйста, кто с таким уже работал

← →
@Ujin © (2004-04-17 16:17) [1]

просто при создании подветок также указывай нужный индекс

← →
Anatoli (2004-04-17 16:24) [2]

>@Ujin

fmMainTreeView.Items.AddChild(tnJournal,fmMainQuery.FieldByName("JournalName").AsString);

А как здесь указать нужный индекс?

← →
@Ujin © (2004-04-17 16:26) [3]

with fmMainTreeView.Items.AddChild(tnJournal,fmMainQuery.FieldByName("JournalName").AsString) do begin
ImageIndex := ?;
// трали вали...
end;

← →
Anatoli (2004-04-17 16:32) [4]

>@Ujin
Спасибо, помогло.
Но вот еще один вопрос: Когда я выбираю мышкой какой-то Node, то картинка на нем меняется на картинку с индексом 1. Заранее благодарю.

Лучше обрабатывать событие добавления узла. Вот пример...

procedure TForm3.TeTreeView1Addition(Sender: TObject; Node: TTreeNode); { При добавлении узла задать ему картинку } begin with Node do if Level = 0 then begin ImageIndex:=2; SelectedIndex:=2; end else begin ImageIndex:=0; SelectedIndex:=1; end; end;

Про свойства TTreeNode.ImageIndex и TTreeNode.SelectedIndex читать в справке

При создании Node в TreeView загонять соответствующие картинки Найти похожие ветки