jj 10.11 minimize ribbon for constructor and restore on mouseover

app/DD-Record-Organiser/frmMain.vb

@@ -1,12 +1,15 @@
 Imports DevExpress.XtraNavBar
-Imports DevExpress.XtraBars.Ribbon
 Imports DevExpress.XtraBars
+Imports DevExpress.XtraBars.Ribbon
+Imports DevExpress.XtraBars.Ribbon.Helpers
+Imports DevExpress.XtraBars.Ribbon.ViewInfo
 Imports System.ComponentModel
 Imports System.Threading
 Imports System.Globalization
 Imports System.Net
 Imports System.Net.Sockets
 
+
 Public Class frmMain
     Dim strIPAddress As String
     Public Shared TIMER_SCAN As New System.Windows.Forms.Timer
@@ -72,7 +75,7 @@ Public Class frmMain
             TIMER_SCAN.Enabled = False
         End Try
     End Sub
-   
+
 
 
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -428,7 +431,7 @@ Public Class frmMain
         Catch ex As Exception
             ClassLogger.Add("Unexpected Error in Load BackgroundImage: " & ex.Message)
         End Try
-       
+
     End Sub
 
     Sub Refresh_TaskReminder()
@@ -800,4 +803,37 @@ Public Class frmMain
         frmLicense_User.ShowDialog()
     End Sub
 
+    Private Sub frmMain_MdiChildActivate(sender As Object, e As EventArgs) Handles Me.MdiChildActivate
+        Dim mainForm As Form = sender
+        Dim constructorFound = False
+
+        For Each childForm As Form In mainForm.MdiChildren
+            If (childForm.Name = "frmConstructor_Main") Then
+                Dim form As frmConstructor_Main = childForm
+                Dim formOpening = Not (form.Disposing Or form.IsDisposed)
+
+                ' Wird das Child Formular gerade geöffnet?
+                If formOpening Then
+                    constructorFound = True
+                End If
+            End If
+        Next
+
+        ' Wenn gerade ein frmConstructor_Main geöffnet wurde, 
+        ' wird ribbonMain minimiert
+        If constructorFound Then
+            ribbonMain.Minimized = True
+        Else
+            ribbonMain.Minimized = False
+        End If
+    End Sub
+
+    Private Sub ribbonMain_MouseMove(sender As Object, e As MouseEventArgs) Handles ribbonMain.MouseMove
+        Dim hitInfo As RibbonHitInfo = ribbonMain.CalcHitInfo(e.Location)
+
+        ' Wenn ribbonMain minimiert ist und die Maus über den Reitern
+        If (ribbonMain.Minimized And hitInfo.HitTest = RibbonHitTest.PageHeader) Then
+            ribbonMain.Minimized = False
+        End If
+    End Sub
 End Class