MS

app/DD-Record-Organizer/frmConfig_Basic.vb

@@ -147,7 +147,7 @@ Public Class frmConfig_Basic
             chkLogErrorsOnly.Checked = DEBUG
             'txtwdSearch_Count.Text = WDResultListCount.ToString
             txtTask_Popup.Text = Task_Popup_minutes.ToString
-            CheckBoxGridDocResult_BestFitColumns.Checked = GridDocResult_BestFitColumns
+
 
             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)
@@ -568,9 +568,13 @@ Public Class frmConfig_Basic
         End If
     End Sub
 
-    Private Sub CheckBoxGridDocResult_BestFitColumns_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxGridDocResult_BestFitColumns.CheckedChanged
+    Private Sub CheckBoxGridDocResult_BestFitColumns_CheckedChanged(sender As Object, e As EventArgs)
         If formloaded = False Then Exit Sub
         GridDocResult_BestFitColumns = chkLogErrorsOnly.Checked
         SaveMySettingsValue("GridDocResult_BestFitColumns", GridDocResult_BestFitColumns, "ConfigMain")
     End Sub
+
+    Private Sub frmConfig_Basic_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        My.Settings.Save()
+    End Sub
 End Class