aboutsummaryrefslogtreecommitdiffstats
path: root/src/screens
diff options
context:
space:
mode:
Diffstat (limited to 'src/screens')
-rw-r--r--src/screens/UScreenLevel.pas3
-rw-r--r--src/screens/UScreenPartyNewRound.pas4
-rw-r--r--src/screens/UScreenPartyOptions.pas3
-rw-r--r--src/screens/UScreenPartyScore.pas4
-rw-r--r--src/screens/UScreenPartyWin.pas4
-rw-r--r--src/screens/UScreenSingModi.pas1
-rw-r--r--src/screens/UScreenSong.pas25
7 files changed, 1 insertions, 43 deletions
diff --git a/src/screens/UScreenLevel.pas b/src/screens/UScreenLevel.pas
index 9535f527..a632cf78 100644
--- a/src/screens/UScreenLevel.pas
+++ b/src/screens/UScreenLevel.pas
@@ -117,9 +117,6 @@ begin
inherited;
Interaction := Ini.Difficulty;
-
-// LCD.WriteText(1, ' Choose mode: ');
-// UpdateLCD;
end;
procedure TScreenLevel.SetAnimationProgress(Progress: real);
diff --git a/src/screens/UScreenPartyNewRound.pas b/src/screens/UScreenPartyNewRound.pas
index fec6da7a..3d518eca 100644
--- a/src/screens/UScreenPartyNewRound.pas
+++ b/src/screens/UScreenPartyNewRound.pas
@@ -448,10 +448,6 @@ begin
end
else
Text[TextNextPlayer3].Visible := False; }
-
-
-// LCD.WriteText(1, ' Choose mode: ');
-// UpdateLCD;
end;
procedure TScreenPartyNewRound.SetAnimationProgress(Progress: real);
diff --git a/src/screens/UScreenPartyOptions.pas b/src/screens/UScreenPartyOptions.pas
index 5603502a..9992fab5 100644
--- a/src/screens/UScreenPartyOptions.pas
+++ b/src/screens/UScreenPartyOptions.pas
@@ -290,9 +290,6 @@ begin
inherited;
Randomize;
-
-// LCD.WriteText(1, ' Choose mode: ');
-// UpdateLCD;
end;
procedure TScreenPartyOptions.SetAnimationProgress(Progress: real);
diff --git a/src/screens/UScreenPartyScore.pas b/src/screens/UScreenPartyScore.pas
index a2156876..bd54d55e 100644
--- a/src/screens/UScreenPartyScore.pas
+++ b/src/screens/UScreenPartyScore.pas
@@ -312,10 +312,6 @@ begin
Static[StaticTeam3BG].Visible := False;
Static[StaticTeam3Deco].Visible := False;
end;
-
-
-// LCD.WriteText(1, ' Choose mode: ');
-// UpdateLCD;
end;
procedure TScreenPartyScore.SetAnimationProgress(Progress: real);
diff --git a/src/screens/UScreenPartyWin.pas b/src/screens/UScreenPartyWin.pas
index fb8341c9..6b4a55c0 100644
--- a/src/screens/UScreenPartyWin.pas
+++ b/src/screens/UScreenPartyWin.pas
@@ -277,10 +277,6 @@ begin
Static[StaticTeam3BG].Visible := False;
Static[StaticTeam3Deco].Visible := False;
end; }
-
-
-// LCD.WriteText(1, ' Choose mode: ');
-// UpdateLCD;
end;
procedure TScreenPartyWin.SetAnimationProgress(Progress: real);
diff --git a/src/screens/UScreenSingModi.pas b/src/screens/UScreenSingModi.pas
index 4900753b..948dc29c 100644
--- a/src/screens/UScreenSingModi.pas
+++ b/src/screens/UScreenSingModi.pas
@@ -95,7 +95,6 @@ type
function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; override;
function Draw: boolean; override;
procedure Finish; override;
- //procedure UpdateLCD; //TODO: maybe LCD Support as Plugin?
//procedure Pause; //Pause Mod(Toggles Pause)
end;
diff --git a/src/screens/UScreenSong.pas b/src/screens/UScreenSong.pas
index a4c94e45..d0337d30 100644
--- a/src/screens/UScreenSong.pas
+++ b/src/screens/UScreenSong.pas
@@ -273,7 +273,7 @@ begin
//Jump to Artist/Titel
if ((SDL_ModState and KMOD_LALT <> 0) and (Mode = smNormal)) then
begin
- if (WideCharUpperCase(CharCode)[1] in ([WideChar('A')..WideChar('Z')]) ) then
+ if (WideCharUpperCase(CharCode)[1] in ([WideChar('A')..WideChar('Z'), WideChar('0') .. WideChar('9')]) ) then
begin
Letter := WideCharUpperCase(CharCode)[1];
I2 := Length(CatSongs.Song);
@@ -293,7 +293,6 @@ begin
ChangeMusic;
SetScroll4;
- //UpdateLCD; //TODO: maybe LCD Support as Plugin?
//Break and Exit
Exit;
end;
@@ -314,7 +313,6 @@ begin
ChangeMusic;
SetScroll4;
- //UpdateLCD; //TODO: maybe LCD Support as Plugin?
//Break and Exit
Exit;
@@ -457,7 +455,6 @@ begin
ChangeMusic;
SetScroll4;
- //UpdateLCD; //TODO: maybe LCD Support as Plugin?
end;
Exit;
end;
@@ -541,9 +538,6 @@ begin
begin
if Songs.SongList.Count > 0 then
begin
- {$IFDEF UseSerialPort}
- // PortWriteB($378, 0);
- {$ENDIF}
if CatSongs.Song[Interaction].Main then
begin // clicked on Category Button
//Show Cat in Top Left Mod
@@ -682,8 +676,6 @@ begin
//SongTarget := Interaction;
ChangeMusic;
SetScroll4;
- //UpdateLCD; //TODO: maybe LCD Support as Plugin?
- //Light.LightOne(1, 200); //TODO: maybe Light Support as Plugin?
end;
end;
@@ -695,8 +687,6 @@ begin
SelectPrev;
ChangeMusic;
SetScroll4;
- //UpdateLCD; //TODO: maybe LCD Support as Plugin?
- //Light.LightOne(0, 200); //TODO: maybe Light Support as Plugin?
end;
end;
@@ -1383,7 +1373,6 @@ begin
StartMusicPreview();
SetScroll;
- //UpdateLCD; //TODO: maybe LCD Support as Plugin?
end;
//Playlist Mode
@@ -1584,17 +1573,6 @@ begin
end;
end;
-(*
-procedure TScreenSong.UpdateLCD; //TODO: maybe LCD Support as Plugin?
-begin
- LCD.HideCursor;
- LCD.Clear;
- LCD.WriteText(1, Text[TextArtist].Text);
- LCD.WriteText(2, Text[TextTitle].Text);
-
-end;
-*)
-
procedure TScreenSong.StartMusicPreview();
var
Song: TSong;
@@ -1735,7 +1713,6 @@ begin
AudioPlayback.PlaySound(SoundLib.Change);
ChangeMusic;
SetScroll;
- //UpdateLCD; //TODO: maybe LCD Support as Plugin?
end;
procedure TScreenSong.SetJoker;