aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Lua/src/screens/UScreenSing.pas8
1 files changed, 7 insertions, 1 deletions
diff --git a/Lua/src/screens/UScreenSing.pas b/Lua/src/screens/UScreenSing.pas
index e3614d6c..cbd30a8e 100644
--- a/Lua/src/screens/UScreenSing.pas
+++ b/Lua/src/screens/UScreenSing.pas
@@ -49,7 +49,8 @@ uses UMenu,
gl,
UThemes,
UGraphicClasses,
- USingScores;
+ USingScores,
+ UHookableEvent;
type
TLyricsSyncSource = class(TSyncSource)
@@ -60,6 +61,7 @@ type
TScreenSing = class(TMenu)
private
VideoLoaded: boolean;
+ eSongLoaded: THookableEvent; //< event is called after lyrics of a song are loaded on OnShow
protected
Paused: boolean; //Pause Mod
LyricsSync: TLyricsSyncSource;
@@ -316,6 +318,8 @@ begin
LyricsSync := TLyricsSyncSource.Create();
+ eSongLoaded := THookableEvent.Create('ScreenSing.SongLoaded');
+
ClearSettings;
end;
@@ -626,6 +630,8 @@ begin
if Lines[0].Line[P].TotalNotes = 0 then
Inc(NumEmptySentences);
+ eSongLoaded.CallHookChain(False);
+
Log.LogStatus('End', 'onShow');
end;