From 93518f483a1ea7c6f169264217315abfc0e11811 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 18 Nov 2016 13:09:50 +0000
Subject: [PATCH] CalLite: Fix double-advance of month/year arrow buttons if
 MultiSelect is disabled.

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

diff --git a/components/callite/source/calendarlite.pas b/components/callite/source/calendarlite.pas
index 095915f15..78277f2e0 100644
--- a/components/callite/source/calendarlite.pas
+++ b/components/callite/source/calendarlite.pas
@@ -1404,7 +1404,7 @@ begin
   inherited;
 
   // Multi-select is handled by DblClickTimer
-  if not FMultiSelect then
+  if not FMultiSelect then //and not FDblClickTimer.Enabled then
     InternalClick;
 end;
 
@@ -1531,10 +1531,12 @@ begin
   if not Focused and not(csNoFocus in ControlStyle) then
     SetFocus;
 
-  FClickPoint := Point(X, Y);
-  FClickShift := Shift;
-  FClickButton := Button;
-  FDblClickTimer.Enabled := true;
+  if FMultiSelect then begin
+    FClickPoint := Point(X, Y);
+    FClickShift := Shift;
+    FClickButton := Button;
+    FDblClickTimer.Enabled := true;
+  end;
 end;
 
 procedure TCalendarLite.MouseEnter;