Zooflow: Replace old Usermenu, waiting overlay for search and globix

GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb

@@ -15,6 +15,7 @@ Imports DigitalData.Modules.Language.Utils
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Patterns
 Imports DevExpress.XtraEditors
+Imports DevExpress.XtraSplashScreen
 
 Public Class frmGlobix_Index
 #Region "+++++ Variablen ++++++"
@@ -39,6 +40,8 @@ Public Class frmGlobix_Index
     Private Property Database As DatabaseWithFallback
     Private Property Patterns2 As Patterns2
 
+    Private Property OverlayHandle As IOverlaySplashScreenHandle
+
     'Public Class ControlMeta
     '    Public Property IndexName As String
     '    Public Property IndexType As String
@@ -67,14 +70,15 @@ Public Class frmGlobix_Index
         ' Abbruchzähler zurücksetzen
         CancelAttempts = 0
 
+        ' Show Loading Overlay
+        OverlayHandle = SplashScreenManager.ShowOverlayForm(Me)
+
         My.Application.Globix.INDEXING_ACTIVE = True
     End Sub
 
     Private Async Sub frmGlobix_Index_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         Cursor = Cursors.Default
 
-        SplashScreenManager.ShowWaitForm()
-
         checkItemTopMost.Checked = My.UIConfig.Globix.TopMost
         TopMost = My.UIConfig.Globix.TopMost
         BringToFront()
@@ -176,7 +180,7 @@ Public Class frmGlobix_Index
         Catch ex As Exception
             Logger.Warn("Unexpected error DTTBGI_REGEX_DOCTYPE - ErrorMessage: " & vbNewLine & ex.Message)
         Finally
-            SplashScreenManager.CloseWaitForm()
+            SplashScreenManager.CloseOverlayForm(OverlayHandle)
             FormLoaded = True
         End Try
     End Sub