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

tvplanit: Fix display of repeated all-day events in the dayview.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8406 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-21 14:40:55 +00:00
parent 4d807b06a0
commit 659a480a92
4 changed files with 6 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/tvplanit/source/vpdayviewpainter.pas
View File

@ -386,7 +386,8 @@ begin
// Cycle through the all day events and draw them appropriately
for I2 := 0 to pred(ADEventsList.Count) do begin
Event := ADEventsList[I2];
if DateInRange(RenderDate + I, Event.StartTime, Event.EndTime, true) then
if DateInRange(RenderDate + I, Event.StartTime, Event.EndTime, true) or
FDayView.DataStore.Resource.Schedule.RepeatsOn(Event, RenderDate + I) then
begin
// See if the event began before the start of the range
if (Event.StartTime < trunc(RenderDate)) then