From 993a31575eb759eb992ecb32f0e9296c3ab8526b Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 6 Dec 2017 17:57:01 +0100
Subject: [PATCH] related to #190 but still not fixed

---
 src/ce_synmemo.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index e437aec8..e61b7a57 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -743,7 +743,6 @@ begin
   parent := editor;
   width := 475;
   height := 275;
-  CaptureMouseButtons:=[];
 
   fMemo:= TSynEdit.Create(self);
   fMemo.Parent := self;
@@ -787,7 +786,7 @@ procedure TCEScrollMemo.SetVisible(Value: Boolean);
 var
   o: boolean;
 begin
-  o := IsVisible();
+  o := Visible;
   inherited;
   if (o <> value) and value then
     updateFromSource;
@@ -795,6 +794,8 @@ end;
 
 procedure TCEScrollMemo.goToLine(value: integer);
 begin
+  if fMemo.PaintLock <> 0 then
+    exit;
   if value > fMemo.Lines.Count then
     value := fMemo.Lines.Count
   else if value < 1 then
@@ -1011,6 +1012,7 @@ begin
   if not fFocusForInput then
     subjDocFocused(TCEMultiDocSubject(fMultiDocSubject), self);
   fFocusForInput := true;
+  fScrollMemo.Visible:=false;
 end;
 
 procedure TCESynMemo.DoExit;