diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/fpg_memo.pas | 5 |
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; |