From 041ee1b932cc9c058c545595751b77893dde75dc Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Mon, 21 Jun 2010 16:33:16 +0000 Subject: - individual line breaks for each player in duet songs are now possible - fade in and out of lyrics, notes and notelines in sing screen - update of acinerella.dll - update of BASS to v2.4 - removed joypad support (did it ever worked?) - removed unused units and options git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2553 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Screens/UScreenSong.pas | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) (limited to 'Game/Code/Screens/UScreenSong.pas') diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas index 4c394ceb..bed5ae0a 100644 --- a/Game/Code/Screens/UScreenSong.pas +++ b/Game/Code/Screens/UScreenSong.pas @@ -165,7 +165,7 @@ type procedure SelectPrev; procedure SkipTo(Target: Cardinal); procedure RandomSongChallenge(); - procedure SkipTo2(Target: Integer); //skipt exactly to the target song nr. + procedure SkipTo2(Target: Integer); //skip exactly to the target song nr. procedure FixSelected; //Show Wrong Song when Tabs on Fix procedure FixSelected2; //Show Wrong Song when Tabs on Fix procedure ShowCatTL(Cat: Integer);// Show Cat in Top left @@ -1395,7 +1395,7 @@ begin Refresh(false); PlaylistMan.LoadPlayLists; - + if jump then I2 := PlaylistMan.FindSong(Artist, Title) else @@ -2063,7 +2063,7 @@ end; procedure TScreenSong.onShow; var - I: Integer; + I: integer; begin if Music.VocalRemoverActivated() then @@ -2154,13 +2154,8 @@ begin end else if (Mode<>smNormal) and (Ini.Tabs = 0) then begin CatSongs.SetFilter('', 0); - end else if (Ini.Tabs = 0) then - begin - CatSongs.SetFilter('', 0); - FixSelected; end; - //Playlist Mode if (Mode = smNormal) then begin -- cgit v1.2.3