diff options
Diffstat (limited to 'src/screens')
| -rw-r--r-- | src/screens/UScreenLevel.pas | 10 | ||||
| -rw-r--r-- | src/screens/UScreenMain.pas | 9 |
2 files changed, 13 insertions, 6 deletions
diff --git a/src/screens/UScreenLevel.pas b/src/screens/UScreenLevel.pas index 4d7d8b5e..1ead9773 100644 --- a/src/screens/UScreenLevel.pas +++ b/src/screens/UScreenLevel.pas @@ -74,14 +74,18 @@ begin Exit; end; end; - + // check special keys case PressedKey of SDLK_ESCAPE, SDLK_BACKSPACE : begin AudioPlayback.PlaySound(SoundLib.Back); - FadeTo(@ScreenName); + + if Ini.OnSongClick = sSelectPlayer then + FadeTo(@ScreenMain) + else + FadeTo(@ScreenName); end; SDLK_RETURN: @@ -106,8 +110,6 @@ begin end; constructor TScreenLevel.Create; -//var -// I: integer; // Auto Removed, Unused Variable begin inherited Create; diff --git a/src/screens/UScreenMain.pas b/src/screens/UScreenMain.pas index 7237eb80..ca4ba7cc 100644 --- a/src/screens/UScreenMain.pas +++ b/src/screens/UScreenMain.pas @@ -136,8 +136,13 @@ begin if (Ini.Players = 4) then PlayersPlay := 6; - ScreenName.Goto_SingScreen := false; - FadeTo(@ScreenName, SoundLib.Start); + if Ini.OnSongClick = sSelectPlayer then + FadeTo(@ScreenLevel) + else + begin + ScreenName.Goto_SingScreen := false; + FadeTo(@ScreenName, SoundLib.Start); + end; end else //show error message ScreenPopupError.ShowPopup(Language.Translate('ERROR_NO_SONGS')); |