Removed zlportio from Code

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@954 b956fd51-792f-4845-bead-9b4dfca2ff2c

7 files changed, 47 insertions, 38 deletions

diff --git a/Game/Code/Screens/UScreenCredits.pas b/Game/Code/Screens/UScreenCredits.pas
index e12a54e3..271c0f5e 100644
--- a/Game/Code/Screens/UScreenCredits.pas
+++ b/Game/Code/Screens/UScreenCredits.pas
@@ -20,8 +20,8 @@ uses
     UFiles,
     SysUtils,
     UThemes,
-    ULCD,
-    ULight,
+    //ULCD,
+    //ULight,
     UGraphicClasses;
 
 type
diff --git a/Game/Code/Screens/UScreenMain.pas b/Game/Code/Screens/UScreenMain.pas
index fd95a768..54a6f47d 100644
--- a/Game/Code/Screens/UScreenMain.pas
+++ b/Game/Code/Screens/UScreenMain.pas
@@ -15,9 +15,9 @@ uses
   UMusic,
   UFiles,
   SysUtils,
-  UThemes,
-  ULCD,
-  ULight;
+  UThemes;
+  //ULCD, //TODO: maybe LCD Support as Plugin?
+  //ULight //TODO: maybe Light Support as Plugin?
 
 type
   TScreenMain = class(TMenu)
@@ -32,7 +32,7 @@ type
       procedure InteractPrev; override;
       procedure InteractInc; override;
       procedure InteractDec; override;
-      procedure UpdateLCD;
+      //procedure UpdateLCD; //TODO: maybe LCD Support as Plugin?
       procedure SetAnimationProgress(Progress: real); override;
       //function Draw: boolean; override;
   end;
@@ -218,12 +218,13 @@ begin
   Interaction := 0;
 end;
 
-procedure TScreenMain.onShow;
+procedure TScreenMain.onShow;  //TODO: maybe LCD Support as Plugin?
 begin
   inherited;
-  
+  (*
   LCD.WriteText(1, '  Choose mode:  ');
   UpdateLCD;
+  *)
 end;
 
 procedure TScreenMain.InteractNext;
@@ -231,8 +232,8 @@ begin
   inherited InteractNext;
   Text[TextDescription].Text     := Theme.Main.Description[Interaction];
   Text[TextDescriptionLong].Text := Theme.Main.DescriptionLong[Interaction];
-  UpdateLCD;
-  Light.LightOne(1, 200);
+  //UpdateLCD;
+  //Light.LightOne(1, 200);
 end;
 
 procedure TScreenMain.InteractPrev;
@@ -240,8 +241,8 @@ begin
   inherited InteractPrev;
   Text[TextDescription].Text     := Theme.Main.Description[Interaction];
   Text[TextDescriptionLong].Text := Theme.Main.DescriptionLong[Interaction];
-  UpdateLCD;
-  Light.LightOne(0, 200);
+  //UpdateLCD;
+  //Light.LightOne(0, 200);
 end;
 
 procedure TScreenMain.InteractDec;
@@ -249,8 +250,8 @@ begin
   inherited InteractDec;
   Text[TextDescription].Text     := Theme.Main.Description[Interaction];
   Text[TextDescriptionLong].Text := Theme.Main.DescriptionLong[Interaction];
-  UpdateLCD;
-  Light.LightOne(0, 200);
+  //UpdateLCD;
+  //Light.LightOne(0, 200);
 end;
 
 procedure TScreenMain.InteractInc;
@@ -258,19 +259,23 @@ begin
   inherited InteractInc;
   Text[TextDescription].Text := Theme.Main.Description[Interaction];
   Text[TextDescriptionLong].Text := Theme.Main.DescriptionLong[Interaction];
-  UpdateLCD;
-  Light.LightOne(1, 200);
+  //UpdateLCD;
+  //Light.LightOne(1, 200);
 end;
 
-procedure TScreenMain.UpdateLCD;
+(*
+procedure TScreenMain.UpdateLCD;    //TODO: maybe LCD Support as Plugin?
 begin
+
   case Interaction of
     0:  LCD.WriteText(2, '      sing      ');
     1:  LCD.WriteText(2, '     editor     ');
     2:  LCD.WriteText(2, '    options     ');
     3:  LCD.WriteText(2, '      exit      ');
   end
+
 end;
+*)
 
 procedure TScreenMain.SetAnimationProgress(Progress: real);
 begin
diff --git a/Game/Code/Screens/UScreenScore.pas b/Game/Code/Screens/UScreenScore.pas
index 5bba9691..6939cee2 100644
--- a/Game/Code/Screens/UScreenScore.pas
+++ b/Game/Code/Screens/UScreenScore.pas
@@ -18,7 +18,6 @@ uses
   UThemes,

   OpenGL12,

   math,

-  ULCD,

   UTexture;

 //  OpenGL;

 

diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index d50d4360..608bae72 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -23,7 +23,7 @@ uses UMenu,
      TextGL,
      OpenGL12,
      UThemes,
-     ULCD,
+     //ULCD, //TODO: maybe LCD Support as Plugin?
      UGraphicClasses,
      USingScores;
 
@@ -108,7 +108,7 @@ type
       function    Draw: boolean; override;
 
       procedure   Finish; virtual;
-      procedure   UpdateLCD;
+      //procedure   UpdateLCD; //TODO: maybe LCD Support as Plugin?
       procedure   Pause; //Pause Mod(Toggles Pause)
 
       procedure   onSentenceEnd(S: Cardinal);     //OnSentenceEnd for LineBonus + Singbar
@@ -637,7 +637,7 @@ begin
   While (not Lyrics.LineinQueue) AND (Lyrics.LineCounter <= High(Lines[0].Line)) do
       Lyrics.AddLine(@Lines[0].Line[Lyrics.LineCounter]);
 
-  UpdateLCD;
+  //UpdateLCD; //TODO: maybe LCD Support as Plugin?
 
   //Deactivate Pause
   Paused := False;
@@ -1286,7 +1286,8 @@ begin
   SetFontItalic (False);
 end;
 
-procedure TScreenSing.UpdateLCD;
+(*
+procedure TScreenSing.UpdateLCD; //TODO: maybe LCD Support as Plugin?
 var
   T:    string;
 begin
@@ -1302,6 +1303,7 @@ begin
   if Copy(T, Length(T), 1) <> ' ' then T := T + ' ';
   LCD.AddTextBR(T);}
 end;
+*)
 
 procedure TScreenSing.onSentenceEnd(S: Cardinal);
 var
diff --git a/Game/Code/Screens/UScreenSingModi.pas b/Game/Code/Screens/UScreenSingModi.pas
index 2e4f8240..c2b1be79 100644
--- a/Game/Code/Screens/UScreenSingModi.pas
+++ b/Game/Code/Screens/UScreenSingModi.pas
@@ -24,7 +24,7 @@ uses UMenu,
      OpenGL12,
 
      UThemes,
-     ULCD,
+     //ULCD, //TODO: maybe LCD Support as Plugin?
      UScreenSing,
      ModiSDK;
 
@@ -71,7 +71,7 @@ type
       function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
       function Draw: boolean; override;
       procedure Finish; override;
-      //procedure UpdateLCD;
+      //procedure UpdateLCD; //TODO: maybe LCD Support as Plugin?
       //procedure Pause; //Pause Mod(Toggles Pause)
   end;
 
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index f481bad6..16432dfa 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -22,8 +22,8 @@ uses
   UThemes,

   UTexture,

   ULanguage,

-  ULCD,

-  ULight,

+  //ULCD, //TODO: maybe LCD Support as Plugin?

+  //ULight, //TODO: maybe Light Support as Plugin?

   USong,

   UIni;

 

@@ -99,7 +99,7 @@ type
       procedure onHide; override;

       procedure SelectNext;

       procedure SelectPrev;

-      procedure UpdateLCD;

+      //procedure UpdateLCD; //TODO: maybe LCD Support as Plugin?

       procedure SkipTo(Target: Cardinal);

       procedure FixSelected; //Show Wrong Song when Tabs on Fix

       procedure FixSelected2; //Show Wrong Song when Tabs on Fix

@@ -274,7 +274,7 @@ begin
 

             ChangeMusic;

             SetScroll4;

-            UpdateLCD;

+            //UpdateLCD;   //TODO: maybe LCD Support as Plugin?

             //Break and Exit

             Exit;

           end;

@@ -295,7 +295,7 @@ begin
 

             ChangeMusic;

             SetScroll4;

-            UpdateLCD;

+            //UpdateLCD;   //TODO: maybe LCD Support as Plugin?

 

             //Break and Exit

             Exit;

@@ -565,8 +565,8 @@ begin
 //           SongTarget := Interaction;

             ChangeMusic;

             SetScroll4;

-            UpdateLCD;

-            Light.LightOne(1, 200);

+            //UpdateLCD;   //TODO: maybe LCD Support as Plugin?

+            //Light.LightOne(1, 200); //TODO: maybe Light Support as Plugin?

           end;

         end;

 

@@ -577,8 +577,8 @@ begin
             SelectPrev;

             ChangeMusic;

             SetScroll4;

-            UpdateLCD;

-            Light.LightOne(0, 200);

+            //UpdateLCD; //TODO: maybe LCD Support as Plugin?

+            //Light.LightOne(0, 200); //TODO: maybe Light Support as Plugin?

           end;

         end;

 

@@ -659,7 +659,7 @@ begin
 

             ChangeMusic;

             SetScroll4;

-            UpdateLCD;

+            //UpdateLCD; //TODO: maybe LCD Support as Plugin?

           end;

         end;

 

@@ -1542,7 +1542,7 @@ begin
     end;

 

     SetScroll;

-    UpdateLCD;

+    //UpdateLCD;  //TODO: maybe LCD Support as Plugin?

   end;

 

   //Playlist Mode

@@ -1757,13 +1757,16 @@ begin
   end;

 end;

 

-procedure TScreenSong.UpdateLCD;

+(*

+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 Change current played Preview

 procedure TScreenSong.ChangeMusic;

@@ -1977,7 +1980,7 @@ begin
   AudioPlayback.PlaySound(SoundLib.Change);

   ChangeMusic;

   SetScroll;

-  UpdateLCD;

+  //UpdateLCD;  //TODO: maybe LCD Support as Plugin?

 end;

 

 procedure TScreenSong.SetJoker;

diff --git a/Game/Code/Screens/UScreenTop5.pas b/Game/Code/Screens/UScreenTop5.pas
index 27881120..d241499a 100644
--- a/Game/Code/Screens/UScreenTop5.pas
+++ b/Game/Code/Screens/UScreenTop5.pas
@@ -9,7 +9,7 @@ interface
 {$I switches.inc}
 
 uses
-  UMenu, SDL, SysUtils, UDisplay, UMusic, USongs, UThemes, ULCD;
+  UMenu, SDL, SysUtils, UDisplay, UMusic, USongs, UThemes;
 
 type
   TScreenTop5 = class(TMenu)