Changed: Call to OnEditingDone after field value has been set

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

components/jujiboutils/src/jdblabeledcurrencyedit.pas

@@ -393,13 +393,13 @@ end;
 
 procedure TJDBLabeledCurrencyEdit.EditingDone;
 begin
-  inherited EditingDone;
   if not FieldIsEditable(Field) or IsReadOnly then
     exit;
   if DataSource.State in [dsEdit, dsInsert] then
     UpdateData(self)
   else
     formatInput;
+  inherited EditingDone;
 end;
 
 end.

components/jujiboutils/src/jdblabeleddateedit.pas

@@ -486,13 +486,13 @@ end;
 
 procedure TJDBLabeledDateEdit.EditingDone;
 begin
-  inherited EditingDone;
   if not FieldIsEditable(Field) or IsReadOnly then
     exit;
   if DataSource.State in [dsEdit, dsInsert] then
     UpdateData(self)
   else
     formatInput;
+  inherited EditingDone;
 end;
 
 end.

components/jujiboutils/src/jdblabeleddatetimeedit.pas

@@ -502,6 +502,7 @@ begin
     UpdateData(self)
   else
     formatInput;
+  inherited EditingDone;
 end;
 
 

components/jujiboutils/src/jdblabeledfloatedit.pas

@@ -406,13 +406,13 @@ end;
 
 procedure TJDBLabeledFloatEdit.EditingDone;
 begin
-  inherited EditingDone;
   if not FieldIsEditable(Field) or IsReadOnly then
     exit;
   if DataSource.State in [dsEdit, dsInsert] then
     UpdateData(self)
   else
     formatInput;
+  inherited EditingDone;
 end;
 
 

components/jujiboutils/src/jdblabeledintegeredit.pas

@@ -353,13 +353,13 @@ end;
 
 procedure TJDBLabeledIntegerEdit.EditingDone;
 begin
-  inherited EditingDone;
   if not FieldIsEditable(Field) or IsReadOnly then
     exit;
   if DataSource.State in [dsEdit, dsInsert] then
     UpdateData(self)
   else
     formatInput;
+  inherited EditingDone;
 end;
 
 end.

components/jujiboutils/src/jdblabeledtimeedit.pas

@@ -317,13 +317,13 @@ end;
 
 procedure TJDBLabeledTimeEdit.EditingDone;
 begin
-  inherited EditingDone;
   if not FieldIsEditable(Field) or IsReadOnly then
     exit;
   if DataSource.State in [dsEdit, dsInsert] then
     UpdateData(self)
   else
     formatInput;
+  inherited EditingDone;
 end;
 
 end.