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

8
components/tvplanit/laz_visualplanit.lpk
View File

@ -32,7 +32,7 @@ Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower S
Contributor(s): "/>
<Version Major="1" Minor="7"/>
<Files Count="69">
<Files Count="68">
<Item1>
<Filename Value="source\vpbase.pas"/>
<UnitName Value="VpBase"/>
@ -302,13 +302,9 @@ Contributor(s): "/>
<UnitName Value="VpGanttView"/>
</Item67>
<Item68>
<Filename Value="source\vpganttview.pas"/>
<UnitName Value="VpGanttView"/>
</Item68>
<Item69>
<Filename Value="source\vpganttviewpainter.pas"/>
<UnitName Value="VpGanttViewPainter"/>
</Item69>
</Item68>
</Files>
<CompatibilityMode Value="True"/>
<i18n>

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);