بسم الله الرحمن الرحيم

بعد السلام،

لدي استفسار يا شباب عن ال Tree، لدي Tree ، واريد ان اعمل button لعمل expand all nodes و collapse all nodes

وشكرا جزيلا

to collapse all nodes

PROCEDURE Implose_tree IS
node ftree.node; 
htree ITEM; 
state varchar2(30); 

BEGIN -- Search the tree identifiant -- 
htree := Find_Item('BL_TREE.MENU'); 

-- Search the root --
node := Ftree.Find_Tree_Node(htree, ''); 

-- Collapse all nodes --
WHILE NOT ftree.ID_NULL(node) LOOP 
state := Ftree.Get_Tree_Node_Property(htree, node, Ftree.NODE_STATE); 
IF state = Ftree.EXPANDED_NODE THEN 
Ftree.Set_Tree_Node_Property(htree, node, Ftree.NODE_STATE, Ftree.COLLAPSED_NODE); 
END IF; 
node := Ftree.Find_Tree_Node(htree, '', Ftree.FIND_NEXT,Ftree.NODE_LABEL, '', node); 

END LOOP; 

END; 

-- to expand all nodes

PROCEDURE explose_tree IS
node ftree.node; 
htree ITEM; 
state varchar2(30); 

BEGIN -- Search the tree identifiant --
htree := Find_Item('BL_TREE.MENU'); 

-- Search the root -- 
node := Ftree.Find_Tree_Node(htree, ''); 

-- Expand all nodes --
WHILE NOT Ftree.ID_NULL(node) LOOP 
state := Ftree.Get_Tree_Node_Property(htree, node, Ftree.NODE_STATE); 
IF state = Ftree.COLLAPSED_NODE THEN 
Ftree.Set_Tree_Node_Property(htree, node, Ftree.NODE_STATE, Ftree.EXPANDED_NODE); 
END IF; 

node := Ftree.Find_Tree_Node(htree, '', ftree.find_NEXT,Ftree.NODE_LABEL,'', node); 

END LOOP; 


END;

منقول

تم تعديل 29 يونيو 200916 سنة بواسطة mustafagamiel