DataCheckBox: Its default value is now correctly set to NULL.

[GB.DB.FORM]
* BUG: DataCheckBox: Its default value is now correctly set to NULL.

comp/src/gb.db.form/.component

@@ -1,6 +1,6 @@
 [Component]
 Key=gb.db.form
-Version=3.10.90
+Version=3.11.90
 Authors=Benoît Minisini
 Needs=Form
 Requires=gb.db,gb.form

comp/src/gb.db.form/.lang/fr.po

@@ -77,7 +77,7 @@
 msgid ""
 msgstr ""
 "Project-Id-Version: PACKAGE VERSION\n"
-"POT-Creation-Date: 2018-01-14 21:57 UTC\n"
+"POT-Creation-Date: 2018-07-21 13:35 UTC\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"
@@ -90,11 +90,11 @@ msgstr ""
 msgid "Data bound controls"
 msgstr ""
 
-#: DataControl.class:112 DataView.class:455
+#: DataControl.class:112 DataView.class:454
 msgid "True"
 msgstr "Vrai"
 
-#: DataControl.class:113 DataField.class:19 DataView.class:455
+#: DataControl.class:113 DataField.class:19 DataView.class:454
 msgid "False"
 msgstr "Faux"
 
@@ -102,27 +102,27 @@ msgstr "Faux"
 msgid "Unknown"
 msgstr "Inconnu"
 
-#: DataSource.class:410
+#: DataSource.class:413
 msgid "Invalid value."
 msgstr "Valeur incorrecte."
 
-#: DataSource.class:433
+#: DataSource.class:436
 msgid "You must fill all mandatory fields."
 msgstr "Vous devez saisir tous les champs obligatoires."
 
-#: DataView.class:736
+#: DataView.class:738
 msgid "Unable to save value."
 msgstr "Impossible d'enregistrer la valeur."
 
-#: DataView.class:738
+#: DataView.class:740
 msgid "Incorrect value."
 msgstr "Valeur incorrecte."
 
-#: DataView.class:902
+#: DataView.class:904
 msgid "Unable to save record."
 msgstr "Impossible de sauver l'enregistrement."
 
-#: DataView.class:1070
+#: DataView.class:1072
 msgid "Unable to delete record."
 msgstr "Impossible de supprimer l'enregistrement."
 
@@ -202,39 +202,39 @@ msgstr "Suivant"
 msgid "End"
 msgstr "Fin"
 
-#: FMain2.form:89
+#: FMain2.form:90
 msgid "Id"
 msgstr ""
 
-#: FMain2.form:94
+#: FMain2.form:95
 msgid "Color"
 msgstr ""
 
-#: FMain2.form:99
+#: FMain2.form:100
 msgid "First Name"
 msgstr ""
 
-#: FMain2.form:104
+#: FMain2.form:105
 msgid "Name"
 msgstr ""
 
-#: FMain2.form:109
+#: FMain2.form:110
 msgid "Birth"
 msgstr ""
 
-#: FMain2.form:114
+#: FMain2.form:115
 msgid "Active"
 msgstr ""
 
-#: FMain2.form:120
+#: FMain2.form:121
 msgid "Comment"
 msgstr ""
 
-#: FMain2.form:126
+#: FMain2.form:127
 msgid "Salary"
 msgstr ""
 
-#: FMain2.form:131
+#: FMain2.form:132
 msgid "Image"
 msgstr ""
 
@@ -242,6 +242,26 @@ msgstr ""
 msgid "Info"
 msgstr ""
 
+#: FProcessesMaint.form:26
+msgid "Process ID Code"
+msgstr ""
+
+#: FProcessesMaint.form:31
+msgid "Process Title"
+msgstr ""
+
+#: FProcessesMaint.form:37
+msgid "Process ID"
+msgstr ""
+
+#: FProcessesMaint.form:43
+msgid "Title"
+msgstr ""
+
+#: FProcessesMaint.form:48
+msgid "Taxable"
+msgstr ""
+
 #: FTest.form:25
 msgid "Create"
 msgstr ""

comp/src/gb.db.form/.project

@@ -1,8 +1,8 @@
 # Gambas Project File 3.0
 Title=Data bound controls
-Startup=FMain2
+Startup=FTest
 Icon=.hidden/control/datasource.png
-Version=3.10.90
+Version=3.11.90
 VersionFile=1
 Component=gb.image
 Component=gb.gui

comp/src/gb.db.form/.src/DataCheckBox.class

@@ -28,6 +28,7 @@ Public Sub _new()
   Me._AutoResize = True
   $hCtrl = New CheckBox(Me) As "CheckBox"
   $hCtrl.Tristate = True
+  $hCtrl.Value = CheckBox.None
   Me.Proxy = $hCtrl
   
 End

comp/src/gb.db.form/.src/DataView.class

@@ -737,7 +737,7 @@ Catch
   If bPrintError Then
     _Warning(("Unable to save value."), Error.Text,, Row, Column)
   Else
-    _Warning(("Incorrect value."), Error.Where & ": " & Error.Text,, Row, Column)
+    _Warning(("Invalid value."), Error.Where & ": " & Error.Text,, Row, Column)
   Endif
   Stop Event