paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 13:59:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

TCalendar and TDateEdit: improve IsLimited function. Now it only returns true if MaxDate actually is at least one day > MinDate (it would return True if MaxDate-MinDate was larger than 0.1 msec)

Browse Source
This commit is contained in:
Bart 2022-08-03 00:00:24 +02:00
parent d0843ab78b
commit 6cd311dd36
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/calendar.pp
View File

@ -346,7 +346,7 @@ end;
function TCustomCalendar.IsLimited: Boolean; function TCustomCalendar.IsLimited: Boolean;
begin begin
Result := (CompareValue(FMinDate, FMaxDate, DTEpsilon) = LessThanValue); Result := (Trunc(FMaxDate)-Trunc(FMinDate) > 0);
end; end;
procedure TCustomCalendar.ApplyLimits; procedure TCustomCalendar.ApplyLimits;

2
lcl/editbtn.pas
View File

@ -2018,7 +2018,7 @@ end;
function TDateEdit.IsLimited: Boolean; function TDateEdit.IsLimited: Boolean;
begin begin
Result := (CompareValue(FMinDate, FMaxDate, DTEpsilon) = LessThanValue); Result := (Trunc(FMaxDate)-Trunc(FMinDate) > 0);
end; end;
function TDateEdit.GetMaxDateStored: Boolean; function TDateEdit.GetMaxDateStored: Boolean;