Fixed: Update data only when required

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1992 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jujiboutils/jujibo-utils/src/jdbcurrencyedit.pas

@@ -387,7 +387,8 @@ end;
 procedure TJDBCurrencyEdit.EditingDone;
 begin
   inherited EditingDone;
-  UpdateData(self);
+  if DataSource.State in [dsEdit, dsInsert] then
+    UpdateData(self);
 end;
 
 end.

components/jujiboutils/jujibo-utils/src/jdbdateedit.pas

@@ -146,10 +146,10 @@ procedure TJDBDateEdit.DataChange(Sender: TObject);
 begin
   if FDataLink.Field <> nil then
   begin
-  if not Focused then
-    formatInput
-  else
-    Caption := FDataLink.Field.AsString;
+    if not Focused then
+      formatInput
+    else
+      Caption := FDataLink.Field.AsString;
   end
   else
     Text := '';
@@ -345,7 +345,8 @@ end;
 procedure TJDBDateEdit.EditingDone;
 begin
   inherited EditingDone;
-  UpdateData(self);
+  if DataSource.State in [dsEdit, dsInsert] then
+    UpdateData(self);
 end;
 
 end.

components/jujiboutils/jujibo-utils/src/jdbintegeredit.pas

@@ -344,7 +344,8 @@ end;
 procedure TJDBIntegerEdit.EditingDone;
 begin
   inherited EditingDone;
-  UpdateData(self);
+  if DataSource.State in [dsEdit, dsInsert] then
+    UpdateData(self);
 end;
 
 end.

components/jujiboutils/jujibo-utils/src/jdblabeledcurrencyedit.pas

@@ -383,7 +383,8 @@ end;
 procedure TJDBLabeledCurrencyEdit.EditingDone;
 begin
   inherited EditingDone;
-  UpdateData(self);
+  if DataSource.State in [dsEdit, dsInsert] then
+    UpdateData(self);
 end;
 
 end.

components/jujiboutils/jujibo-utils/src/jdblabeleddateedit.pas

@@ -350,7 +350,8 @@ end;
 procedure TJDBLabeledDateEdit.EditingDone;
 begin
   inherited EditingDone;
-  UpdateData(self);
+  if DataSource.State in [dsEdit, dsInsert] then
+    UpdateData(self);
 end;
 
 end.

components/jujiboutils/jujibo-utils/src/jdblabelededit.pas

@@ -281,7 +281,8 @@ end;
 procedure TJDBLabeledEdit.EditingDone;
 begin
   inherited EditingDone;
-  UpdateData(self);
+  if DataSource.State in [dsEdit, dsInsert] then
+    UpdateData(self);
 end;
 
 end.

components/jujiboutils/jujibo-utils/src/jdblabeledintegeredit.pas

@@ -340,7 +340,8 @@ end;
 procedure TJDBLabeledIntegerEdit.EditingDone;
 begin
   inherited EditingDone;
-  UpdateData(self);
+  if DataSource.State in [dsEdit, dsInsert] then
+    UpdateData(self);
 end;
 
 end.

components/jujiboutils/jujibo-utils/src/jdblabeledtimeedit.pas

@@ -134,7 +134,6 @@ begin
     theValue := NormalizeTime(Text, FDataLink.Field.AsDateTime);
     if Text = '' then
     begin
-      Field.DataSet.Edit;
       Field.Value := Null;
     end
     else
@@ -318,7 +317,8 @@ end;
 procedure TJDBLabeledTimeEdit.EditingDone;
 begin
   inherited EditingDone;
-  UpdateData(self);
+  if DataSource.State in [dsEdit, dsInsert] then
+    UpdateData(self);
 end;
 
 end.

components/jujiboutils/jujibo-utils/src/jdbtimeedit.pas

@@ -142,7 +142,6 @@ begin
     theValue := NormalizeTime(Text, FDataLink.Field.AsDateTime);
     if Text = '' then
     begin
-      Field.DataSet.Edit;
       Field.Value := Null;
     end
     else
@@ -325,7 +324,8 @@ end;
 procedure TJDBTimeEdit.EditingDone;
 begin
   inherited EditingDone;
-  UpdateData(self);
+  if DataSource.State in [dsEdit, dsInsert] then
+    UpdateData(self);
 end;