From 5b9794109ff11e64ef31b5ab48f1d6d9d4bafc08 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 1 Mar 2023 14:24:49 +0000
Subject: [PATCH] calLite: Disable leaving the current month by clicking on
 "Today" when coNoMonthChange is in Options.

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

diff --git a/components/callite/source/calendarlite.pas b/components/callite/source/calendarlite.pas
index dabeb1627..7dbe994ca 100644
--- a/components/callite/source/calendarlite.pas
+++ b/components/callite/source/calendarlite.pas
@@ -1344,6 +1344,8 @@ end;
 
 procedure TCalDrawer.GotoToday;
 begin
+  if (coNoMonthChange in FOwner.FOptions) then
+    exit;
   FOwner.Date:= Date();
 end;