diff options
Diffstat (limited to 'Game/Code/Screens/UScreenSongMenu.pas')
-rw-r--r-- | Game/Code/Screens/UScreenSongMenu.pas | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Game/Code/Screens/UScreenSongMenu.pas b/Game/Code/Screens/UScreenSongMenu.pas index 9cbb1be9..edd3fabb 100644 --- a/Game/Code/Screens/UScreenSongMenu.pas +++ b/Game/Code/Screens/UScreenSongMenu.pas @@ -69,10 +69,10 @@ begin Result := true; if (PressedDown) then begin // Key Down - if (CurMenu = SM_Playlist_New) AND (Interaction=0) then
+ if (CurMenu = SM_Playlist_New) AND (Interaction=0) then begin // check normal keys - case WideUpperCase(CharCode)[1] of + case WideCharUpperCase(CharCode)[1] of '0'..'9', 'A'..'Z', ' ', '-', '_', '!', ',', '<', '/', '*', '?', '''', '"': begin Button[Interaction].Text[0].Text := Button[Interaction].Text[0].Text + CharCode; @@ -91,13 +91,13 @@ begin end; // check normal keys - case WideUpperCase(CharCode)[1] of + case WideCharUpperCase(CharCode)[1] of 'Q': - begin
- Result := false;
- Exit;
- end;
- end;
+ begin + Result := false; + Exit; + end; + end; // check special keys case PressedKey of |