AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ms

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-07-26 11:09:38 +02:00
parent 0f8f8ddf65
commit 3ae24fe471
35 changed files with 59894 additions and 1899 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
app/DD-Record-Organizer/ClassNodeNavigation.vb
View File

@@ -48,7 +48,7 @@
Dim expression As String
expression = "PARENT_GUID = 0"
Dim MAIN_NODES() As DataRow
' Use the Select method to find all rows matching the filter.
'Use the Select method to find all rows matching the filter.
MAIN_NODES = DT_TREEVIEW_NODES.Select(expression, "SEQUENCE, NODE_CAPTION")
' For each row create a Node
For i = 0 To MAIN_NODES.GetUpperBound(0)
@@ -68,7 +68,7 @@
Next
MAIN_NODE.ImageIndex = index
MAIN_NODE.SelectedImageIndex = index
CheckSubNodes(DT_TREEVIEW_NODES, MAIN_NODES(i)("GUID"), TREEVIEW_IMAGELIST, MAIN_NODE)
MAIN_NODE = CheckSubNodes(DT_TREEVIEW_NODES, MAIN_NODES(i)("GUID"), TREEVIEW_IMAGELIST, MAIN_NODE, MAIN_NODES(i)("EXPAND_NODE"))
'Add the node
mytrv.Nodes.Add(MAIN_NODE)
@@ -81,7 +81,7 @@
Return Nothing
End Try
End Function
Private Shared Function CheckSubNodes(DT_TREEVIEW_NODES As DataTable, PARENT_GUID As Integer, TREEVIEW_IMAGELIST As ImageList, MY_NODE As TreeNode)
Private Shared Function CheckSubNodes(DT_TREEVIEW_NODES As DataTable, PARENT_GUID As Integer, TREEVIEW_IMAGELIST As ImageList, MY_NODE As TreeNode, EXPAND As Boolean)
Dim ENTITY_ID As Integer
Dim expression As String
expression = "PARENT_GUID = " & PARENT_GUID.ToString
@@ -106,10 +106,15 @@
Next
SUB_NODE.ImageIndex = index
SUB_NODE.SelectedImageIndex = index
CheckSubNodes(DT_TREEVIEW_NODES, SUB_NODE_ROW(i)("GUID"), TREEVIEW_IMAGELIST, SUB_NODE)
CheckSubNodes(DT_TREEVIEW_NODES, SUB_NODE_ROW(i)("GUID"), TREEVIEW_IMAGELIST, SUB_NODE, SUB_NODE_ROW(i)("EXPAND_NODE"))
'Add the node
MY_NODE.Nodes.Add(SUB_NODE)
'If EXPAND = True Then
' MY_NODE.ExpandAll()
'End If
Next
Return MY_NODE
End Function
Public Shared Function CreateTreeViewNodesNew(DT_TREEVIEW_PER_CONTROLS As DataTable, TREEVIEW_IMAGELIST As ImageList)