Browse Source

Add workaround for Scintilla bug.

Martijn Laan 1 year ago
parent
commit
8671312c3d
1 changed files with 5 additions and 0 deletions
  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);