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

comp menu auto close option unrelated to update list

This commit is contained in:
Basile Burg 2018-10-22 06:45:16 +02:00
parent 1e340a7f9d
commit 76f0550551
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ce_synmemo.pas
View File

@ -2765,17 +2765,14 @@ end;
procedure TCESynMemo.completionDeleteKey(sender: TObject); procedure TCESynMemo.completionDeleteKey(sender: TObject);
begin begin
if fCompletionMenuAutoClose then if CaretX > 0 then
begin
if fCompletion.CurrentString.length < 2 then
fCompletion.TheForm.Close
end
else if CaretX > 0 then
begin begin
caretX := CaretX - 1; caretX := CaretX - 1;
getCompletionList(); getCompletionList();
caretX := CaretX + 1; caretX := CaretX + 1;
end; end;
if fCompletionMenuAutoClose and (fCompletion.CurrentString.length < 2) then
fCompletion.TheForm.Close;
end; end;
procedure TCESynMemo.getCompletionList; procedure TCESynMemo.getCompletionList;