paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 04:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TDateEdit: fix not calling OnEditingDone (bug introduced in r53938 #afa3922372 by me). Issue #0031278.

Browse Source 
git-svn-id: trunk@54010 -
This commit is contained in:
bart 2017-01-26 17:29:07 +00:00
parent d1c43f56a2
commit dd81ed3150
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/editbtn.pas
View File

@ -1638,7 +1638,7 @@ procedure TDateEdit.EditEditingDone;
var var
AText: String; AText: String;
begin begin
inherited EditingDone; inherited EditEditingDone;
if DirectInput then if DirectInput then
begin begin
AText := DateToText(GetDate); AText := DateToText(GetDate);