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

tvplanit: Fix DayView/etc not showing recurring all-day events beginning/ending at midnight (as created by GanttView).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8559 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-14 21:16:30 +00:00
parent 863621e0cf
commit 063b3a73c3
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vpdata.pas
View File

@ -1962,11 +1962,11 @@ var
begin begin
result := false; result := false;
DayInRepeatRange := (Day > trunc(Event.StartTime)) and DayInRepeatRange := (Day >= trunc(Event.StartTime)) and
((Event.RepeatRangeEnd = 0) or (Day < trunc(Event.RepeatRangeEnd) + 1)); ((Event.RepeatRangeEnd = 0) or (Day < trunc(Event.RepeatRangeEnd) + 1));
if (Event.RepeatCode <> rtNone) and if (Event.RepeatCode <> rtNone) and
((Event.RepeatRangeEnd = 0) or (trunc(Event.RepeatRangeEnd + 1) > now)) then ((Event.RepeatRangeEnd = 0) or (trunc(Event.RepeatRangeEnd + 1) > Day)) then // wp: was "now" instead of "Day" ????
begin begin
case Event.RepeatCode of case Event.RepeatCode of
rtDaily: rtDaily: