tweak the fix #307 to prevent AV

This commit is contained in:
Basile Burg 2018-04-27 09:21:10 +02:00
parent 324322ff27
commit 1ddae5765a
1 changed files with 3 additions and 1 deletions

View File

@ -1136,7 +1136,9 @@ end;
procedure TCESynMemo.handleModalBeginning(sender: TObject);
begin
cursor := crDefault;
// AV can happens in TCustomSynEdit.UpdateCursor
if assigned(FTextArea) then
cursor := crDefault;
end;
procedure TCESynMemo.setFocus;