MS1403

app/DD-Record-Organizer/frmConfig_Basic.vb

@@ -107,11 +107,6 @@ Public Class frmConfig_Basic
         End Try
         Cursor = Cursors.Default
     End Sub
-
-    Private Sub frmConfig_Basic_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        SaveMySettingsValue("WDResultListCount", txtwdSearch_Count.Text, "ConfigMain")
-    End Sub
-
     Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         If LICENSE_SITE_PROXY = True Then
             Me.rbConn_Proxy.Visible = True
@@ -141,13 +136,10 @@ Public Class frmConfig_Basic
             End Try
 
             Me.txtActualConnection.Text = constr
-            chkbxloadWDDocs.Checked = Sett_LoadWD_Docs
             chkLogErrorsOnly.Checked = LogErrorsOnly
-            txtwdSearch_Count.Text = WDResultListCount.ToString
+            'txtwdSearch_Count.Text = WDResultListCount.ToString
             txtTask_Popup.Text = Task_Popup_minutes.ToString
 
-            chkboxQuickMenue.Checked = Sett_ShowQuickMenue
-            CheckBoxWD_ShowEnitityDocs.Checked = WD_ShowEnitityDocs
             Dim sql As String = "SELECT 0,'' UNION ALL SELECT T.GUID, T.FORM_TITLE FROM TBPMO_FORM_CONSTRUCTOR T"
             Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
             If DT.Rows.Count > 0 Then
@@ -170,12 +162,6 @@ Public Class frmConfig_Basic
 
         End If
     End Sub
-
-    Private Sub chkbxloadWDDocs_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxloadWDDocs.CheckedChanged
-        Sett_LoadWD_Docs = chkbxloadWDDocs.Checked
-        SaveMySettingsValue("Sett_LoadWD_Docs", Sett_LoadWD_Docs, "ConfigMain")
-    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
@@ -196,16 +182,6 @@ Public Class frmConfig_Basic
         SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly, "ConfigMain")
         clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
     End Sub
-    Private Sub chkboxQuickMenue_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxQuickMenue.CheckedChanged
-        Sett_ShowQuickMenue = chkboxQuickMenue.Checked
-        SaveMySettingsValue("Sett_ShowQuickMenue", Sett_ShowQuickMenue, "ConfigMain")
-    End Sub
-
-    Private Sub CheckBoxWD_ShowEnitityDocs_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxWD_ShowEnitityDocs.CheckedChanged
-        WD_ShowEnitityDocs = CheckBoxWD_ShowEnitityDocs.Checked
-        SaveMySettingsValue("WD_ShowEnitityDocs", WD_ShowEnitityDocs, "ConfigMain")
-    End Sub
-
     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
         My.Settings.Save()
     End Sub