Текущий архив: 2009.01.11;
Скачать: CL | DM;

Вниз

TreeView   Найти похожие ветки 

← →
olegIvan   (2008-11-28 17:01) [0]

Как динамически добовлять запись NewItem и NewSubItem?

---

← →
Сергей М. ©   (2008-11-28 17:04) [1]

MyNewTreeNode := MyTreeView.Items.Add[Child](узел-родитель, подпись_нового_узла)

---

← →
olegIvan   (2008-11-28 17:16) [2]

> MyNewTreeNode := MyTreeView.Items.Add[Child](узел-родитель,
>  подпись_нового_узла)

подробнее если можно

---

← →
Сергей М. ©   (2008-11-28 17:16) [3]

Что не понятно ?

---

← →
Ega23 ©   (2008-11-28 17:20) [4]



procedure TCustomDBTreeView.AddAllNodes(ParentID: Variant;
 ParentNode: TTreeNode);
var
k:Integer;
CurrNode:TTreeNode;
begin
for k:=0 to FTreeItems.Count-1 do
 begin
   With TDBTreeItem(FTreeItems.Items[k]) do
    begin
      if (Node<>nil) or (ParentFieldValue<>ParentID) then Continue;
      if ParentNode=nil then
        CurrNode:=Items.Add(nil, DisplayFieldValue)
      else
        CurrNode:=Items.AddChild(ParentNode, DisplayFieldValue);
      CurrNode.ImageIndex := ImageIndex;
      CurrNode.SelectedIndex := ImageIndex;
      CurrNode.StateIndex := StateIndex;
      CurrNode.OverlayIndex := OverlayIndex;
      Node:=CurrNode;
      CurrNode.Data:=FTreeItems.Items[k];
      AddAllNodes(KeyFieldValue, CurrNode);
    end; // With
 end; // for
end;


Вызывается


procedure TCustomDBTreeView.ActiveChanged;
begin
 if (FTreeItems.Count>0) and (FWndCreated) then
 begin
   try
     Items.BeginUpdate;
     AddAllNodes(FDataLink.MinParent, nil);
   finally
     Items.EndUpdate;
   end;  
 end;
end;


---

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

Текущий архив: 2009.01.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c