From a6a7f942525bd42aa3e59ef4dfac71493468b561 Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Tue, 14 Dec 2010 16:26:07 +0000 Subject: - fixed perfect note effect for duets - fixed sorting by year (wrong decade) - fixed double party score on last round - added shortcut to options screen "O" git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2759 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Screens/UScreenSongJumpto.pas | 31 ++++++++++++++----------------- 1 file changed, 14 insertions(+), 17 deletions(-) (limited to 'Game/Code/Screens/UScreenSongJumpto.pas') diff --git a/Game/Code/Screens/UScreenSongJumpto.pas b/Game/Code/Screens/UScreenSongJumpto.pas index b210dd7e..4c84f67c 100644 --- a/Game/Code/Screens/UScreenSongJumpto.pas +++ b/Game/Code/Screens/UScreenSongJumpto.pas @@ -47,26 +47,23 @@ uses UGraphic, UHelp, UMain, UIni, UTexture, ULanguage, UParty, USongs, UScreenS function TScreenSongJumpto.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; begin Result := true; + + if not (ScanCode in [0..31, 127..159]) then + begin + if not isDuet then + begin + if Interaction = 0 then + begin + Button[0].Text[0].Text := Button[0].Text[0].Text + chr(ScanCode); + SetTextFound(CatSongs.SetFilter(Button[0].Text[0].Text, SelectType)); + end; + end; + Exit; + end; + If (PressedDown) Then begin // Key Down case PressedKey of - SDLK_0..SDLK_9, SDLK_A..SDLK_Z, - SDLK_SPACE, SDLK_MINUS, SDLK_EXCLAIM, - SDLK_COMMA, SDLK_SLASH, SDLK_ASTERISK, - SDLK_QUESTION, SDLK_QUOTE, SDLK_QUOTEDBL, - SDLK_LEFTBRACKET, SDLK_SEMICOLON, - SDLK_PERIOD: - begin - if not isDuet then - begin - if Interaction = 0 then - begin - Button[0].Text[0].Text := Button[0].Text[0].Text + chr(ScanCode); - SetTextFound(CatSongs.SetFilter(Button[0].Text[0].Text, SelectType)); - end; - end; - end; - //MP3-Volume Up SDLK_PAGEUP: begin -- cgit v1.2.3