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

DateTimePicker: Prevent calling change when user start editing and date was null and not yet updated to valid date

Browse Source 
git-svn-id: trunk@63264 -
This commit is contained in:
zoran 2020-06-01 22:05:39 +00:00
parent 5a32b9dc2e
commit 2a396aa137
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/datetimectrls/datetimepicker.pas
View File

@ -3490,11 +3490,17 @@ begin
Finished := True;
if (not Finished) and (GetSelectedText <> S) then begin
if (not FUserChangedText) and DateIsNull then
if FSelectedTextPart <= 3 then
DateTime := SysUtils.Date
else
DateTime := SysUtils.Now;
if (not FUserChangedText) and DateIsNull then begin
Inc(FSkipChangeInUpdateDate); // do not call Change here
try
if FSelectedTextPart <= 3 then
DateTime := SysUtils.Date
else
DateTime := SysUtils.Now;
finally
Dec(FSkipChangeInUpdateDate);
end;
end;
if (not FLeadingZeros) and (FSelectedTextPart <= 4) then
while (Length(S) > 1) and (S[1] = '0') do