aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens/UScreenSing.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Screens/UScreenSing.pas')
-rw-r--r--Game/Code/Screens/UScreenSing.pas10
1 files changed, 5 insertions, 5 deletions
diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index 6d05c145..bc6c0966 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -135,9 +135,9 @@ begin
If (PressedDown) Then
begin // Key Down
// check normal keys
- case WideUpperCase(CharCode)[1] of
+ case WideCharUpperCase(CharCode)[1] of
'Q':
- begin
+ begin
//When not ask before Exit then Finish now
if (Ini.AskbeforeDel <> 1) then
Finish
@@ -148,7 +148,7 @@ begin
Result := false;
Exit;
end;
- 'V': //Show Visualization
+ 'V': //Show Visualization
begin
fShowVisualization := not fShowVisualization;
@@ -162,12 +162,12 @@ begin
Exit;
end;
- 'P':
+ 'P':
begin
Pause;
Exit;
end;
- end;
+ end;
// check special keys
case PressedKey of