update to devexpress 15.2.16, add logger, add config

app/DD_Clipboard_Searcher/frmConfig_Basic.vb

@@ -38,7 +38,11 @@ Public Class frmConfig_Basic
                     Dim pw As String = cipherText
                     con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
                 End If
-                SaveConfigValue("MyConnectionString", con)
+
+                'SaveConfigValue("MyConnectionString", con)
+                ConfigManager.Config.ConnectionString = con
+                ConfigManager.Save()
+
                 Dim csb As New SqlClient.SqlConnectionStringBuilder
                 csb.ConnectionString = MyConnectionString
                 Dim constr = connection.ConnectionString
@@ -136,15 +140,11 @@ Public Class frmConfig_Basic
         End If
     End Sub
 
-    Private Sub chkbxloadWDDocs_CheckedChanged(sender As Object, e As EventArgs)
-
-    End Sub
-
     Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
         ' Specify that the link was visited.
-        Me.LinkLabel1.LinkVisited = True
+        LinkLabel1.LinkVisited = True
         ' Navigate to a URL.
-        System.Diagnostics.Process.Start("http://www.didalog.de/Support")
+        Process.Start("http://www.didalog.de/Support")
     End Sub
 
     Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click
@@ -152,12 +152,16 @@ Public Class frmConfig_Basic
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        Process.Start(System.IO.Path.GetDirectoryName(LOGGER_FILEPATH))
+        Process.Start(LogConfig.LogDirectory)
     End Sub
 
     Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
         LogErrorsOnly = chkLogErrorsOnly.Checked
-        SaveConfigValue("LogErrorsOnly", LogErrorsOnly)
+        LogConfig.Debug = Not LogErrorsOnly
+
+        'SaveConfigValue("LogErrorsOnly", LogErrorsOnly)
+        ConfigManager.Config.LogErrorsOnly = LogErrorsOnly
+        ConfigManager.Save()
     End Sub
 
 
@@ -174,9 +178,6 @@ Public Class frmConfig_Basic
                 Catch ex As Exception
 
                 End Try
-
-
-
         End Select
     End Sub
 
@@ -209,8 +210,13 @@ Public Class frmConfig_Basic
         Try
             If cmbfunctionHit.SelectedIndex <> -1 Then
                 Hotkey.RemoveHotKey(354523017)
-                SaveConfigValue("HotkeyFunctionKey", cmbfunctionHit.Text)
-                SaveConfigValue("HotkeySearchKey", txtHotkeySearchKey.Text)
+
+                'SaveConfigValue("HotkeyFunctionKey", cmbfunctionHit.Text)
+                'SaveConfigValue("HotkeySearchKey", txtHotkeySearchKey.Text)
+                ConfigManager.Config.HotkeyFunctionKey = cmbfunctionHit.Text
+                ConfigManager.Config.HotkeySearchKey = txtHotkeySearchKey.Text
+                ConfigManager.Save()
+
                 Dim keyCode As Keys
                 Dim kc As New KeysConverter
                 Dim obj As Object = kc.ConvertFromString(txtHotkeySearchKey.Text.ToUpper)