From ad9e8ccc690fb72a72c2d52f4441276f3b3b380c Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 15 Oct 2015 05:35:58 +0200
Subject: [PATCH] editor pages, fix, ddoc win sometimes not closed when
 changinf active memo

---
 src/ce_editor.lfm | 1 +
 src/ce_editor.pas | 8 ++++++++
 2 files changed, 9 insertions(+)

diff --git a/src/ce_editor.lfm b/src/ce_editor.lfm
index 783f3936..e4a52d29 100644
--- a/src/ce_editor.lfm
+++ b/src/ce_editor.lfm
@@ -26,6 +26,7 @@ inherited CEEditorWidget: TCEEditorWidget
         BorderSpacing.Around = 2
         TabOrder = 0
         OnChange = PageControlChange
+        OnChanging = PageControlChanging
         Options = [nboShowCloseButtons, nboShowAddTabButton]
         TabDragMode = dmAutomatic
         TabDragAcceptMode = dmAutomatic
diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index cb0f4c22..ac781979 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -43,6 +43,7 @@ type
     procedure mnuedRedoClick(Sender: TObject);
     procedure mnuedJum2DeclClick(Sender: TObject);
     procedure PageControlChange(Sender: TObject);
+    procedure PageControlChanging(Sender: TObject; var AllowChange: Boolean);
   protected
     procedure updateDelayed; override;
     procedure updateImperative; override;
@@ -279,6 +280,13 @@ begin
   updateImperative;
 end;
 
+procedure TCEEditorWidget.PageControlChanging(Sender: TObject; var AllowChange: Boolean);
+begin
+  if fDoc = nil then exit;
+  fDoc.hideCallTips;
+  fDoc.hideDDocs;
+end;
+
 procedure TCEEditorWidget.memoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
   case Key of