Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/Monorepo

GUIs.Common/DocumentResultList/frmDocumentResultList.vb

@@ -62,6 +62,10 @@ Public Class frmDocumentResultList
             SplitContainerControl2.SplitterPosition = _Config.Config.SplitContainer2Distance
             SwitchDetailContainerHorizontal.Checked = _Config.Config.SplitContainer2Horizontal
 
+            If _IsLegacy = True Then
+                RibbonPageGroupNavigation.Visible = True
+            Else
+                ' Location and size will be managed by the ZooFlow Search Window
                 If Utils.IsVisibleOnAnyScreen(_Config.Config.WindowLocation) Then
                     If Utils.LocationIsVisible(_Config.Config.WindowLocation) Then
                         Location = _Config.Config.WindowLocation
@@ -71,9 +75,6 @@ Public Class frmDocumentResultList
                     End If
                 End If
 
-            If _IsLegacy = True Then
-                RibbonPageGroupNavigation.Visible = True
-            Else
                 RibbonPageGroupNavigation.Visible = False
             End If
 

GUIs.ZooFlow/frmFlowForm.vb

@@ -103,7 +103,7 @@ Public Class frmFlowForm
         Opacity = OPACITY_SHOWN
     End Sub
 
-    Private Sub frmFlowForm_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove
+    Private Sub frmFlowForm_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove, PictureBox1.MouseMove
         If e.Button = MouseButtons.Left Then
             ClassWin32.ReleaseCapture()
             ClassWin32.SendMessage(Handle, ClassWin32.WM_NCLBUTTONDOWN, ClassWin32.HTCAPTION, 0)

GUIs.ZooFlow/frmSearchStart.vb

@@ -906,15 +906,35 @@ Public Class frmSearchStart
 
                 Dim oForm As New frmDocumentResultList(My.LogConfig, oEnvironment, oParams)
                 oForm.Show()
+
+                ' Position Result Window below this window
+                oForm.Location = GetResultFormLocation()
+                oForm.Size = GetResultFormSize()
             Else
                 Display_InfoItem("No results for this searchcombination!", Color.OrangeRed)
             End If
         Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
         Finally
             SplashScreenManager.CloseOverlayForm(oHandle)
         End Try
     End Sub
 
+    Private Function GetResultFormLocation() As Point
+        Dim oX = Location.X
+        Dim oY = Location.Y + Size.Height
+
+        Return New Point(oX, oY)
+    End Function
+
+    Private Function GetResultFormSize() As Size
+        Dim oWidth = Size.Width
+        ' TODO: Smarter height calculation, maybe depending on screen height and parent form location
+        Dim oHeight = 400
+
+        Return New Size(oWidth, oHeight)
+    End Function
+
     Private Sub frmSearchStart_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
         If e.KeyCode = Keys.F2 Then
             Start_Search()