1 files changed, 3 insertions, 1 deletions
diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas
index 7325544e..0849797b 100644
--- a/src/gui/fpg_edit.pas
+++ b/src/gui/fpg_edit.pas
@@ -816,7 +816,9 @@ begin
     case keycode of
       keyBackSpace:
           begin
-            if FCursorPos > 0 then
+            if FSelOffset <> 0 then
+              DeleteSelection
+            else if FCursorPos > 0 then
             begin
               UTF8Delete(FText, FCursorPos, 1);
               Dec(FCursorPos);