Added Text Fading to ButtonCollection

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@262 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 3 insertions, 1 deletions

diff --git a/Game/Code/Menu/UMenuText.pas b/Game/Code/Menu/UMenuText.pas
index 69ece02f..4713962e 100644
--- a/Game/Code/Menu/UMenuText.pas
+++ b/Game/Code/Menu/UMenuText.pas
@@ -23,6 +23,7 @@ type
       ColR:   real;

       ColG:   real;

       ColB:   real;

+      Alpha:  real;

       Int:    real;

       Style:  integer;

       Visible:  boolean;

@@ -225,7 +226,7 @@ begin
     SetFontStyle(Style);

     SetFontSize(Size);

     SetFontItalic(False);

-    glColor3f(ColR*Int, ColG*Int, ColB*Int);

+    glColor4f(ColR*Int, ColG*Int, ColB*Int, Alpha);

 

     //If Selected Set Blink...

     if SelectBool then

@@ -303,6 +304,7 @@ end;
 constructor TText.Create(ParX, ParY, ParW: real; ParStyle: integer; ParSize, ParColR, ParColG, ParColB: real; ParAlign: integer; ParTekst: string);

 begin

   inherited Create;

+  Alpha := 1;

   X := ParX;

   Y := ParY;

   W := ParW;