memo: Fixed deletion of selected lines.

Thanks to JoshyFun <joshyfun@gmail.com> for suggestions.

1 files changed, 3 insertions, 2 deletions

diff --git a/src/gui/fpg_memo.pas b/src/gui/fpg_memo.pas
index 3e972430..bbc4b4ca 100644
--- a/src/gui/fpg_memo.pas
+++ b/src/gui/fpg_memo.pas
@@ -403,8 +403,9 @@ begin
     SetLineText(selsl, ls);
   end;
 
-  for n := selsl to selel do
-    FLines.Delete(n);
+  //delete moves lines up, so delete same line number over and over.
+  for n := (selsl+1) to selel do
+    FLines.Delete(selsl+1);
 
   FCursorPos  := selsp;
   FCursorLine := selsl;