浏览代码

Add workaround for Scintilla bug.

Martijn Laan 1 年之前
父节点
当前提交
8671312c3d
共有 1 个文件被更改,包括 5 次插入0 次删除
  1. 5 0
      Components/ScintEdit.pas

+ 5 - 0
Components/ScintEdit.pas

@@ -1348,6 +1348,11 @@ begin
     var Pos := SelectionCaretPosition[Selection];
     SelectionAnchorPosition[Selection] := Pos;
   end;
+  { Workaround Scintilla bug which was fixed in 3.6.3 with this note: "Send
+    SCN_UPDATEUI with SC_UPDATE_SELECTION when the application changes multiple
+    selection." }
+  if Assigned(FOnUpdateUI) then
+    FOnUpdateUI(Self);
 end;
 
 procedure TScintEdit.SetFillSelectionToEdge(const Value: Boolean);