From 5f45fd926da919d8057dfcca4101dc305bd230df Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 14 Jun 2007 13:08:54 +0000
Subject: Added Text Fading to ButtonCollection

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

(limited to 'Game/Code/Menu/UMenu.pas')

diff --git a/Game/Code/Menu/UMenu.pas b/Game/Code/Menu/UMenu.pas
index d7c919ee..309e199a 100644
--- a/Game/Code/Menu/UMenu.pas
+++ b/Game/Code/Menu/UMenu.pas
@@ -559,6 +559,10 @@ begin
     begin
       Interactions[High(Interactions)].Typ := iBCollectionChild;
       Button[Result].Visible := False;
+
+      for BT := 0 to BTLen-1 do
+        Button[Result].Text[BT].Alpha := 0;
+
       Button[Result].Parent := ThemeButton.Parent;
       if (ButtonCollection[ThemeButton.Parent-1].Fade) then
         Button[Result].Texture.Alpha := 0;
-- 
cgit v1.2.3