aboutsummaryrefslogtreecommitdiffstats
path: root/medley_new/src/screens/UScreenSing.pas
diff options
context:
space:
mode:
Diffstat (limited to 'medley_new/src/screens/UScreenSing.pas')
-rw-r--r--medley_new/src/screens/UScreenSing.pas19
1 files changed, 17 insertions, 2 deletions
diff --git a/medley_new/src/screens/UScreenSing.pas b/medley_new/src/screens/UScreenSing.pas
index f4984386..a0e1c794 100644
--- a/medley_new/src/screens/UScreenSing.pas
+++ b/medley_new/src/screens/UScreenSing.pas
@@ -123,6 +123,9 @@ type
StaticPausePopup: integer;
+ SongNameStatic: integer;
+ SongNameText: integer;
+
Tex_Background: TTexture;
FadeOut: boolean;
Lyrics: TLyricEngine;
@@ -370,6 +373,9 @@ begin
fLyricsSync := TLyricsSyncSource.Create();
fMusicSync := TMusicSyncSource.Create();
+ SongNameStatic := AddStatic(Theme.Sing.StaticSongName);;
+ SongNameText := AddText(Theme.Sing.TextSongName);
+
eSongLoaded := THookableEvent.Create('ScreenSing.SongLoaded');
ClearSettings;
@@ -411,6 +417,9 @@ begin
end else
fTimebarMode := tbmCurrent;
+ Statics[SongNameStatic].Visible := false;
+ Text[SongNameText].Visible := false;
+
case PlayersPlay of
1:
begin
@@ -761,11 +770,10 @@ begin
begin
CurrentSong.SetMedleyMode();
- (* TODO:
+
Text[SongNameText].Text := IntToStr(PlaylistMedley.CurrentMedleySong) +
'/' + IntToStr(PlaylistMedley.NumMedleySongs) + ': ' +
CurrentSong.Artist + ' - ' + CurrentSong.Title;
- *)
//medley start and end timestamps
StartNote := FindNote(CurrentSong.Medley.StartBeat - round(CurrentSong.BPM[0].BPM*CurrentSong.Medley.FadeIn_time/60));
@@ -1439,6 +1447,9 @@ var
begin
if (AudioPlayback.Position < GetTimeFromBeat(CurrentSong.Medley.StartBeat)) then
begin
+ Statics[SongNameStatic].Visible := true;
+ Text[SongNameText].Visible := true;
+
timeDiff := GetTimeFromBeat(CurrentSong.Medley.StartBeat)-AudioPlayback.Position+1;
t := frac(timeDiff);
@@ -1453,6 +1464,10 @@ begin
SetFontPos (RenderW/2-w/2, RenderH/2-h/2);
glPrint(PChar(CountDownText));
+ end else
+ begin
+ Statics[SongNameStatic].Visible := false;
+ Text[SongNameText].Visible := false;
end;
end;