paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 21:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

TDateEdit: use 0.1 msec as epsilon value when comparing TDateTime values.

Browse Source
This commit is contained in:
Bart 2022-08-02 22:57:09 +02:00
parent 9eb749fb64
commit 37fa159874
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/editbtn.pas
View File

@ -921,6 +921,9 @@ implementation
{$R lcl_edbtnimg.res}
const
DTEpsilon = Double(1.0)/(24*3600*1000*10); //0.1 millisec (0.000000001157407407);
{ TEditSpeedButton }
procedure TEditSpeedButton.GlyphChanged(Sender: TObject);
@ -2010,17 +2013,17 @@ end;
function TDateEdit.IsLimited: Boolean;
begin
Result := (CompareValue(FMinDate, FMaxDate, 1E-9) = LessThanValue);
Result := (CompareValue(FMinDate, FMaxDate, DTEpsilon) = LessThanValue);
end;
function TDateEdit.GetMaxDateStored: Boolean;
begin
Result := not SameValue(FMaxDate, Double(0.0), 1E-9);
Result := not SameValue(FMaxDate, Double(0.0), DTEpsilon);
end;
function TDateEdit.GetMinDateStored: Boolean;
begin
Result := not SameValue(FMinDate, Double(0.0), 1E-9);
Result := not SameValue(FMinDate, Double(0.0), DTEpsilon);
end;
function TDateEdit.GetDate: TDateTime;