TreeView i ImageList

0

Witam. Mam pięć komponentów: TreeView1, Button1, Button2, Edit1 i ImageList1.
buttonem1 uruchamiam prostą procedurkę:
TreeView1.Items.Add(nil, Edit1.Text);
buttonem 2:
TreeView1.Items.AddChild(TreeView1.Selected,Edit1.Text);
I wszystko jest cool.

  1. Co jednak zrobić aby do dodawanego itemu dodać bitmapę z imagelist?
  2. Jak obsłużyć obie procedurki jednym przyciskiem?
0 
    TreeView1.Items.Item[TreeView1.Items.Count - 1].ImageIndex := numer_obrazka_z_imagelista;

Tylko oczywiście musi być ustawione TreeView1.Images na odpowiedni TImageList.

if TreeView1.Selected.Index = -1 then
  TreeView1.Items.Add(nil, Edit1.Text)
else
  TreeView1.Items.AddChild(TreeView1.Selected, Edit1.Text);
0 
var
 Node: TTreeNode;
begin

  if TreeView1.Selected.index = -1 then
     Node := TreeView1.Items.Add(nil, Edit1.Text)
  else
     Node := TreeView1.Items.AddChild(TreeView1.Selected, Edit1.Text);

  Node.ImageIndex := Numerek_obrazka;

end;

Jeszcze należałoby dodać w OnMouseDown:

TreeView1.Selected := TreeView1.GetNodeAt(X, Y);

Bo inaczej zawsze będzie jakiaś gałąź zaznaczona i nie uda się dodać nowej głównej gałęzi.

1 użytkowników online, w tym zalogowanych: 0, gości: 1