'build data before loading
Sub oncreate
'clear the nodes
organogram.ClearNodes
Dim extraData As Map = CreateMap()
extraData.Put("color", vuetify.COLOR_CYAN)
'add the master node
organogram.AddNode(-1, "1", "B4x", "b4x", "Development RAD Tools", extraData)
Dim extraData3 As Map = CreateMap()
extraData3.Put("color", vuetify.COLOR_INDIGO)
organogram.AddNode("1", "2", "B4i", "b4i", "iOS Development", extraData3)
organogram.AddNode("1", "3", "B4a", "b4a", "Android Development", extraData3)
organogram.AddNode("1", "4", "B4r", "b4r", "Arduino Development", extraData3)
organogram.AddNode("1", "5", "B4j", "b4j", "Desktop Development", extraData3)
'
'add developers
Dim extraData1 As Map = CreateMap()
extraData1.Put("color", vuetify.COLOR_YELLOW)
organogram.AddNode("2", "6", "Engineer", "Engineer", "Erel", extraData1)
organogram.AddNode("2", "7", "Tester", "Tester", "Erel", extraData1)
organogram.AddNode("2", "8", "Release", "Release", "Erel", extraData1)
Dim extraData2 As Map = CreateMap()
extraData2.Put("color", vuetify.COLOR_ORANGE)
'add testers
organogram.AddNode("3", "9", "Engineer", "Engineer", "Erel", extraData2)
organogram.AddNode("3", "10", "Tester", "Tester", "Erel", extraData2)
organogram.AddNode("3", "11", "Release", "Release", "Erel", extraData2)
organogram.Refresh
End Sub