paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 01:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

TCalendar: use 0.1 msec as epsilon value when comparing values.

Browse Source
This commit is contained in:
Bart 2022-08-02 22:54:51 +02:00
parent 2f4e270270
commit 9eb749fb64
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/calendar.pp
View File

@ -189,6 +189,9 @@ implementation
uses
WSCalendar;
const
DTEpsilon = Double(1.0)/(24*3600*1000*10); //0.1 millisec (0.000000001157407407);
procedure Register;
begin
RegisterComponents('Misc',[TCalendar]);
@ -307,12 +310,12 @@ end;
function TCustomCalendar.GetMaxDateStored: Boolean;
begin
Result := not SameValue(FMaxDate, Double(0.0), 1E-9);
Result := not SameValue(FMaxDate, Double(0.0), DTEpsilon);
end;
function TCustomCalendar.GetMinDateStored: Boolean;
begin
Result := not SameValue(FMinDate, Double(0.0), 1E-9);
Result := not SameValue(FMinDate, Double(0.0), DTEpsilon);
end;
procedure TCustomCalendar.SetDateTime(const AValue: TDateTime);
@ -343,7 +346,7 @@ end;
function TCustomCalendar.IsLimited: Boolean;
begin
Result := (CompareValue(FMinDate, FMaxDate, 1E-9) = LessThanValue);
Result := (CompareValue(FMinDate, FMaxDate, DTEpsilon) = LessThanValue);
end;
procedure TCustomCalendar.ApplyLimits;