From b2518890d0dd62eeb96ee8b4b5f2d86e61ca75e7 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 26 Apr 2007 19:42:55 +0000
Subject: Added PS3 like ButtonFade ability Some new ThemeButton Attributes:  
 DeSelectReflectionSpacing: ReflectionSpacing when Button is not Selected  
 Fade: Enable Stepings in Fading   FadeText: Fade Texts with Button   SelectW,
 SelectH: Width and Height when Button is Selected   FadeTex: Texture used
 when Button Fades to not stretch the Texture. Not nessecary.   FadeTexPos:
 Position of FadeTex

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

(limited to 'Game/Code/Classes/UThemes.pas')

diff --git a/Game/Code/Classes/UThemes.pas b/Game/Code/Classes/UThemes.pas
index 33cf4258..90bab7c1 100644
--- a/Game/Code/Classes/UThemes.pas
+++ b/Game/Code/Classes/UThemes.pas
@@ -134,6 +134,14 @@ type
     //Reflection Mod
     Reflection:           boolean;
     Reflectionspacing:    Real;
+    //Fade Mod
+    SelectH:    integer;
+    SelectW:    integer;
+    Fade:       boolean;
+    FadeText:   boolean;
+    DeSelectReflectionspacing : Real;
+    FadeTex:    string;
+    FadeTexPos: integer;
   end;
 
   TThemeSelect = record
@@ -1454,6 +1462,22 @@ begin
     ThemeButton.DColB := Color[C].RGB.B;
   end;
 
+  //Fade Mod
+  ThemeButton.SelectH := ThemeIni.ReadInteger (Name, 'SelectH', ThemeButton.H);
+  ThemeButton.SelectW := ThemeIni.ReadInteger (Name, 'SelectW', ThemeButton.W);
+
+  ThemeButton.DeSelectReflectionspacing := ThemeIni.ReadFloat(Name, 'DeSelectReflectionSpacing', ThemeButton.Reflectionspacing);
+  
+  ThemeButton.Fade := (ThemeIni.ReadInteger(Name, 'Fade', 0) = 1);
+  ThemeButton.FadeText := (ThemeIni.ReadInteger(Name, 'FadeText', 0) = 1);
+
+
+  ThemeButton.FadeTex := ThemeIni.ReadString(Name, 'FadeTex', '');
+  ThemeButton.FadeTexPos:= ThemeIni.ReadInteger(Name, 'FadeTexPos', 0);
+  if (ThemeButton.FadeTexPos > 4) Or (ThemeButton.FadeTexPos < 0) then
+    ThemeButton.FadeTexPos := 0;
+
+  //Read ButtonTexts
   TLen := ThemeIni.ReadInteger(Name, 'Texts', 0);
   SetLength(ThemeButton.Text, TLen);
   for T := 1 to TLen do
-- 
cgit v1.2.3