From d52cb874cd39eac4a4aff100c22bf3280eea4275 Mon Sep 17 00:00:00 2001
From: mota23 <mota23@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 17 May 2007 14:04:07 +0000
Subject: added: Video Icon. Shows if Video is present in Song-Selection. Needs
 to be fixed.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@212 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenSong.pas | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'Game/Code/Screens')

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;
-- 
cgit v1.2.3