Selaa lähdekoodia

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

git-svn-id: trunk@34211 -
pierre 9 vuotta sitten
vanhempi
commit
cc7d0d2f45
1 muutettua tiedostoa jossa 6 lisäystä ja 1 poistoa
  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;