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

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;