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

fix #152 - Code completion doesn't automatically close after deleting

This commit is contained in:
Basile Burg 2017-05-31 11:12:24 +02:00
parent 6c3ca70a6f
commit d845d1ce3d
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_synmemo.pas
View File

@ -201,6 +201,7 @@ type
procedure setDDocDelay(value: Integer); procedure setDDocDelay(value: Integer);
procedure setAutoDotDelay(value: Integer); procedure setAutoDotDelay(value: Integer);
procedure completionExecute(sender: TObject); procedure completionExecute(sender: TObject);
procedure completionDeleteKey(sender: TObject);
procedure getCompletionList; procedure getCompletionList;
procedure completionFormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure completionFormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
function completionItemPaint(const AKey: string; ACanvas: TCanvas;X, Y: integer; function completionItemPaint(const AKey: string; ACanvas: TCanvas;X, Y: integer;
@ -748,6 +749,7 @@ begin
fCompletion.OnExecute:= @completionExecute; fCompletion.OnExecute:= @completionExecute;
fCompletion.OnCodeCompletion:=@completionCodeCompletion; fCompletion.OnCodeCompletion:=@completionCodeCompletion;
fCompletion.OnPaintItem:= @completionItemPaint; fCompletion.OnPaintItem:= @completionItemPaint;
fCompletion.OnKeyDelete:= @completionDeleteKey;
fCompletion.TheForm.OnKeyDown:= @completionFormKeyDown; fCompletion.TheForm.OnKeyDown:= @completionFormKeyDown;
fCompletion.CaseSensitive:=true; fCompletion.CaseSensitive:=true;
TStringList(fCompletion.ItemList).CaseSensitive:=true; TStringList(fCompletion.ItemList).CaseSensitive:=true;
@ -2064,6 +2066,14 @@ begin
getCompletionList; getCompletionList;
end; end;
procedure TCESynMemo.completionDeleteKey(sender: TObject);
var
e: string;
begin
if fCompletion.CurrentString.length < 2 then
fCompletion.TheForm.Close;
end;
procedure TCESynMemo.getCompletionList; procedure TCESynMemo.getCompletionList;
var var
i: integer; i: integer;