From 3e2cd44627ba0895f809ecff3edbafd0797f971f Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 14 Dec 2021 17:19:34 +0000
Subject: [PATCH] TvPlanIt: Yet another fix of <= and >= in time comparisons of
 TVpDayView.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8178 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpdayviewpainter.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/tvplanit/source/vpdayviewpainter.pas b/components/tvplanit/source/vpdayviewpainter.pas
index 2117ecfd1..cd7dfe5f3 100644
--- a/components/tvplanit/source/vpdayviewpainter.pas
+++ b/components/tvplanit/source/vpdayviewpainter.pas
@@ -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;