diff options
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Screens/UScreenSong.pas | 11 |
1 files changed, 11 insertions, 0 deletions
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;
|