close #307 for good

This commit is contained in:
Basile Burg 2018-04-27 16:18:24 +02:00
parent 7ba91d8a54
commit 88245e86a5
1 changed files with 5 additions and 3 deletions

View File

@ -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;