aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens/UScreenMain.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Screens/UScreenMain.pas')
-rw-r--r--Game/Code/Screens/UScreenMain.pas34
1 files changed, 21 insertions, 13 deletions
diff --git a/Game/Code/Screens/UScreenMain.pas b/Game/Code/Screens/UScreenMain.pas
index 44906858..2d13ac09 100644
--- a/Game/Code/Screens/UScreenMain.pas
+++ b/Game/Code/Screens/UScreenMain.pas
@@ -73,19 +73,14 @@ begin
If (PressedDown) Then
begin // Key Down
- case PressedKey of
- SDLK_Q:
+ // check normal keys
+ case WideUpperCase(CharCode)[1] of
+ 'Q':
begin
Result := false;
+ Exit;
end;
-
- SDLK_ESCAPE,
- SDLK_BACKSPACE :
- begin
- Result := False;
- end;
-
- SDLK_C:
+ 'C':
begin
if (SDL_ModState = KMOD_LALT) then
begin
@@ -93,24 +88,37 @@ begin
//Credits_Alpha := 0;
//Credits_Visible := True;
FadeTo(@ScreenCredits , SoundLib.Start );
+ Exit;
end;
end;
- SDLK_M:
+ 'M':
begin
if (Ini.Players >= 1) AND (Length(DLLMan.Plugins)>=1) then
begin
FadeTo(@ScreenPartyOptions, SoundLib.Start);
+ Exit;
end;
end;
- SDLK_S:
+ 'S':
begin
FadeTo(@ScreenStatMain, SoundLib.Start);
+ Exit;
end;
- SDLK_E:
+ 'E':
begin
FadeTo(@ScreenEdit, SoundLib.Start);
+ Exit;
+ end;
+ end;
+
+ // check special keys
+ case PressedKey of
+ SDLK_ESCAPE,
+ SDLK_BACKSPACE :
+ begin
+ Result := False;
end;
SDLK_RETURN: