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

prevent fast enough DotDot to trigger the completion menu

This commit is contained in:
Basile Burg 2021-09-19 00:11:58 +02:00
parent 22faea8cdc
commit e6eee57ef5
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -3,6 +3,7 @@
## Enhancement ## Enhancement
- editor: a new option, _textCompletion_, sets if the completion menu includes the identifiers obtained by word-splitting the whole document. (#85) - editor: a new option, _textCompletion_, sets if the completion menu includes the identifiers obtained by word-splitting the whole document. (#85)
- editor: prevent completion menu to show on fast enough (< to the _autoDotDelay_ setting) `..`.
- Halstead metrics: show full function signatures. - Halstead metrics: show full function signatures.
- projects: added the _Check semantics_ to the menu. (#83) - projects: added the _Check semantics_ to the menu. (#83)
- DUB projects: added support for the _syntax_ build type. (#83) - DUB projects: added support for the _syntax_ build type. (#83)

4
src/u_synmemo.pas
View File

@ -257,6 +257,7 @@ type
fMultiGutterMarks: TSynMultiGutterMarks; fMultiGutterMarks: TSynMultiGutterMarks;
fTextCompletion: boolean; fTextCompletion: boolean;
fTextCompletionMinLength: integer; fTextCompletionMinLength: integer;
fLastUp: word;
procedure showHintEvent(Sender: TObject; HintInfo: PHintInfo); procedure showHintEvent(Sender: TObject; HintInfo: PHintInfo);
procedure setGutterTransparent(value: boolean); procedure setGutterTransparent(value: boolean);
procedure decCallTipsLvl; procedure decCallTipsLvl;
@ -3690,7 +3691,7 @@ procedure TDexedMemo.KeyUp(var Key: Word; Shift: TShiftState);
begin begin
case Key of case Key of
VK_PRIOR, VK_NEXT, VK_UP: fPositions.store; VK_PRIOR, VK_NEXT, VK_UP: fPositions.store;
VK_OEM_PERIOD, VK_DECIMAL: fCanAutoDot := true; VK_OEM_PERIOD, VK_DECIMAL: fCanAutoDot := (fLastUp <> VK_OEM_PERIOD) and (fLastUp <> VK_DECIMAL);
end; end;
inherited; inherited;
if fAutoCallCompletion and fIsDSource and (not fCompletion.IsActive) and if fAutoCallCompletion and fIsDSource and (not fCompletion.IsActive) and
@ -3701,6 +3702,7 @@ begin
end; end;
if (Key = VK_BACK) and fCallTipWin.Visible then if (Key = VK_BACK) and fCallTipWin.Visible then
showCallTips(true); showCallTips(true);
fLastUp := Key;
end; end;
procedure TDexedMemo.UTF8KeyPress(var Key: TUTF8Char); procedure TDexedMemo.UTF8KeyPress(var Key: TUTF8Char);