MS

app/DD-Record-Organizer/ModuleMySettings.vb

@@ -18,6 +18,7 @@ Module ModuleMySettings
     Public MY_WIKISTRING As String
     Public WD_GROUP1 As String
     Public WD_UNICODE As Boolean = False
+    Public GridDocResult_BestFitColumns As Boolean = True
     Public SQL_FULLTEXT As String
 
     'Public WD_ShowEnitityDocs As Boolean = True
@@ -211,6 +212,9 @@ Module ModuleMySettings
                         If Row.Item("Value") <> String.Empty Then
                             MyFormsDesign = Row.Item("Value")
                         End If
+                    Case "GridDocResult_BestFitColumns"
+                        GridDocResult_BestFitColumns = CBool(Row.Item("Value"))
+
                 End Select
             Next
             'update 1.1
@@ -270,6 +274,13 @@ Module ModuleMySettings
                 DT.Rows.Add(newRow)
                 DT.WriteXml(ConfigPath)
             End If
+            If rowresult.Contains("GridDocResult_BestFitColumns") = False Then
+                Dim newRow As DataRow = DT.NewRow()
+                newRow("ConfigName") = "GridDocResult_BestFitColumns"
+                newRow("Value") = "True"
+                DT.Rows.Add(newRow)
+                DT.WriteXml(ConfigPath)
+            End If
 
 
         Catch ex As Exception
@@ -366,6 +377,10 @@ Module ModuleMySettings
             Dim newRow16 As DataRow = table.NewRow()
             newRow16("ConfigName") = "MyFormsDesign"
             newRow16("Value") = ""
+            Dim newRow17 As DataRow = table.NewRow()
+            newRow17("ConfigName") = "GridDocResult_BestFitColumns"
+            newRow17("Value") = "True"
+
 
             table.AcceptChanges()
             ClassLogger.Add(">> CreateConfigTable su...", False)