From 4af1e301a7b2ba2f897ee4f67e3994ca1ac4915f Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 5 Sep 2022 08:04:39 +0000
Subject: [PATCH] tvplanit: Fix mouse-wheel scrolling in TVpDayEdit when
 editing is active.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8447 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpdayview.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/tvplanit/source/vpdayview.pas b/components/tvplanit/source/vpdayview.pas
index f1eba1fae..8ff49d507 100644
--- a/components/tvplanit/source/vpdayview.pas
+++ b/components/tvplanit/source/vpdayview.pas
@@ -2107,6 +2107,7 @@ end;
 function TVpDayView.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
   MousePos: TPoint): Boolean;
 begin
+  EndEdit(self);
   Result := inherited DoMouseWheel(Shift, WheelDelta, MousePos);
 end;