MS

app/DD-Record-Organizer/frmConfig_Basic.vb

@@ -140,6 +140,7 @@ Public Class frmConfig_Basic
             chkLogErrorsOnly.Checked = LogErrorsOnly
             '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)
@@ -185,6 +186,8 @@ Public Class frmConfig_Basic
         LogErrorsOnly = chkLogErrorsOnly.Checked
         SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly, "ConfigMain")
         clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
+
+
     End Sub
     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
         My.Settings.Save()
@@ -554,4 +557,12 @@ Public Class frmConfig_Basic
             End If
         End If
     End Sub
+
+    Private Sub CheckBoxGridDocResult_BestFitColumns_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxGridDocResult_BestFitColumns.CheckedChanged
+        If formloaded = False Then Exit Sub
+        GridDocResult_BestFitColumns = chkLogErrorsOnly.Checked
+        SaveMySettingsValue("GridDocResult_BestFitColumns", GridDocResult_BestFitColumns, "ConfigMain")
+
+
+    End Sub
 End Class