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

editor, brace auto-closing, new line, lexically, not restricted to new line after open brace

This commit is contained in:
Basile Burg 2016-04-13 10:56:49 +02:00
parent 21d45c877f
commit 8d71f9d4db
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/ce_synmemo.pas
View File

@ -789,6 +789,13 @@ begin
break;
i += 1;
end;
if (beg[i] <> '{') and (i > 1) then
begin
if (eoTabsToSpaces in editor.Options) then
i -= editor.TabWidth
else
i -= 1;
end;
i -= 1;
editor.BeginUndoBlock;
editor.CommandProcessor(ecInsertLine, '', nil);
@ -1007,7 +1014,7 @@ begin
end;
CaretXY := cp;
end;
{$ENDREGIOn}
{$ENDREGION}
{$REGION DDoc & CallTip --------------------------------------------------------}
procedure TCESynMemo.InitHintWins;
@ -1428,15 +1435,14 @@ procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
if (fAutoCloseCurlyBrace in [autoCloseOnNewLineEof .. autoCloseOnNewLineLexically])
and (CaretX > 1) and (LineText[LogicalCaretXY.X - 1] = '{') then
if (fAutoCloseCurlyBrace in [autoCloseOnNewLineEof .. autoCloseOnNewLineLexically])then
case fAutoCloseCurlyBrace of
autoCloseOnNewLineAlways:
autoCloseOnNewLineAlways: if (CaretX > 1) and (LineText[LogicalCaretXY.X - 1] = '{') then
begin
Key := 0;
curlyBraceCloseAndIndent(self);
end;
autoCloseOnNewLineEof:
autoCloseOnNewLineEof: if (CaretX > 1) and (LineText[LogicalCaretXY.X - 1] = '{') then
if (CaretY = Lines.Count) and (CaretX = LineText.length+1) then
begin
Key := 0;