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

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;