MS Globix3

GUIs.ZooFlow/frmFlowForm.vb

@@ -49,14 +49,13 @@ Public Class frmFlowForm
 
         ' === Initialization ===
         Init = New ClassInit(My.LogConfig, Me)
-        FileDrop = New ClassFileDrop(My.LogConfig)
-        FileHandle = New ClassFilehandle(My.LogConfig)
 
         AddHandler Init.Completed, AddressOf Init_Completed
         Init.InitializeApplication()
     End Sub
 
     Private Sub Init_Completed(sender As Object, e As EventArgs)
+        Me.Cursor = Cursors.WaitCursor
         ' === Initialization Complete ===
         ApplicationLoading = False
         SplashScreenManager.CloseForm(False)
@@ -94,8 +93,13 @@ Public Class frmFlowForm
             DTIDB_SEARCHES = oDatatable
             PictureBoxSearch.Visible = True
         End If
-
+        If My.Application.ModulesActive.Contains(ClassConstants.MODULE_GLOBAL_INDEXER) Then
+            FileDrop = New ClassFileDrop(My.LogConfig)
+            FileHandle = New ClassFilehandle(My.LogConfig)
+            Refresh_RegexTable()
+        End If
         My.DTAttributes = My.DatabaseIDB.GetDatatable("SELECT * FROM TBIDB_ATTRIBUTE")
+        Me.Cursor = Cursors.Default
     End Sub
 
 
@@ -281,6 +285,9 @@ Public Class frmFlowForm
         End If
     End Sub
     Sub DragDropForm(e As DragEventArgs)
+        If Not My.Application.ModulesActive.Contains(ClassConstants.MODULE_GLOBAL_INDEXER) Then
+            Exit Sub
+        End If
         If TheFormIsAlreadyLoaded("frmIndexFileList") Then
             Cursor = Cursors.Default
             MsgBox("Please index the active file first!", MsgBoxStyle.Exclamation, "Drag 'n Drop not allowed!")
@@ -302,6 +309,10 @@ Public Class frmFlowForm
     End Sub
 
     Private Sub TimerCheckDroppedFiles_Tick(sender As Object, e As EventArgs) Handles TimerCheckDroppedFiles.Tick
+        If Not My.Application.ModulesActive.Contains(ClassConstants.MODULE_GLOBAL_INDEXER) Then
+            Exit Sub
+        End If
+
         TimerCheckDroppedFiles.Stop()
         Check_Dropped_Files()
     End Sub
@@ -309,7 +320,8 @@ Public Class frmFlowForm
         Try
             My.Database.ExecuteNonQuery("DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
             Dim i As Integer
-            For Each Str As Object In ClassFileDrop.files_dropped
+
+            For Each Str As Object In FileDrop.files_dropped
                 If Not Str Is Nothing Then
                     Logger.Info(">> Check Drop-File: " & Str.ToString)
                     Dim handleType As String = Str.Substring(0, Str.LastIndexOf("|") + 1)