From 808007e7eef95427292f9aa2bb63541ddef020ec Mon Sep 17 00:00:00 2001
From: mogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 5 May 2008 13:02:28 +0000
Subject: Added text reflection as new property in the theme

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1060 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Menu/UMenuText.pas | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

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

diff --git a/Game/Code/Menu/UMenuText.pas b/Game/Code/Menu/UMenuText.pas
index 4b376a90..3ed0095e 100644
--- a/Game/Code/Menu/UMenuText.pas
+++ b/Game/Code/Menu/UMenuText.pas
@@ -40,6 +40,10 @@ type
       Visible:  boolean;
       Align:    integer; // 0 = left, 1 = center, 2 = right
 
+      //Reflection
+      Reflection:           boolean;
+      ReflectionSpacing:    Real;
+
       procedure SetSelect(Value: Boolean);
       property Selected: Boolean read SelectBool write SetSelect;
 
@@ -51,7 +55,7 @@ type
       procedure Draw;
       constructor Create; overload;
       constructor Create(X, Y: real; Tekst: string); overload;
-      constructor Create(ParX, ParY, ParW: real; ParStyle: integer; ParSize, ParColR, ParColG, ParColB: real; ParAlign: integer; ParTekst: string); overload;
+      constructor Create(ParX, ParY, ParW: real; ParStyle: integer; ParSize, ParColR, ParColG, ParColB: real; ParAlign: integer; ParTekst: string; ParReflection: Boolean; ParReflectionSpacing: Real) overload;
   end;
 
 implementation
@@ -276,6 +280,12 @@ begin
 
     glColor4f(ColR*Int, ColG*Int, ColB*Int, Alpha);
 
+    //Reflection
+    if Reflection = true then
+      SetFontReflection(true,ReflectionSpacing)
+    else
+      SetFontReflection(false,0);
+
     //If Selected Set Blink...
     if SelectBool then
     begin
@@ -346,10 +356,10 @@ end;
 
 constructor TText.Create(X, Y: real; Tekst: string);
 begin
-  Create(X, Y, 0, 0, 10, 0, 0, 0, 0, Tekst);
+  Create(X, Y, 0, 0, 10, 0, 0, 0, 0, Tekst, false, 0);
 end;
 
-constructor TText.Create(ParX, ParY, ParW: real; ParStyle: integer; ParSize, ParColR, ParColG, ParColB: real; ParAlign: integer; ParTekst: string);
+constructor TText.Create(ParX, ParY, ParW: real; ParStyle: integer; ParSize, ParColR, ParColG, ParColB: real; ParAlign: integer; ParTekst: string; ParReflection: Boolean; ParReflectionSpacing: Real);
 begin
   inherited Create;
   Alpha := 1;
@@ -366,6 +376,8 @@ begin
   Align := ParAlign;
   SelectBool := false;
   Visible := true;
+  Reflection:= ParReflection;
+  ReflectionSpacing:= ParReflectionSpacing;
 end;
 
 
-- 
cgit v1.2.3