pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Changed: Call to OnEditingDone after field value has been set

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2850 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2013-11-27 09:04:13 +00:00
parent f687422a13
commit b2b2c69c87
6 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/jujiboutils/src/jdblabeledcurrencyedit.pas
View File

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

2
components/jujiboutils/src/jdblabeleddateedit.pas
View File

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

1
components/jujiboutils/src/jdblabeleddatetimeedit.pas
View File

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

2
components/jujiboutils/src/jdblabeledfloatedit.pas
View File

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

2
components/jujiboutils/src/jdblabeledintegeredit.pas
View File

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

2
components/jujiboutils/src/jdblabeledtimeedit.pas
View File

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