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

editor, add more brace auto-closing modes

This commit is contained in:
Basile Burg 2016-03-13 18:40:15 +01:00
parent 6b954e0fe5
commit 44e28a94a8
1 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/ce_synmemo.pas
View File

@ -25,7 +25,9 @@ type
autoCloseNever,
autoCloseAtEof,
autoCloseAlways,
autoCloseLexically
autoCloseLexically,
autoCloseOnNewLine,
autoCloseLexicallyOnNewLine
);
TIdentifierMatchOptions = set of TIdentifierMatchOption;
@ -1388,6 +1390,27 @@ end;
{$REGION user input ------------------------------------------------------------}
procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
if (fAutoCloseCurlyBrace in [autoCloseOnNewLine, autoCloseLexicallyOnNewLine])
and (CaretX > 1) and (LineText[CaretX-1] = '{') then
begin
if fAutoCloseCurlyBrace = autoCloseOnNewLine then
begin
Key := 0;
curlyBraceCloseAndIndent(self);
end
else begin
fLexToks.Clear;
lex(lines.Text, fLexToks);
if lexCanCloseBrace then
begin
Key := 0;
curlyBraceCloseAndIndent(self);
end;
end;
end;
end;
inherited;
highlightCurrentIdentifier;
if fCompletion.IsActive then
@ -1414,7 +1437,7 @@ end;
procedure TCESynMemo.KeyUp(var Key: Word; Shift: TShiftState);
begin
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;
end;
inherited;