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
    End Sub

    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