diff --git a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb index aecd81c5..e26393b7 100644 --- a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb +++ b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb @@ -62,18 +62,19 @@ Public Class frmDocumentResultList SplitContainerControl2.SplitterPosition = _Config.Config.SplitContainer2Distance SwitchDetailContainerHorizontal.Checked = _Config.Config.SplitContainer2Horizontal - If Utils.IsVisibleOnAnyScreen(_Config.Config.WindowLocation) Then - If Utils.LocationIsVisible(_Config.Config.WindowLocation) Then - Location = _Config.Config.WindowLocation - End If - If Utils.SizeIsVisible(_Config.Config.WindowSize) Then - Size = _Config.Config.WindowSize - End If - End If - 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 + End If + If Utils.SizeIsVisible(_Config.Config.WindowSize) Then + Size = _Config.Config.WindowSize + End If + End If + RibbonPageGroupNavigation.Visible = False End If diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb index 3f9160db..8c4bb76e 100644 --- a/GUIs.ZooFlow/frmFlowForm.vb +++ b/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) diff --git a/GUIs.ZooFlow/frmSearchStart.vb b/GUIs.ZooFlow/frmSearchStart.vb index dd84a18b..e9eeeb05 100644 --- a/GUIs.ZooFlow/frmSearchStart.vb +++ b/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()