Expand and Collapse tree
-------------------------------------------------- To Collapse tree nodes PROCEDURE collapse_tree IS vnode ftree.node; vhtree ITEM; vstate varchar2(30); BEGIN -- Search the tree identifiant -- vhtree := Find_Item('TREE_BLOCK.HTREE'); -- Search the root -- vnode := Ftree.Find_Tree_Node(vhtree, ''); -- Collapse all nodes -- WHILE NOT ftree.ID_NULL(vnode) LOOP vstate := Ftree.Get_Tree_Node_Property(vhtree, vnode, Ftree.NODE_STATE); IF vstate = Ftree.EXPANDED_NODE THEN Ftree.Set_Tree_Node_Property(vhtree, vnode, Ftree.NODE_STATE, Ftree.COLLAPSED_NODE); END IF; vnode := Ftree.Find_Tree_Node(vhtree, '', Ftree.FIND_NEXT,Ftree.NODE_LABEL, '', vnode); END LOOP; END; To Expand tree 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 -- ...