From 90226eb8cd49293af7c893e379a071ba7f9583f5 Mon Sep 17 00:00:00 2001 From: whiteshark0 Date: Sun, 5 Oct 2008 16:15:09 +0000 Subject: removed some commented relicts from outdated LCD and Light support. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1434 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/screens/UScreenLevel.pas | 3 --- src/screens/UScreenPartyNewRound.pas | 4 ---- src/screens/UScreenPartyOptions.pas | 3 --- src/screens/UScreenPartyScore.pas | 4 ---- src/screens/UScreenPartyWin.pas | 4 ---- src/screens/UScreenSingModi.pas | 1 - src/screens/UScreenSong.pas | 25 +------------------------ 7 files changed, 1 insertion(+), 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; -- cgit v1.2.3