aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Screens/UScreenCredits.pas4
-rw-r--r--Game/Code/Screens/UScreenMain.pas35
-rw-r--r--Game/Code/Screens/UScreenScore.pas1
-rw-r--r--Game/Code/Screens/UScreenSing.pas10
-rw-r--r--Game/Code/Screens/UScreenSingModi.pas4
-rw-r--r--Game/Code/Screens/UScreenSong.pas29
-rw-r--r--Game/Code/Screens/UScreenTop5.pas2
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)
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-03 10:49:13 +0000