diff options
| author | f1fth_freed0m <f1fth_freed0m@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-10 07:29:30 +0000 |
|---|---|---|
| committer | f1fth_freed0m <f1fth_freed0m@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-10 07:29:30 +0000 |
| commit | a4accf241c7623b5b36e1e31bded05f94f662585 (patch) | |
| tree | 4fbcca44d9e798d52ed0c6500c4a6fe3a628b6ab /Game/Code/Screens/UScreenSong.pas | |
| parent | 6ecd74fb95013a8319634c945f173be5eaf82dac (diff) | |
| download | usdx-a4accf241c7623b5b36e1e31bded05f94f662585.tar.gz usdx-a4accf241c7623b5b36e1e31bded05f94f662585.tar.xz usdx-a4accf241c7623b5b36e1e31bded05f94f662585.zip | |
Removed zlportio from Code
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@954 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
| -rw-r--r-- | Game/Code/Screens/UScreenSong.pas | 29 |
1 files changed, 16 insertions, 13 deletions
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;
|