aboutsummaryrefslogtreecommitdiffstats
path: root/src/screens
diff options
context:
space:
mode:
Diffstat (limited to 'src/screens')
-rw-r--r--src/screens/UScreenSong.pas10
1 files changed, 9 insertions, 1 deletions
diff --git a/src/screens/UScreenSong.pas b/src/screens/UScreenSong.pas
index 6fe8d204..abd4f760 100644
--- a/src/screens/UScreenSong.pas
+++ b/src/screens/UScreenSong.pas
@@ -283,15 +283,23 @@ begin
SDL_ModState := SDL_GetModState and (KMOD_LSHIFT + KMOD_RSHIFT
+ KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT + KMOD_RALT);
+ Log.LogError('TScreenSong.ParseInput', 'SDL_ModState: ' + IntToStr(SDL_ModState));
+ Log.LogError('TScreenSong.ParseInput', 'KMOD_LALT: ' + IntToStr(KMOD_LALT));
+ Log.LogError('TScreenSong.ParseInput', 'Mode: ' + IntToStr(Ord(Mode)));
+ Log.LogError('TScreenSong.ParseInput', 'smNormal: ' + IntToStr(Ord(smNormal)));
+ Log.LogError('TScreenSong.ParseInput', 'PressedKey: ' + IntToStr(Ord(PressedKey)));
+ Log.LogError('TScreenSong.ParseInput', 'CharCode: ' + IntToStr(Ord(CharCode)));
//Jump to Artist/Titel
if ((SDL_ModState and KMOD_LALT <> 0) and (Mode = smNormal)) then
begin
- UpperLetter := UCS4UpperCase(CharCode);
+ UpperLetter := UCS4UpperCase(PressedKey);
+ Log.LogError('TScreenSong.ParseInput', 'UpperLetter: ' + IntToStr(Ord(UpperLetter)));
if (UpperLetter in ([Ord('A')..Ord('Z'), Ord('0') .. Ord('9')]) ) then
begin
I2 := Length(CatSongs.Song);
+ Log.LogError('TScreenSong.ParseInput', '**** Got a key.');
//Jump To Titel
if (SDL_ModState = (KMOD_LALT or KMOD_LSHIFT)) then