From 06f4ffa99c00200197958406a2b016a8a6b050ba Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 9 Mar 2010 21:20:15 +0000
Subject: bugfix for bpm-edit-mode

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2190 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenEditSub.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'Game/Code/Screens/UScreenEditSub.pas')

diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index d7c2859a..43720c8d 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -1168,8 +1168,11 @@ begin
       SDLK_BACKSPACE:
         begin
           strBPM := Text[TextBPM].Text;
-          Delete(strBPM, Length(strBPM)-1, 2);
-          Text[TextBPM].Text := strBPM + '|';
+          if Length(strBPM)>1 then
+          begin
+            Delete(strBPM, Length(strBPM)-1, 2);
+            Text[TextBPM].Text := strBPM + '|';
+          end;
         end;
     end;
   end;
-- 
cgit v1.2.3