Скачать: CL | DM;

При создании 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. Заранее благодарю.

---

← →
dmitry99 ©   (2004-04-17 17:02) [5]

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

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 читать в справке

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c