use Logging Module EVERYWHERE, fix some MarvMan bugs

Global_Indexer/frmConfig_Basic.vb

@@ -66,12 +66,12 @@ Public Class frmConfig_Basic
 
                 Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
                 sql = sql.Replace("@user", Environment.UserName)
-                ClassLogger.Add(">> Username: " & Environment.UserName, False)
+                LOGGER.Info(">> Username: " & Environment.UserName)
 
                 USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
                 If IsDBNull(USER_ID) Then
                     MsgBox("Attention: Your Username '" & Environment.UserName & "' is not configured for Global Indexer. this might result in unhandled exceptions!", MsgBoxStyle.Exclamation)
-                    ClassLogger.Add("User '" & Environment.UserName & "' not configured for Global Indexer! (DBNull - frmConfigBasic)", True)
+                    LOGGER.Info("User '" & Environment.UserName & "' not configured for Global Indexer! (DBNull - frmConfigBasic)")
                 End If
 
 
@@ -123,7 +123,7 @@ Public Class frmConfig_Basic
         Cursor = Cursors.Default
     End Sub
 
-    <STAThread()> _
+    <STAThread()>
     Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
     End Sub
@@ -144,7 +144,7 @@ Public Class frmConfig_Basic
                 End If
                 'chkdelete_origin.Checked = CURR_DELETE_ORIGIN
             Case 2
-               If ERROR_STATE = "NO DB-CONNECTION" Then
+                If ERROR_STATE = "NO DB-CONNECTION" Then
                     MsgBox("Configurations only editable after Application started completely!", MsgBoxStyle.Exclamation)
                     Me.TabControl1.SelectedIndex = 0
                     Exit Sub
@@ -242,7 +242,7 @@ Public Class frmConfig_Basic
                     CONFIG.Save()
                     CURRENT_FOLDERWATCH = ""
                 End If
-              
+
                 Exit Sub
             End If
             Try
@@ -250,8 +250,9 @@ Public Class frmConfig_Basic
                     System.IO.Directory.CreateDirectory(mypath)
                 End If
             Catch ex As Exception
-                ClassLogger.Add(" >> Unexpected error in CheckFolder: " & mypath, False)
-                ClassLogger.Add(" >> " & ex.Message, False)
+                LOGGER.Info(" >> Unexpected error in CheckFolder: " & mypath)
+                LOGGER.Error(ex.Message)
+                LOGGER.Info(" >> " & ex.Message)
                 If USER_LANGUAGE = "de-DE" Then
                     MsgBox("Unexpected error in ECheckFolder: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                 Else
@@ -356,7 +357,7 @@ Public Class frmConfig_Basic
             CONFIG.Config.LogErrorsOnly = chkLogErrorsOnly.Checked
             CONFIG.Save()
             'SaveConfigValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
-            ClassLogger.Add(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked, False)
+            LOGGER.Info(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked)
             LogErrorsOnly = chkLogErrorsOnly.Checked
         End If
     End Sub