ms Globix

GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.vb

@@ -100,12 +100,12 @@ Public Class frmGlobixBasicConfig
 
             If Not ClassFolderwatcher.FWFolderWatcher Is Nothing Then
                 If ClassFolderwatcher.FWFolderWatcher.EnableRaisingEvents = True Then
-                    ToggleSwitchScanfolder.IsOn = True
+                    ToggleSwitchHotfolder.IsOn = True
                 Else
-                    ToggleSwitchScanfolder.IsOn = False
+                    ToggleSwitchHotfolder.IsOn = False
                 End If
             Else
-                ToggleSwitchScanfolder.IsOn = False
+                ToggleSwitchHotfolder.IsOn = False
             End If
 
             If Not ClassFolderwatcher.FWScan Is Nothing Then
@@ -132,7 +132,14 @@ Public Class frmGlobixBasicConfig
     End Sub
 
 
-
+    Sub CheckFWHF_State()
+        Select Case clsFW.StartStop_FolderWatch()
+            Case 1
+                ToggleSwitchHotfolder.IsOn = True
+            Case 0
+                ToggleSwitchHotfolder.IsOn = False
+        End Select
+    End Sub
 
 
     Sub CheckFWSCAN_State()
@@ -202,4 +209,13 @@ Public Class frmGlobixBasicConfig
             End If
         End If
     End Sub
+
+    Private Sub ToggleSwitchHotfolder_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchHotfolder.Toggled
+        Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch)
+        If oToggle.IsOn Then
+            If My.Application.Globix.CurrentFolderWatchPath <> "" Then
+                CheckFWHF_State()
+            End If
+        End If
+    End Sub
 End Class