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;