Add expanded state

GUIs.Monitor/frmMonitor.vb

@@ -33,6 +33,12 @@ Public Class frmMonitor
         Concat(HtmlViewColumns).
         ToList
 
+    Private Enum TristateBoolean
+        [False]
+        [True]
+        Indeterminate
+    End Enum
+
     Private ReadOnly DisplayColumns As New List(Of String) From {"COLUMN1", "COLUMN2", "COLUMN3", "ADDED_WHEN", "STATE", "ICON"}
 
     Private SQLResultGrids As List(Of GridControl)
@@ -233,6 +239,15 @@ Public Class frmMonitor
                                        End Function)
                 Next
 
+                For Each oNode As TreeListNode In TreeListResults.Nodes
+                    Try
+                        Dim oExpanded As TristateBoolean = Utils.NotNull(oNode.Item("EXPANDED"), TristateBoolean.Indeterminate)
+                        ExpandCollapseNode(oNode, oExpanded)
+                    Catch ex As Exception
+                        Logger.Error(ex)
+                    End Try
+                Next
+
                 SetResultCount(TreeListResults.AllNodesCount)
 
                 TreeListResults.Focus()
@@ -510,6 +525,17 @@ Public Class frmMonitor
         End If
     End Sub
 
+    Private Sub ExpandCollapseNode(pNode As TreeListNode, pState As TristateBoolean)
+        Select Case pState
+            Case TristateBoolean.False
+                pNode.Collapse()
+            Case TristateBoolean.True
+                pNode.Expand()
+            Case Else
+                'noop
+        End Select
+    End Sub
+
     Private Sub FillResultHtmlViewer(RichEditControl As RichEditControl, Html As String, Title As String)
         RichEditControl.HtmlText = Html