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): "/> Contributor(s): "/>
<Version Major="1" Minor="7"/> <Version Major="1" Minor="7"/>
<Files Count="69"> <Files Count="68">
<Item1> <Item1>
<Filename Value="source\vpbase.pas"/> <Filename Value="source\vpbase.pas"/>
<UnitName Value="VpBase"/> <UnitName Value="VpBase"/>
@ -302,13 +302,9 @@ Contributor(s): "/>
<UnitName Value="VpGanttView"/> <UnitName Value="VpGanttView"/>
</Item67> </Item67>
<Item68> <Item68>
<Filename Value="source\vpganttview.pas"/>
<UnitName Value="VpGanttView"/>
</Item68>
<Item69>
<Filename Value="source\vpganttviewpainter.pas"/> <Filename Value="source\vpganttviewpainter.pas"/>
<UnitName Value="VpGanttViewPainter"/> <UnitName Value="VpGanttViewPainter"/>
</Item69> </Item68>
</Files> </Files>
<CompatibilityMode Value="True"/> <CompatibilityMode Value="True"/>
<i18n> <i18n>

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

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