From 88245e86a5fb748f3d1cc2072995a419b791364f Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 27 Apr 2018 16:18:24 +0200
Subject: [PATCH] close #307 for good

---
 src/ce_synmemo.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index 55b3716d..62002dc5 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -1137,9 +1137,11 @@ end;
 procedure TCESynMemo.handleModalBeginning(sender: TObject);
 begin
   // AV can happens in TCustomSynEdit.UpdateCursor
-  if assigned(FTextArea) and
-    (cursor = crNone) and (eoAutoHideCursor in Options2) then
-      cursor := crDefault;
+  if assigned(FTextArea) and (eoAutoHideCursor in Options2) then
+  begin
+    cursor := crIBeam;
+    UpdateCursor;
+  end;
 end;
 
 procedure TCESynMemo.setFocus;