Issue #1568: fix ineffective temporary disabling of OnChange handler

This commit is contained in:
Ansgar Becker
2022-12-27 19:44:23 +01:00
parent 5b31188351
commit 7e63af8b51

View File

@ -7453,6 +7453,7 @@ begin
EndOfTokenRowCol := Editor.WordEndEx(StartOfTokenRowCol); EndOfTokenRowCol := Editor.WordEndEx(StartOfTokenRowCol);
OldOnChange := Editor.OnChange; OldOnChange := Editor.OnChange;
Editor.OnChange := nil;
Editor.InsertBlock(StartOfTokenRowCol, EndOfTokenRowCol, PWideChar(Replacement), True); Editor.InsertBlock(StartOfTokenRowCol, EndOfTokenRowCol, PWideChar(Replacement), True);
Editor.OnChange := OldOnChange; Editor.OnChange := OldOnChange;