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

TvPlanIt: Yet another fix of <= and >= in time comparisons of TVpDayView.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8178 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-12-14 17:19:34 +00:00
parent d62d307e4d
commit 3e2cd44627
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2119,7 +2119,8 @@ begin
{ if the Tmp event overlaps with Event, then check its WidthDivisor }
if TimeInRange(tStart2, tStart1, tEnd1, false) or
TimeInRange(tEnd2, tStart1, tEnd1, false) or
((tStart2 <= tStart1) and (tEnd2 >= tEnd1))
(SameTimeOrEarlier(tStart2, tStart1) and SameTimeOrLater(tEnd2, tEnd1))
// ((tStart2 <= tStart1) and (tEnd2 >= tEnd1))
then begin
if EventArray[I].WidthDivisor < EventArray[K].WidthDivisor then
EventArray[I].WidthDivisor := EventArray[K].WidthDivisor;