pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

CalLite: TCalendarLite.SetDate must use only the integer part of the provided date.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8579 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-23 23:18:33 +00:00
parent 68ec591390
commit dddfdb5892
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/callite/source/calendarlite.pas
View File

@ -1968,11 +1968,13 @@ end;
procedure TCalendarLite.SetDate(AValue: TDateTime);
var
oldMonth: Integer;
dateValue: Integer;
begin
if FDate = AValue then Exit;
dateValue := trunc(AValue);
if FDate = dateValue then Exit;
oldMonth := MonthOf(FDate);
FDate := AValue;
FPrevDate := AValue;
FDate := dateValue;
FPrevDate := dateValue;
FSelDates.Clear;
DateChange;
if MonthOf(FDate) <> oldMonth then