MS Configruation Doctype

GUIs.ZooFlow/frmConfigBasic.vb

@@ -1,13 +1,15 @@
-Imports DigitalData.Modules.Language
+Imports DevExpress.XtraEditors
+Imports DigitalData.Modules.Language
 Imports DigitalData.Modules.Logging
 
 Public Class frmConfigBasic
     Private FormLoaded As Boolean = False
     Private Logger As Logger
+    Dim oFormLoaded As Boolean = False
 
     Private Sub frmConfigBasic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         LoadScreens()
-        CheckButtonDEBUG.Checked = My.LogConfig.Debug
+        ToggleSwitchDebug.IsOn = My.LogConfig.Debug
         For Each orow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows
             Select Case orow.Item("CAT_TITLE")
                 Case ClassConstants.USER_CATALOG_QUICKSEARCH1_TITLE
@@ -31,6 +33,7 @@ Public Class frmConfigBasic
 
             End Select
         Next
+        oFormLoaded = True
     End Sub
 
     Private Sub LoadScreens()
@@ -53,16 +56,6 @@ Public Class frmConfigBasic
         Process.Start(System.Windows.Forms.Application.LocalUserAppDataPath)
     End Sub
 
-    Private Sub CheckButtonDEBUG_CheckedChanged(sender As Object, e As EventArgs) Handles CheckButtonDEBUG.CheckedChanged
-        If CheckButtonDEBUG.Checked Then
-            CheckButtonDEBUG.Text = "DEBUG is active"
-            My.LogConfig.Debug = True
-        Else
-            CheckButtonDEBUG.Text = "DEBUG not active"
-            My.LogConfig.Debug = False
-        End If
-        My.UIConfigManager.Save()
-    End Sub
 
     Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
         Try
@@ -145,4 +138,19 @@ Public Class frmConfigBasic
             MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
         End Try
     End Sub
+
+    Private Sub ToggleSwitchDebug_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchDebug.Toggled
+        If oFormLoaded = False Then
+            Exit Sub
+        End If
+        Dim oSwitch As ToggleSwitch = sender
+        If oSwitch.IsOn Then
+            My.LogConfig.Debug = True
+        Else
+            My.LogConfig.Debug = False
+        End If
+
+        My.UIConfigManager.Save()
+        bsiInfo.Caption = "DEBUG saved!"
+    End Sub
 End Class