Readded Q Shortcut (Exit Application) on all Screens

Clean up Popup Code a little bit

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

1 files changed, 5 insertions, 12 deletions

diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index e4ab8854..139d6984 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -248,6 +248,10 @@ begin
     end;

 

     case PressedKey of

+      SDLK_Q:

+        begin

+          Result := false;

+        end;

       SDLK_ESCAPE :

         begin

         if (Mode = 0) then

@@ -605,19 +609,8 @@ begin
             SetJoker;

           end;

         end;

-

-      SDLK_Q:

-        begin

-          Result := false;

-        end;

-    end;

-  end

-  else // Key Up

-    case PressedKey of

-      SDLK_RETURN :

-        begin

-        end;

     end;

+  end;

 end;

 

 constructor TScreenSong.Create;