浏览代码

Try to implement BreakLine (Ctrl+N), bug report 28787

git-svn-id: trunk@34211 -
pierre 9 年之前
父节点
当前提交
cc7d0d2f45
共有 1 个文件被更改,包括 6 次插入1 次删除
  1. 6 1
      ide/weditor.pas

+ 6 - 1
ide/weditor.pas

@@ -4802,8 +4802,13 @@ begin
 end;
 
 procedure TCustomCodeEditor.BreakLine;
+var
+  SCP: TPoint;
 begin
-  NotImplemented; Exit;
+  { Like insert new line, but leave current pos unchanged }
+  SCP:=CurPos;
+  InsertNewLine;
+  SetCurPtr(SCP.X,SCP.Y);
 end;
 
 procedure TCustomCodeEditor.BackSpace;