Zooflow: Make PM Path configurable

GUIs.ZooFlow/frmFlowForm.vb

@@ -153,6 +153,7 @@ Public Class frmFlowForm
 
     ' Constants
     Private Const OPACITY_INITIAL = 0
+    Private Const OPACITY_FINAL = 1
     Private Const OPACITY_HIDDEN = 0.65
     Private Const OPACITY_SHOWN = 0.85
 
@@ -184,7 +185,7 @@ Public Class frmFlowForm
     Private ESCHitCount As Integer = 0
     Private IndexForm As frmGlobix_Index
     Private AdminForm As frmAdmin_Start
-
+    Private InitialOverlayHandle As IOverlaySplashScreenHandle
 
     Private RunningTask As Task
     Private RunningTaskTokenSource As New CancellationTokenSource
@@ -196,6 +197,9 @@ Public Class frmFlowForm
     Private WithEvents Watcher As Watcher = Watcher.Singleton
 
     Private Sub frmFlowForm_Load(sender As Object, e As EventArgs) Handles Me.Load
+        ' === Set Form ===
+        OverlayWindowOptions.Default.DisableInput = False
+
         ' === Show Splash Screen ===
         SplashScreenManager.ShowForm(Me, GetType(frmSplash), False, False)
 
@@ -207,6 +211,8 @@ Public Class frmFlowForm
 
         ' === Register Sidebar ===
         RegisterBar(ABEdge.ABE_RIGHT)
+
+        Enabled = False
     End Sub
 
     Private Sub frmFlowForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@@ -215,14 +221,10 @@ Public Class frmFlowForm
 
     Private Async Function Init_Completed(sender As Object, e As EventArgs) As Threading.Tasks.Task
         Try
-            Cursor = Cursors.WaitCursor
             ' === Initialization Complete ===
             ApplicationLoading = False
             SplashScreenManager.CloseForm(False)
 
-            ' === Set Form ===
-            OverlayWindowOptions.Default.DisableInput = False
-
             ' === Initialize Environment ===
             Logger = My.LogConfig.GetLogger()
             Environment = My.Application.GetEnvironment()
@@ -329,8 +331,11 @@ Public Class frmFlowForm
             End If
 
 
-            'Dim oPMPath = Modules.GetProductPath(DigitalData.Modules.Base.ECM.Product.ProcessManager)
-
+            Dim oProcessManagerPath = Modules.GetProductPath(Base.ECM.Product.ProcessManager)
+            If oProcessManagerPath IsNot Nothing Then
+                My.SystemConfig.ProductPaths.ProcessManagerPath = oProcessManagerPath
+                My.SystemConfigManager.Save()
+            End If
 
             ' TODO: This needs an update of the function FNZF_GET_MODULE_INFO
             If My.Application.ModulesActive.Contains(MODULE_PROCESS_MANAGER) Then
@@ -349,8 +354,7 @@ Public Class frmFlowForm
             Logger.Error(ex)
 
         Finally
-            Cursor = Cursors.Default
-
+            Enabled = True
         End Try
     End Function
     Async Function ConfigureQuicksearch1(Reload As Boolean) As Threading.Tasks.Task
@@ -1270,7 +1274,6 @@ Public Class frmFlowForm
     Private Sub PictureBoxPM_Click(sender As Object, e As EventArgs) Handles PictureBoxPM.Click
         Try
             Dim oProcessManagerPath = Modules.GetProductPath(DigitalData.Modules.Base.ECM.Product.ProcessManager)
-
             If oProcessManagerPath IsNot Nothing AndAlso IO.File.Exists(oProcessManagerPath) Then
                 Process.Start(oProcessManagerPath)
             End If