mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 15:36:31 +02:00
LCL: TDateEdit: fix not calling OnEditingDone (bug introduced in r53938 #afa3922372 by me). Issue #0031278.
git-svn-id: trunk@54010 -
This commit is contained in:
parent
d1c43f56a2
commit
dd81ed3150
@ -1638,7 +1638,7 @@ procedure TDateEdit.EditEditingDone;
|
||||
var
|
||||
AText: String;
|
||||
begin
|
||||
inherited EditingDone;
|
||||
inherited EditEditingDone;
|
||||
if DirectInput then
|
||||
begin
|
||||
AText := DateToText(GetDate);
|
||||
|
Loading…
Reference in New Issue
Block a user