Zooflow: Implement Single file Search Results, Rework client wrt Address parsing

GUIs.Common/frmDocumentResultList.vb

@@ -117,7 +117,7 @@ Public Class frmDocumentResultList
     Private Function GetOperationMode() As OperationMode
         Dim oOperationMode As OperationMode
 
-        If Environment.Service.IsActive AndAlso Environment.Service.Address <> String.Empty Then
+        If Environment.Service.Client.IsOnline AndAlso Environment.Service.Address <> String.Empty Then
             oOperationMode = OperationMode.WithAppServer
         Else
             oOperationMode = OperationMode.NoAppServer
@@ -205,6 +205,8 @@ Public Class frmDocumentResultList
                 panelContainerStatus.Visibility = Docking.DockVisibility.Hidden
             End If
 
+
+
             ' Hide the complete Navigation Ribbon Group if desired
             RibbonPageGroup_Navigation.Visible = Params.ShowBackNavigation
 
@@ -217,6 +219,15 @@ Public Class frmDocumentResultList
             chkGridShowGrouping.Checked = LayoutManager.GetGroupPanelVisible()
             chkGridShowTitle.Checked = LayoutManager.GetBandTitleVisible()
 
+            ' This needs to done be after loading the grid
+            ' so we can set the row handle and start loading the (only) file
+            If Params.ShowFileList = False Then
+                DockPanelFileList.HideImmediately()
+                GridView1.FocusedRowHandle = 0
+            Else
+                DockPanelFileList.Show()
+            End If
+
         Catch ex As Exception
             ErrorHandler.ShowErrorMessage(ex, "Form Load", "Error while loading results")
 
@@ -449,9 +460,9 @@ Public Class frmDocumentResultList
 #End Region
 
     Private Function InitAppServer() As Boolean
-        Dim oSplit As List(Of String) = Environment.Service.Address.Split(":").ToList()
-        Dim oAddress As String = oSplit.Item(0)
-        Dim oPort As Integer = oSplit.Item(1)
+        Dim oServerAddress = Client.ParseServiceAddress(Environment.Service.Client.ServerAddress)
+        Dim oAddress As String = oServerAddress.Item1
+        Dim oPort As Integer = oServerAddress.Item2
 
         Client = New Client(LogConfig, oAddress, oPort)
         ControlManager = New AttributeControls(LogConfig, Environment, Client)
@@ -1113,4 +1124,8 @@ Public Class frmDocumentResultList
 
         GridBuilder.WithFontSizeDelta(Config.Config.GridFontSizeDelta)
     End Sub
+
+    Private Sub RibbonControl_Click(sender As Object, e As EventArgs) Handles RibbonControl.Click
+
+    End Sub
 End Class