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); procedure TCESynMemo.handleModalBeginning(sender: TObject);
begin begin
// AV can happens in TCustomSynEdit.UpdateCursor // AV can happens in TCustomSynEdit.UpdateCursor
if assigned(FTextArea) and if assigned(FTextArea) and (eoAutoHideCursor in Options2) then
(cursor = crNone) and (eoAutoHideCursor in Options2) then begin
cursor := crDefault; cursor := crIBeam;
UpdateCursor;
end;
end; end;
procedure TCESynMemo.setFocus; procedure TCESynMemo.setFocus;