From 063b3a73c3a7f411bb7ead99da1514a28d513460 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Fri, 14 Oct 2022 21:16:30 +0000 Subject: [PATCH] tvplanit: Fix DayView/etc not showing recurring all-day events beginning/ending at midnight (as created by GanttView). git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8559 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/tvplanit/source/vpdata.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/tvplanit/source/vpdata.pas b/components/tvplanit/source/vpdata.pas index e6fa8cc3a..6b8435e96 100644 --- a/components/tvplanit/source/vpdata.pas +++ b/components/tvplanit/source/vpdata.pas @@ -1962,11 +1962,11 @@ var begin result := false; - DayInRepeatRange := (Day > trunc(Event.StartTime)) and + DayInRepeatRange := (Day >= trunc(Event.StartTime)) and ((Event.RepeatRangeEnd = 0) or (Day < trunc(Event.RepeatRangeEnd) + 1)); 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 case Event.RepeatCode of rtDaily: