paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-08 20:58:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

TDateEdit: avoid OnChange being issued in Loaded. Fixes issue described in https://forum.lazarus.freepascal.org/index.php/topic,60538.msg453740.html#msg453740

Browse Source
This commit is contained in:
Bart 2022-09-16 18:32:06 +02:00
parent 78b42debff
commit e7e585f13d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/editbtn.pas
View File

@ -1714,11 +1714,15 @@ begin
end; end;
procedure TDateEdit.Loaded; procedure TDateEdit.Loaded;
var
SavedOnChange: TNotifyEvent;
begin begin
inherited Loaded;
//Forces a valid Text in the control //Forces a valid Text in the control
if not (csDesigning in ComponentState) then if not (csDesigning in ComponentState) then
SetDate(FDate); SetDate(FDate);
//avoid OnChange (regression introduced by #8ce29506c500e46d65b9a067bf446fd91224e6c0, happens when DirectInput=True and DefaultToday=True)
//the FEdit's OnChange is only forwarded once the whole component has been loaded, so call inherited after setting the text, not before
inherited Loaded;
end; end;
procedure TDateEdit.DoDateRangeCheck(var ADate: TDateTime); procedure TDateEdit.DoDateRangeCheck(var ADate: TDateTime);