Use semicolon for list separator

While a comma works on English systems, it may cause issues when other language settings are used. Fixes #258
joyfullservice · Sep 10, 2021 · f46de79 · f46de79
1 parent 09e3964
commit f46de79
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 9 deletions.
diff --git a/Version Control.accda.src/dbs-properties.json b/Version Control.accda.src/dbs-properties.json
@@ -41,7 +41,7 @@
       "Type": 10
     },
     "AppVersion": {
-      "Value": "3.4.15",
+      "Value": "3.4.16",
       "Type": 10
     },
     "Auto Compact": {

diff --git a/Version Control.accda.src/forms/frmVCSOptions.bas b/Version Control.accda.src/forms/frmVCSOptions.bas
@@ -16,10 +16,10 @@ Begin Form
     Width =10080
     DatasheetFontHeight =11
     ItemSuffix =236
-    Left =-25575
-    Top =1710
-    Right =-5925
-    Bottom =14295
+    Left =3225
+    Top =2430
+    Right =22695
+    Bottom =15015
     RecSrcDt = Begin
         0x79e78b777268e540
     End
@@ -3712,15 +3712,15 @@ Private Sub Form_Load()
     With Me.cboSanitizeLevel
         .RowSource = vbNullString
         For intSanitizeLevel = 0 To (eSanitizeLevel.[_Last] - 1)
-            .AddItem intSanitizeLevel & "," & Options.GetSanitizeLevelName(intSanitizeLevel)
+            .AddItem intSanitizeLevel & ";" & Options.GetSanitizeLevelName(intSanitizeLevel)
         Next intSanitizeLevel
     End With
 
     ' Load color sanitize options
     With Me.cboSanitizeColors
         .RowSource = vbNullString
         For intSanitizeLevel = 0 To (eSanitizeLevel.[_Last] - 1)
-            .AddItem intSanitizeLevel & "," & Options.GetSanitizeLevelName(intSanitizeLevel)
+            .AddItem intSanitizeLevel & ";" & Options.GetSanitizeLevelName(intSanitizeLevel)
         Next intSanitizeLevel
     End With
 

diff --git a/Version Control.accda.src/vbe-project.json b/Version Control.accda.src/vbe-project.json
@@ -5,7 +5,7 @@
   },
   "Items": {
     "Name": "MSAccessVCS",
-    "Description": "Version 3.4.15 deployed on 7/20/2021",
+    "Description": "Version 3.4.16 deployed on 9/10/2021",
     "FileName": "Version Control.accda",
     "HelpFile": "",
     "HelpContextId": 0,

diff --git a/Version Control.accda.src/vcs-options.json b/Version Control.accda.src/vcs-options.json
@@ -1,6 +1,6 @@
 {
   "Info": {
-    "AddinVersion": "3.4.15",
+    "AddinVersion": "3.4.16",
     "AccessVersion": "14.0 32-bit"
   },
   "Options": {