Просмотр исходного кода

Add workaround for Scintilla bug.

Martijn Laan 1 год назад
Родитель
Сommit
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);