Ms Änderungen FileCopy

EnvelopeGenerator.Form/frmMain.vb

@@ -331,4 +331,25 @@ Public Class frmMain
             Logger.Error(ex)
         End Try
     End Sub
+
+    Private Sub BarCheckItem1_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItem1.CheckedChanged
+        If BarCheckItem1.Checked = True Then
+            If CurrLogConfig.Debug = False Then
+                CurrLogConfig.Debug = True
+                bsitmInfo.Caption = "DEBUG-Log is active"
+                bsitmInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+            End If
+        Else
+            CurrLogConfig.Debug = False
+            bsitmInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+        End If
+    End Sub
+
+    Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        If CurrLogConfig.Debug Then
+            BarCheckItem1.Checked = True
+        Else
+            BarCheckItem1.Checked = False
+        End If
+    End Sub
 End Class