From b2b2c69c87659a2a9fe60aa6104581d8415dd2c1 Mon Sep 17 00:00:00 2001
From: jujibo <jujibo@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 27 Nov 2013 09:04:13 +0000
Subject: [PATCH] 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 | 2 +-
 components/jujiboutils/src/jdblabeleddateedit.pas     | 2 +-
 components/jujiboutils/src/jdblabeleddatetimeedit.pas | 1 +
 components/jujiboutils/src/jdblabeledfloatedit.pas    | 2 +-
 components/jujiboutils/src/jdblabeledintegeredit.pas  | 2 +-
 components/jujiboutils/src/jdblabeledtimeedit.pas     | 2 +-
 6 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/components/jujiboutils/src/jdblabeledcurrencyedit.pas b/components/jujiboutils/src/jdblabeledcurrencyedit.pas
index 868fc5e5b..2c6c15c0f 100644
--- a/components/jujiboutils/src/jdblabeledcurrencyedit.pas
+++ b/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.
diff --git a/components/jujiboutils/src/jdblabeleddateedit.pas b/components/jujiboutils/src/jdblabeleddateedit.pas
index 8a2fb8711..b86c8ae2e 100644
--- a/components/jujiboutils/src/jdblabeleddateedit.pas
+++ b/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.
diff --git a/components/jujiboutils/src/jdblabeleddatetimeedit.pas b/components/jujiboutils/src/jdblabeleddatetimeedit.pas
index 773f64c8a..3c5fdb985 100644
--- a/components/jujiboutils/src/jdblabeleddatetimeedit.pas
+++ b/components/jujiboutils/src/jdblabeleddatetimeedit.pas
@@ -502,6 +502,7 @@ begin
     UpdateData(self)
   else
     formatInput;
+  inherited EditingDone;
 end;
 
 
diff --git a/components/jujiboutils/src/jdblabeledfloatedit.pas b/components/jujiboutils/src/jdblabeledfloatedit.pas
index 09a5b266e..6625f5b94 100644
--- a/components/jujiboutils/src/jdblabeledfloatedit.pas
+++ b/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;
 
 
diff --git a/components/jujiboutils/src/jdblabeledintegeredit.pas b/components/jujiboutils/src/jdblabeledintegeredit.pas
index 2b6a7c8ea..496b471d2 100644
--- a/components/jujiboutils/src/jdblabeledintegeredit.pas
+++ b/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.
diff --git a/components/jujiboutils/src/jdblabeledtimeedit.pas b/components/jujiboutils/src/jdblabeledtimeedit.pas
index eccd5dee9..503371035 100644
--- a/components/jujiboutils/src/jdblabeledtimeedit.pas
+++ b/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.