aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens/UScreenEditSub.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Screens/UScreenEditSub.pas')
-rw-r--r--Game/Code/Screens/UScreenEditSub.pas22
1 files changed, 11 insertions, 11 deletions
diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index c75661fc..1fb7bff8 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -119,13 +119,13 @@ begin
If (PressedDown) then begin // Key Down
// check normal keys
- case WideUpperCase(CharCode)[1] of
+ case WideCharUpperCase(CharCode)[1] of
'Q':
- begin
- Result := false;
- Exit;
- end;
- 'S':
+ begin
+ Result := false;
+ Exit;
+ end;
+ 'S':
begin
// Save Song
if SDL_ModState = KMOD_LSHIFT then
@@ -181,7 +181,7 @@ begin
CopySentence(CopySrc, Lines[0].Current);
end;
end;
- 'T':
+ 'T':
begin
// Fixes timings between sentences
FixTimings;
@@ -232,7 +232,7 @@ begin
end;
Exit;
end;
- // Golden Note Patch
+ // Golden Note Patch
'G':
begin
case Lines[0].Line[Lines[0].Current].Note[CurrentNote].NoteType of
@@ -260,9 +260,9 @@ begin
end; // case
Exit;
end;
- end;
-
- // check special keys
+ end;
+
+ // check special keys
case PressedKey of
SDLK_ESCAPE,
SDLK_BACKSPACE :