B4J Library TreeTableView Helper Class

Hi

Thanks to @stevel05 , Ive managed to implement this class..

Put a TreeTableView in a form..

Private tv As SithasoB4JTreeTableView

Initialize and define the context menu

tv.Initialize(Me, Root, SDTreeTable, "tv")
    tv.Editable = True
    tv.TableMenuButtonVisible = True
    tv.AddMenuItem("Add", Chr(0xF067))
    tv.AddMenuItem("Edit", Chr(0xF040))
    tv.AddMenuItem("Delete", Chr(0xF014))
    tv.AddMenuItem("Up", Chr(0xF062))
    tv.AddMenuItem("Down", Chr(0xF063))
    tv.AddMenuItem("Left", Chr(0xF060))
    tv.AddMenuItem("Right", Chr(0xF061))
    tv.RefreshMenu

The add some parent children..

'Details, Add, Edit, Delete, Up, Down
    tv.AddItem("", "prj1", "Anele Mbanga (Mashy)", Array("A","B","C","D","E"))
    tv.AddItem("prj1", "page1", "Page 1", Array("A","B","C","D","E"))
    tv.AddItem("prj1", "page2", "Page 2", Array("A","B","C","D","E"))
    tv.AddItem("prj1", "page3", "Page 3", Array("A","B","C","D","E"))
    tv.AddItem("page1", "page4", "Page 4", Array("A","B","C","D","E"))
    tv.AddItem("page1", "page5", "Page 5", Array("A","B","C","D","E"))
    tv.AddItem("page1", "page6", "Page 6", Array("A","B","C","D","E"))
    tv.AddItem("page6", "page7", "Page 7", Array("A","B","C","D","E"))
    tv.AddItem("page4", "page8", "Page 8", Array("A","B","C","D","E"))
    'search

Perform some functions via code

Dim f As TreeTableItem = tv.SearchItemByID("page6")
    Log(f)
    tv.ExpandItemByID("prj1")
    tv.ExpandItemByID("page1")
    tv.ExpandItemByID("page6")
    tv.selectItemByID("page7")
    Log(tv.getIndexOfItemByID("page5"))
    Log(tv.getLevelOfItemByID("page7"))
    Log(tv.getItemIDByName("Page 3"))
    tv.DeleteItemByID("page8")

Perform some functions via the context menu..

Private Sub tv_MenuClick(menuID As String)
    Select Case menuID
    Case "Add"
    Case "Edit"
    Case "Delete"
        tv.DeleteItem(tv.SelectedItem)
    Case "Up"
        tv.MoveItemUp(tv.SelectedItem)
    Case "Down"
        tv.MoveItemDown(tv.SelectedItem)
    Case "Left"
        tv.MoveItemLeft(tv.SelectedItem)
    Case "Right"        
        tv.MoveItemRight(tv.SelectedItem)
    End Select
End Sub

Trap Events fired by some processes

'fire when a node is deleted
Sub tv_deleted(node As TreeNode)
    Log("tv_deleted")
    Log(node)
End Sub

Sub tv_movedleft(node As TreeNode)
    Log("tv_movedleft")
    Log(node)
End Sub

Sub tv_movedup(node As TreeNode)
    Log("tv_movedup")
    Log(node)
End Sub

Sub tv_moveddown(node As TreeNode)
    Log("tv_moveddown")
    Log(node)
End Sub


Sub tv_movedright(node As TreeNode)
    Log("tv_movedright")
    Log(node)
End Sub

Enjoy!

 

[Mashiane]