Browse Source

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

git-svn-id: trunk@34211 -
pierre 9 years ago
parent
commit
cc7d0d2f45
1 changed files with 6 additions and 1 deletions
  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;