AutoHotkey Community

         INSERT        - add new item
   SHIFT INSERT        - add new group
         DELETE        - delete item or group
   SHIFT   UP          - move item up   
   SHIFT  DOWN         - move item down

TVX  - Initialisation function. Mandatory to call before you show the TreeView.

Walk - Walk the menu and rise events. Check out Save button in Example
Move - Moves tree view item up or down

Copy - Copies menu item or group to another location. Exists in the code as TVX_CopyItem, but still not documented and properly interfaced.

   Gui, Add, TreeView, h400 w300 vMyTree

   root  := TV_Add("Root", "" , "Expand")
   loop, 10
      P     := TV_Add(A_Index, root)

   TVX("MyTree", "Handler", "HasRoot CollapseOnMove ")
   Gui, Show,  autosize
return


Handler:
return

#include TVX.ahk   

;----------------------------------------------------------------------------------------
; Function:     TVX
;               Initialisation function. Mandatory to call before you show the TreeView.
;
; Parameters:
;               pTree       - AHK name of the TreeView control
;               pSub        - Subroutine for TreeViewX, the same rules as in g.
;               pOptions    - String containing space delimited options for setting up TreeViewX
;               pUserData   - Base name of the array holding user data.
;                             This array is indexed using tree view item handles.
;           
; Options:
;               HasRoot     - TreeViewX has root item - the one containing all other items.
;                             Root item can't be moved, edited or delited, and items can not
;                             be moved or created outside of it. This option need to be set
;                             after root is already added to the menu, as TreeViewX need to
;                             know the root menu handle.
;                         
;           CollapseOnMove  - When moving item out of of its container, this option makes container collapse
;           EditOnInsert    - Automaticaly enters edit mode upon insertion of new item
;
; Example:
;>
;>          TVX("MyTree", "Handler", "HasRoot CollapseOnMove")
;>
;----------------------------------------------------------------------------------------
; Function:     Walk
;               Walk the menu and rise events
;
; Parameters:
;               root        - menu to iterate, can be simple item also
;               label       - event handler
;               event_type  - event argument 1 - Event type
;               event_param - event argument 2 - Item upon which event is rised
;           
;
;                  Type                       Param
;
;           +  - Iteration start,           root handle
;           M  - Menu item,                 menu handle
;           I  - Item,                      item handle
;           E  - End of menu                menu handle         (pseudo item)
;           -  - Iteration end              root handle         (pseudo item)
;
;----------------------------------------------------------------------------------------------
; Function:     Move
;               Moves tree view item up or down
;
; Parameters:
;               item        -   Handle of the item to move
;               direction   -   "u" or "d" (Up & Down)
;
; Returns:
;               Handle of the item
;
; Remarks:
;               Item to be moved is copied to the new place then source item is deleted. This
;               creates new handle for the moved item. New handle will be returned by the function.
;

OnBtnClick:
   TVX_Walk(root, "SaveHandler", Event, Item)
return

SaveHandler:
    TV_GetText(txt, Item)                   
    if Event = +                                ;start of iteration, called only for root
    {
        FileDelete, _out.txt
        FileAppend %txt%`n, _out.txt
        line := "|-"
    }

    if Event = E
        StringTrimRight, line, line, 2          ;end of group
   
    if Event in I,M                             ;I=simple item, M=group item 
        FileAppend %line%%txt%, _out.txt


    if Event = M                                ;start of group
        line .= "--"
   
    if Event = -                                ;end of iteration
        Msgbox, TVX saved in _out.txt
return

Gui, Add, TreeView, vMyTreeView

P1 := TV_Add("First parent")
P1C1 := TV_Add("Parent 1's first child", P1)  ; Specify P1 to be this item's parent.
P2 := TV_Add("Second parent")
P2C1 := TV_Add("Parent 2's first child", P2)
P2C2 := TV_Add("Parent 2's second child", P2)
P2C2C1 := TV_Add("Child 2's first child", P2C2)
P2C2C1 := TV_Add("Child 2's grandchild", P2C2C1)

;infinite loop when coping an item to its child
;e.g. cannot copy P2 to the first child of P2C2C1

;if P2 is an ancestor of P2C2C1 (which it is), then the Copy cannot be done
;commenting out this check results in an infinite loop
if !TVX_isAncestor(P2, P2C2C1)
    TVX_CopyItem("First", P2C2C1, P2)
   
;however, since P1 is not an Ancestor of P2C2, this copy can be done
if !TVX_isAncestor(P1, P2C2)
    TVX_CopyItem("First", P2C2, P1)

Gui, Show

return

TVX_isAncestor(Ancestor, TestItem)
{
    ;returns true if Ancestor is an ancestor of the TestItem
   
    Loop
    {
        if (Ancestor = TestItem)
            return true
           
        if (!TestItem := TV_getParent(TestItem))
        {
            ;TestItem has no parent
            return false
        }
    }
}

TVX_sel := TVX_Move( TVX_prevSel, TVX_lastKey=40 ? "d" : "u")

if (TVX_bSelfSelect)   {   
   TVX_bSelfSelect := false
   return true
}   

   ;insert
   if pKey = 45
   {
      tp := TV_GetParent(TVX_sel)
      if (TVX_sel = TVX_root)
         tp := TVX_root

      if TV_Get(TVX_sel, "E")
         tp := TV_Add("New Item", TVX_sel, "Select Bold First")
      else
         tp := TV_Add("New Item", tp, "Select Bold " . TVX_sel)
      %TVX_UserData%%tp% = ; clear data
      if GetKeyState("Shift")
      {
         tttt := TV_Add("New Item", tp, "Bold First ")
         %TVX_UserData%%tttt% = ; clear data
         TV_Modify(tp,"Expand", "New Menu")
      }

      if (TVX_EditOnInsert)
      {
         TVX_bSelfPress := TVX_bSelfSelect := true
         TV_Modify(tp, "Select")
         Send, {F2}
      }

      return true
   }

         ; if submenu is expanded, go into it
         t := TV_Get(p, "E")
         if (t = p)
         {
            newc := TV_GetChild(p)
            Loop
            {
               c := TV_GetNext(newc)
               if c = 0
                  break
               newc := c
            }
;            newc := "First"
            newp := t
         }