modified ParseInput so Backspace will perform same function as ESC in most screens ( Except where text input is required, and backspace is used for text input )

This has been done, so that when used with Windows Media Center IR Remotes ( needs SDL 1.2 dll at runtime ) users can navigate throug the game without sitting in front of the PC keyboard.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@370 b956fd51-792f-4845-bead-9b4dfca2ff2c

32 files changed, 91 insertions, 33 deletions

diff --git a/Game/Code/Screens/UScreenCredits.pas b/Game/Code/Screens/UScreenCredits.pas
index a0ef01af..deaa042e 100644
--- a/Game/Code/Screens/UScreenCredits.pas
+++ b/Game/Code/Screens/UScreenCredits.pas
@@ -112,7 +112,9 @@ begin
   If (PressedDown) Then

   begin // Key Down

     case PressedKey of

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           FadeTo(@ScreenMain);

           Music.PlayBack;

diff --git a/Game/Code/Screens/UScreenEdit.pas b/Game/Code/Screens/UScreenEdit.pas
index ac2964cd..93c2a5b4 100644
--- a/Game/Code/Screens/UScreenEdit.pas
+++ b/Game/Code/Screens/UScreenEdit.pas
@@ -32,7 +32,9 @@ begin
         begin

           Result := false;

         end;

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Music.PlayBack;

           FadeTo(@ScreenMain);

diff --git a/Game/Code/Screens/UScreenEditConvert.pas b/Game/Code/Screens/UScreenEditConvert.pas
index f1e3ba32..791f8e50 100644
--- a/Game/Code/Screens/UScreenEditConvert.pas
+++ b/Game/Code/Screens/UScreenEditConvert.pas
@@ -83,7 +83,9 @@ begin
           Result := false;

         end;

 

-      SDLK_ESCAPE:

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           MidiFile.StopPlaying;

           Music.PlayBack;

diff --git a/Game/Code/Screens/UScreenEditHeader.pas b/Game/Code/Screens/UScreenEditHeader.pas
index 35d7840f..a7105b0e 100644
--- a/Game/Code/Screens/UScreenEditHeader.pas
+++ b/Game/Code/Screens/UScreenEditHeader.pas
@@ -57,6 +57,7 @@ begin
         begin

           Result := false;

         end;

+

       SDLK_ESCAPE :

         begin

 //          Music.PlayBack;

diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index 9ca45f55..1d5cc66d 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -94,7 +94,9 @@ begin
 

   If (PressedDown) then begin // Key Down

     case PressedKey of

-      SDLK_ESCAPE:

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           FadeTo(@ScreenSong);

         end;

@@ -565,7 +567,9 @@ begin
   If (PressedDown) Then

   begin // Key Down

     case PressedKey of

-      SDLK_ESCAPE:

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           FadeTo(@ScreenSong);

         end;

diff --git a/Game/Code/Screens/UScreenLevel.pas b/Game/Code/Screens/UScreenLevel.pas
index fc343042..34fc87af 100644
--- a/Game/Code/Screens/UScreenLevel.pas
+++ b/Game/Code/Screens/UScreenLevel.pas
@@ -29,7 +29,8 @@ begin
           Result := false;

         end;

 

-      SDLK_ESCAPE :

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Music.PlayBack;

           FadeTo(@ScreenName);

diff --git a/Game/Code/Screens/UScreenMain.pas b/Game/Code/Screens/UScreenMain.pas
index 085f253d..3d591a5c 100644
--- a/Game/Code/Screens/UScreenMain.pas
+++ b/Game/Code/Screens/UScreenMain.pas
@@ -53,7 +53,8 @@ begin
           Result := false;

         end;

 

-      SDLK_ESCAPE :

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Result := False;

         end;

diff --git a/Game/Code/Screens/UScreenOpen.pas b/Game/Code/Screens/UScreenOpen.pas
index af984a21..68667d87 100644
--- a/Game/Code/Screens/UScreenOpen.pas
+++ b/Game/Code/Screens/UScreenOpen.pas
@@ -52,7 +52,8 @@ begin
             end;

         end;

 

-      SDLK_ESCAPE:

+

+      SDLK_ESCAPE :

         begin

           //Empty Filename and go to last Screen

             FileName := '';

diff --git a/Game/Code/Screens/UScreenOptions.pas b/Game/Code/Screens/UScreenOptions.pas
index 02d42568..a1f64659 100644
--- a/Game/Code/Screens/UScreenOptions.pas
+++ b/Game/Code/Screens/UScreenOptions.pas
@@ -31,7 +31,9 @@ begin
         begin

           Result := false;

         end;

-      SDLK_ESCAPE:

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Ini.Save;

           Music.PlayBack;

diff --git a/Game/Code/Screens/UScreenOptionsAdvanced.pas b/Game/Code/Screens/UScreenOptionsAdvanced.pas
index 9cac8c5e..63c3aa7a 100644
--- a/Game/Code/Screens/UScreenOptionsAdvanced.pas
+++ b/Game/Code/Screens/UScreenOptionsAdvanced.pas
@@ -27,7 +27,9 @@ begin
         begin

           Result := false;

         end;

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Ini.Save;

           Music.PlayBack;

diff --git a/Game/Code/Screens/UScreenOptionsGame.pas b/Game/Code/Screens/UScreenOptionsGame.pas
index 8712decc..0f69f326 100644
--- a/Game/Code/Screens/UScreenOptionsGame.pas
+++ b/Game/Code/Screens/UScreenOptionsGame.pas
@@ -29,7 +29,9 @@ begin
         begin

           Result := false;

         end;

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Music.PlayBack;

           RefreshSongs;

diff --git a/Game/Code/Screens/UScreenOptionsGraphics.pas b/Game/Code/Screens/UScreenOptionsGraphics.pas
index c0641fc2..d4be6974 100644
--- a/Game/Code/Screens/UScreenOptionsGraphics.pas
+++ b/Game/Code/Screens/UScreenOptionsGraphics.pas
@@ -27,7 +27,9 @@ begin
         begin

           Result := false;

         end;

-      SDLK_ESCAPE:

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Ini.Save;

           Music.PlayBack;

diff --git a/Game/Code/Screens/UScreenOptionsLyrics.pas b/Game/Code/Screens/UScreenOptionsLyrics.pas
index f4044933..5cadc5b9 100644
--- a/Game/Code/Screens/UScreenOptionsLyrics.pas
+++ b/Game/Code/Screens/UScreenOptionsLyrics.pas
@@ -27,7 +27,9 @@ begin
         begin

           Result := false;

         end;

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Ini.Save;

           Music.PlayBack;

diff --git a/Game/Code/Screens/UScreenOptionsRecord.pas b/Game/Code/Screens/UScreenOptionsRecord.pas
index b005492a..2ff989fa 100644
--- a/Game/Code/Screens/UScreenOptionsRecord.pas
+++ b/Game/Code/Screens/UScreenOptionsRecord.pas
@@ -32,7 +32,8 @@ begin
         begin

           Result := false;

         end;

-      SDLK_ESCAPE, SDLK_BACKSPACE:

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE:

         begin

           Ini.Save;

           Music.PlayBack;

diff --git a/Game/Code/Screens/UScreenOptionsSound.pas b/Game/Code/Screens/UScreenOptionsSound.pas
index fb04ab64..3c3e28e4 100644
--- a/Game/Code/Screens/UScreenOptionsSound.pas
+++ b/Game/Code/Screens/UScreenOptionsSound.pas
@@ -27,7 +27,9 @@ begin
         begin

           Result := false;

         end;

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Ini.Save;

           Music.PlayBack;

diff --git a/Game/Code/Screens/UScreenOptionsThemes.pas b/Game/Code/Screens/UScreenOptionsThemes.pas
index b73693c1..5b5f8877 100644
--- a/Game/Code/Screens/UScreenOptionsThemes.pas
+++ b/Game/Code/Screens/UScreenOptionsThemes.pas
@@ -30,7 +30,9 @@ begin
         begin

           Result := false;

         end;

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Ini.Save;

           Music.PlayBack;

diff --git a/Game/Code/Screens/UScreenPartyNewRound.pas b/Game/Code/Screens/UScreenPartyNewRound.pas
index f084ee10..938aacfb 100644
--- a/Game/Code/Screens/UScreenPartyNewRound.pas
+++ b/Game/Code/Screens/UScreenPartyNewRound.pas
@@ -83,7 +83,9 @@ begin
           Result := false;

         end;

 

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Music.PlayBack;

           CheckFadeTo(@ScreenMain,'MSG_END_PARTY');

diff --git a/Game/Code/Screens/UScreenPartyOptions.pas b/Game/Code/Screens/UScreenPartyOptions.pas
index 49cc8c53..493f3939 100644
--- a/Game/Code/Screens/UScreenPartyOptions.pas
+++ b/Game/Code/Screens/UScreenPartyOptions.pas
@@ -55,7 +55,9 @@ begin
           Result := false;

         end;

 

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Music.PlayBack;

           FadeTo(@ScreenMain);

diff --git a/Game/Code/Screens/UScreenPartyPlayer.pas b/Game/Code/Screens/UScreenPartyPlayer.pas
index d6859775..e6830ee6 100644
--- a/Game/Code/Screens/UScreenPartyPlayer.pas
+++ b/Game/Code/Screens/UScreenPartyPlayer.pas
@@ -181,7 +181,7 @@ begin
           Button[Interaction].Text[0].DeleteLastL;

         end;

 

-      SDLK_ESCAPE :

+      SDLK_ESCAPE:

         begin

           Ini.SaveNames;

           Music.PlayBack;

diff --git a/Game/Code/Screens/UScreenPartyScore.pas b/Game/Code/Screens/UScreenPartyScore.pas
index 5c632356..6333896c 100644
--- a/Game/Code/Screens/UScreenPartyScore.pas
+++ b/Game/Code/Screens/UScreenPartyScore.pas
@@ -53,7 +53,9 @@ begin
           Result := false;

         end;

 

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Music.PlayStart;

           if (PartySession.CurRound < High(PartySession.Rounds)) then

diff --git a/Game/Code/Screens/UScreenPartyWin.pas b/Game/Code/Screens/UScreenPartyWin.pas
index 76d0420f..fecca3d1 100644
--- a/Game/Code/Screens/UScreenPartyWin.pas
+++ b/Game/Code/Screens/UScreenPartyWin.pas
@@ -46,7 +46,9 @@ begin
           Result := false;

         end;

 

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Music.PlayStart;

           FadeTo(@ScreenMain);

diff --git a/Game/Code/Screens/UScreenPopup.pas b/Game/Code/Screens/UScreenPopup.pas
index 2a789e42..f583eb90 100644
--- a/Game/Code/Screens/UScreenPopup.pas
+++ b/Game/Code/Screens/UScreenPopup.pas
@@ -53,7 +53,8 @@ begin
           Result := false;

         end;

 

-      SDLK_ESCAPE :

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Display.CheckOK:=False;

           Display.NextScreenWithCheck:=NIL;

@@ -159,7 +160,8 @@ begin
           Result := false;

         end;

 

-      SDLK_ESCAPE :

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Visible:=False;

           Result := false;

diff --git a/Game/Code/Screens/UScreenScore.pas b/Game/Code/Screens/UScreenScore.pas
index af1ccb59..2fdccf8e 100644
--- a/Game/Code/Screens/UScreenScore.pas
+++ b/Game/Code/Screens/UScreenScore.pas
@@ -64,7 +64,9 @@ begin
           Result := false;

         end;

 

-      SDLK_ESCAPE :

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

+

         begin

           if (not Fadeout) then begin

 //            Music.StopShuffle;

diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index 6ce19c17..8291a430 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -103,7 +103,9 @@ begin
           

           Result := false;

         end;

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           //Record Sound Hack:

           //Sound[0].BufferLong

diff --git a/Game/Code/Screens/UScreenSingModi.pas b/Game/Code/Screens/UScreenSingModi.pas
index 0b9ab893..e046e193 100644
--- a/Game/Code/Screens/UScreenSingModi.pas
+++ b/Game/Code/Screens/UScreenSingModi.pas
@@ -73,7 +73,9 @@ begin
   If (PressedDown) Then

   begin // Key Down

     case PressedKey of

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Finish;

           Music.PlayBack;

diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index cddf864e..38266797 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -269,7 +269,9 @@ begin
         begin

           Result := false;

         end;

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

         if (Mode = 0) then

         begin

diff --git a/Game/Code/Screens/UScreenSongJumpto.pas b/Game/Code/Screens/UScreenSongJumpto.pas
index 7103257d..48d23468 100644
--- a/Game/Code/Screens/UScreenSongJumpto.pas
+++ b/Game/Code/Screens/UScreenSongJumpto.pas
@@ -61,7 +61,8 @@ begin
           end;

         end;

 

-      SDLK_RETURN, SDLK_ESCAPE:

+      SDLK_RETURN,

+      SDLK_ESCAPE:

         begin

           Visible := False;

           Music.PlayBack;

diff --git a/Game/Code/Screens/UScreenSongMenu.pas b/Game/Code/Screens/UScreenSongMenu.pas
index 06b8f183..9fe70522 100644
--- a/Game/Code/Screens/UScreenSongMenu.pas
+++ b/Game/Code/Screens/UScreenSongMenu.pas
@@ -73,7 +73,9 @@ begin
           Result := false;

         end;

 

-      SDLK_ESCAPE :

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Music.PlayBack;

           Visible := False;

diff --git a/Game/Code/Screens/UScreenStatDetail.pas b/Game/Code/Screens/UScreenStatDetail.pas
index 1461a9da..9dc6c525 100644
--- a/Game/Code/Screens/UScreenStatDetail.pas
+++ b/Game/Code/Screens/UScreenStatDetail.pas
@@ -47,7 +47,9 @@ begin
         begin

           Result := false;

         end;

-      SDLK_ESCAPE:

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Music.PlayBack;

           FadeTo(@ScreenStatMain);

diff --git a/Game/Code/Screens/UScreenStatMain.pas b/Game/Code/Screens/UScreenStatMain.pas
index b3907d41..86d7d561 100644
--- a/Game/Code/Screens/UScreenStatMain.pas
+++ b/Game/Code/Screens/UScreenStatMain.pas
@@ -34,7 +34,9 @@ begin
         begin

           Result := false;

         end;

-      SDLK_ESCAPE:

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Ini.Save;

           Music.PlayBack;

diff --git a/Game/Code/Screens/UScreenTop5.pas b/Game/Code/Screens/UScreenTop5.pas
index 4d542bf0..0f758db6 100644
--- a/Game/Code/Screens/UScreenTop5.pas
+++ b/Game/Code/Screens/UScreenTop5.pas
@@ -37,7 +37,10 @@ begin
           Result := false;

         end;

 

-      SDLK_ESCAPE, SDLK_RETURN:

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

+      SDLK_RETURN:

         begin

           if (not Fadeout) then begin

             FadeTo(@ScreenSong);

diff --git a/Game/Code/Screens/UScreenWelcome.pas b/Game/Code/Screens/UScreenWelcome.pas
index 79fcc2c4..35e159f8 100644
--- a/Game/Code/Screens/UScreenWelcome.pas
+++ b/Game/Code/Screens/UScreenWelcome.pas
@@ -25,7 +25,8 @@ begin
   Result := true;

   If (PressedDown) Then begin

     case PressedKey of

-      SDLK_ESCAPE :

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

         begin

           Result := False;

         end;