From d758ed0e763fa5daac8e950eb1b7fdd51af1201d Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sat, 18 Apr 2015 18:32:41 +0200
Subject: [PATCH] fix, ddoc hint window stuck on top

could happen when switching sheets.
---
 src/ce_synmemo.pas | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index d1780770..514c5c11 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -103,6 +103,7 @@ type
     procedure HintTimerEvent(sender: TObject);
     procedure InitHintWins;
   protected
+    procedure MouseLeave; override;
     procedure SetVisible(Value: Boolean); override;
     procedure SetHighlighter(const Value: TSynCustomHighlighter); override;
     procedure UTF8KeyPress(var Key: TUTF8Char); override;
@@ -402,7 +403,12 @@ end;
 procedure TCESynMemo.SetVisible(Value: Boolean);
 begin
   inherited;
-  if Value then setFocus;
+  if Value then
+    setFocus
+  else begin
+    fDDocWin.Hide;
+    fCallTipWin.Hide;
+  end;
 end;
 
 procedure TCESynMemo.InitHintWins;
@@ -640,6 +646,12 @@ begin
   result += fMousePos.x;
 end;
 
+procedure TCESynMemo.MouseLeave;
+begin
+  fDDocWin.Hide;
+  fCallTipWin.Hide;
+end;
+
 procedure TCESynMemo.MouseMove(Shift: TShiftState; X, Y: Integer);
 var
   dX, dY: Integer;