fix #307 - Cursor remains invisible while modal dialog is displayed

This commit is contained in:
Basile Burg 2018-04-26 17:39:00 +02:00
parent ccca4df0ca
commit 105c9b6517
1 changed files with 3 additions and 0 deletions

View File

@ -2814,6 +2814,9 @@ procedure TCESynMemo.handleStatusChanged(Sender: TObject; Changes: TSynStatusCha
begin begin
if scOptions in Changes then if scOptions in Changes then
begin begin
// note: eoAutoHideCursor is buggy when eoAlwaysVisibleCaret is not also set
if eoAutoHideCursor in Options2 then
Options2 := Options2 + [eoAlwaysVisibleCaret];
if fSmartDdocNewline and not (eoAutoIndent in Options) then if fSmartDdocNewline and not (eoAutoIndent in Options) then
Options := Options + [eoAutoIndent]; Options := Options + [eoAutoIndent];
if Beautifier.isNotNil and (Beautifier is TSynBeautifier) then if Beautifier.isNotNil and (Beautifier is TSynBeautifier) then