fix firing OnCaret after drag-drop

Alexey-T · Jun 24, 2020 · f8d513d · f8d513d
1 parent 810ccfa
commit f8d513d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/atsynedit/atsynedit.pas b/atsynedit/atsynedit.pas
@@ -6246,7 +6246,6 @@ procedure TATSynEdit.DoDropText(AndDeleteSelection: boolean);
   if not bSel then Exit;
 
   DoSelect_None;
-  DoEventCarets;
 
   //calc insert-pos
   P:= ScreenToClient(Mouse.CursorPos);
@@ -6285,6 +6284,7 @@ procedure TATSynEdit.DoDropText(AndDeleteSelection: boolean);
   end;
 
   Update(true);
+  DoEventCarets;
   DoEventChange;
 end;