diff options
| -rw-r--r-- | Lua/src/screens/UScreenSing.pas | 8 |
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; |