aboutsummaryrefslogtreecommitdiffstats
path: root/Game
diff options
context:
space:
mode:
Diffstat (limited to 'Game')
-rw-r--r--Game/Code/Classes/UThemes.pas12
-rw-r--r--Game/Code/Screens/UScreenSong.pas11
2 files changed, 22 insertions, 1 deletions
diff --git a/Game/Code/Classes/UThemes.pas b/Game/Code/Classes/UThemes.pas
index 0fe207e9..471e46bf 100644
--- a/Game/Code/Classes/UThemes.pas
+++ b/Game/Code/Classes/UThemes.pas
@@ -249,7 +249,10 @@ type
TextTitle: TThemeText;
TextNumber: TThemeText;
- //Show Cat in TopLeft Mod
+ //Video Icon Mod
+ VideoIcon: TThemeStatic;
+
+ //Show Cat in TopLeft Mod
TextCat: TThemeText;
StaticCat: TThemeStatic;
@@ -280,6 +283,7 @@ type
ColR, ColG, ColB: Real;
end;
+
//Party and Non Party specific Statics and Texts
StaticParty: AThemeStatic;
TextParty: AThemeText;
@@ -303,6 +307,8 @@ type
StaticTeam3Joker3: TThemeStatic;
StaticTeam3Joker4: TThemeStatic;
StaticTeam3Joker5: TThemeStatic;
+
+
end;
TThemeSing = class(TThemeBasic)
@@ -959,6 +965,9 @@ begin
ThemeLoadText(Song.TextTitle, 'SongTextTitle');
ThemeLoadText(Song.TextNumber, 'SongTextNumber');
+ //Video Icon Mod
+ ThemeLoadStatic(Song.VideoIcon, 'SongVideoIcon');
+
//Show Cat in TopLeft Mod
ThemeLoadStatic(Song.StaticCat, 'SongStaticCat');
ThemeLoadText(Song.TextCat, 'SongTextCat');
@@ -1020,6 +1029,7 @@ begin
ThemeLoadStatic(Song.StaticTeam3Joker4, 'SongStaticTeam3Joker4');
ThemeLoadStatic(Song.StaticTeam3Joker5, 'SongStaticTeam3Joker5');
+
// Sing
ThemeLoadBasic(Sing, 'Sing');
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index 6f3bbc63..4fe679f7 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -13,6 +13,9 @@ type
TextTitle: integer;
TextNumber: integer;
+ //Video Icon Mod
+ VideoIcon: Cardinal;
+
TextCat: integer;
StaticCat: integer;
@@ -58,6 +61,7 @@ type
StaticNonParty: Array of Cardinal;
TextNonParty: Array of Cardinal;
+
constructor Create; override;
procedure SetScroll;
procedure SetScroll1;
@@ -1326,6 +1330,13 @@ begin
inherited Draw;
+ //Draw Video Icon if Video is present
+ if CatSongs.Song[Interaction].Video <> '' then
+ Static[VideoIcon].Visible := True
+ else
+ Static[VideoIcon].Visible := False;
+
+
//Draw Equalizer
if Theme.Song.Equalizer.Visible then
DrawEqualizer;