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

tvplanit: Fix DayView not showing holiday if date contains a time part.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8445 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-04 22:33:16 +00:00
parent 35584e4dd2
commit 50608d54c3
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/tvplanit/source/vpdayview.pas
View File

@ -1077,7 +1077,7 @@ function TVpDayView.IsHoliday(ADate: TDate; out AHolidayName: String): Boolean;
begin begin
AHolidayName := ''; AHolidayName := '';
if Assigned(FOnHoliday) then if Assigned(FOnHoliday) then
FOnHoliday(Self, ADate, AHolidayName); FOnHoliday(Self, trunc(ADate), AHolidayName);
Result := AHolidayName <> ''; Result := AHolidayName <> '';
end; end;