From 98541475a5d2c5f11cab1f8ac1864d0ff2363e0b Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Fri, 20 Apr 2012 15:22:53 +0000
Subject: [PATCH] TCDEdit: Implements ENTER key handling in multiline mode

git-svn-id: trunk@36935 -
---
 lcl/customdrawncontrols.pas | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/lcl/customdrawncontrols.pas b/lcl/customdrawncontrols.pas
index 0e52360e21..25545017bb 100644
--- a/lcl/customdrawncontrols.pas
+++ b/lcl/customdrawncontrols.pas
@@ -1778,6 +1778,27 @@ begin
   VK_RETURN:
   begin
     if not MultiLine then Exit;
+    // Selection delete
+    if IsSomethingSelected() then
+      DoDeleteSelection();
+    // If the are no contents at the moment, add two lines, because the first one always exists for the user
+    if FLines.Count = 0 then
+    begin
+      FLines.Add('');
+      FLines.Add('');
+      FEditState.CaretPos := Point(0, 1);
+    end
+    else
+    begin
+      // Get the two halves of the text separated by the cursor
+      lLeftText := UTF8Copy(lOldText, 1, FEditState.CaretPos.X);
+      lRightText := UTF8Copy(lOldText, FEditState.CaretPos.X+1, lOldTextLength);
+      // Move the right part to a new line
+      SetCurrentLine(lLeftText);
+      FLines.Insert(FEditState.CaretPos.Y+1, lRightText);
+      FEditState.CaretPos := Point(0, FEditState.CaretPos.Y+1);
+    end;
+    Invalidate;
   end;
 
   else