forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix #400 - inconsistencies in automcompletion, after backspace

This commit is contained in:
Basile Burg 2019-01-20 08:29:39 +01:00
parent 3734a3e222
commit f3db219e83
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/u_synmemo.pas
View File

@ -2783,9 +2783,16 @@ procedure TDexedMemo.completionDeleteKey(sender: TObject);
begin begin
if CaretX > 0 then if CaretX > 0 then
begin begin
caretX := CaretX - 1;
// these "stinky" lines are necessary because
// the proc is called before deletion is effective
// i.e the deleted char is still there...
// related issues #400 and #398
caretX := caretX - 1;
ExecuteCommand(ecDeleteChar, #0, nil);
caretX := caretX + 1;
getCompletionList(); getCompletionList();
caretX := CaretX + 1;
if fCompletion.TheForm.ItemList.Count = 0 then if fCompletion.TheForm.ItemList.Count = 0 then
begin begin
fCompletion.TheForm.Close; fCompletion.TheForm.Close;