MS anpassungen

GUIs.ZooFlow/frmConfigBasic.vb

@@ -1,17 +1,41 @@
 Public Class frmConfigBasic
     Private Sub frmConfigBasic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         LoadScreens()
+        CheckButtonDEBUG.Checked = My.LogConfig.Debug
     End Sub
 
     Private Sub LoadScreens()
-        cmbScreens.Properties.Items.Clear()
-        For Each oScreen In Screen.AllScreens
-            cmbScreens.Properties.Items.Add(oScreen.DeviceName)
-        Next
+        'cmbScreens.Properties.Items.Clear()
+        'For Each oScreen In Screen.AllScreens
+        '    cmbScreens.Properties.Items.Add(oScreen.DeviceName)
+        'Next
     End Sub
 
-    Private Sub cmbScreens_SelectedValueChanged(sender As Object, e As EventArgs) Handles cmbScreens.SelectedValueChanged
-        My.UIConfig.SidebarScreen = cmbScreens.EditValue
+    Private Sub cmbScreens_SelectedValueChanged(sender As Object, e As EventArgs)
+        'My.UIConfig.SidebarScreen = cmbScreens.EditValue
+        My.UIConfigManager.Save()
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        Process.Start(My.LogConfig.LogDirectory)
+    End Sub
+
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        Process.Start(Windows.Forms.Application.LocalUserAppDataPath)
+    End Sub
+
+    Private Sub CheckButtonDEBUG_Click(sender As Object, e As EventArgs) Handles CheckButtonDEBUG.Click
+
+    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
 End Class