From a4accf241c7623b5b36e1e31bded05f94f662585 Mon Sep 17 00:00:00 2001 From: f1fth_freed0m Date: Mon, 10 Mar 2008 07:29:30 +0000 Subject: Removed zlportio from Code git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@954 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Screens/UScreenCredits.pas | 4 ++-- Game/Code/Screens/UScreenMain.pas | 35 ++++++++++++++++++++--------------- Game/Code/Screens/UScreenScore.pas | 1 - Game/Code/Screens/UScreenSing.pas | 10 ++++++---- Game/Code/Screens/UScreenSingModi.pas | 4 ++-- Game/Code/Screens/UScreenSong.pas | 29 ++++++++++++++++------------- Game/Code/Screens/UScreenTop5.pas | 2 +- 7 files changed, 47 insertions(+), 38 deletions(-) (limited to 'Game/Code/Screens') 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) -- cgit v1.2.3