completionOps.ReplaceOnRight

Alexey-T · Jul 22, 2024 · a35a75d · a35a75d
1 parent 97b5472
commit a35a75d
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/atsynedit_cmp/atsynedit_cmp_form.pas b/atsynedit_cmp/atsynedit_cmp_form.pas
@@ -148,6 +148,7 @@   TATCompletionOptions = record
     TextIndentRightCol: integer;
     TextIndent: integer;
     ClosingTimerInverval: integer;
+    ReplaceOnRight: boolean;
     ShortcutForAutocomplete: TShortCut;
     CommandForShitchTab: integer;
   end;
@@ -886,7 +887,11 @@ procedure TFormATSynEditComplete.DoUpdate;
 
   SList.Clear;
   if Assigned(FOnGetProp) then
+  begin
     FOnGetProp(Editor, SList, FCharsLeft, FCharsRight);
+    if not CompletionOps.ReplaceOnRight then
+      FCharsRight:= 0;
+  end;
 
   Caret:= Editor.Carets[0];
   FUpdateForCaret.X:= Caret.PosX;
@@ -1092,6 +1097,7 @@ initialization
     TextIndentRightCol:= 3;
     TextIndent:= 8;
     ClosingTimerInverval:= 300;
+    ReplaceOnRight:= true;
     ShortcutForAutocomplete:= 0;
   end;