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

tvplanit: Fix GanttView not displaying last event if fully within last day.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8541 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-12 12:21:30 +00:00
parent 03e1ff9059
commit 4b311b656d
2 changed files with 3 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -305,7 +305,7 @@ begin
event := eventRec.Event;
if event.EndTime < FGanttView.FirstDate then
Continue;
if event.StartTime > FGanttView.LastDate then
if event.StartTime > FGanttView.LastDate + 1then
exit;
R := ScaleRect(eventRec.EventRect);
OffsetRect(R, -dx, -dy);