From e6917faa19aebfa6d089b24c65e4c7fe4bd6b503 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 13 Apr 2007 11:25:13 +0000
Subject: Added Reflection to ThemeStatic Added Attribut ReflectionSpacing

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

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

diff --git a/Game/Code/Classes/UThemes.pas b/Game/Code/Classes/UThemes.pas
index d7adb61a..51b454ca 100644
--- a/Game/Code/Classes/UThemes.pas
+++ b/Game/Code/Classes/UThemes.pas
@@ -91,6 +91,9 @@ type
     TexY1:  real;
     TexX2:  real;
     TexY2:  real;
+    //Reflection Mod
+    Reflection:           boolean;
+    Reflectionspacing:    Real;
   end;
   AThemeStatic = array of TThemeStatic;
 
@@ -129,7 +132,8 @@ type
     Tex:    string;
     Typ:    string;
     //Reflection Mod
-    Reflection: Boolean;
+    Reflection:           boolean;
+    Reflectionspacing:    Real;
   end;
 
   TThemeSelect = record
@@ -181,6 +185,8 @@ type
   end;
 
   TThemeLoading = class(TThemeBasic)
+    StaticAnimation:  TThemeStatic;
+    TextLoading:      TThemeText;
   end;
 
   TThemeMain = class(TThemeBasic)
@@ -749,6 +755,8 @@ begin
 
       // Loading
       ThemeLoadBasic(Loading, 'Loading');
+      ThemeLoadText(Loading.TextLoading, 'LoadingTextLoading');
+      ThemeLoadStatic(Loading.StaticAnimation, 'LoadingStaticAnimation');
 
       // Main
       ThemeLoadBasic(Main, 'Main');
@@ -1284,6 +1292,10 @@ begin
   ThemeStatic.TexX2 := ThemeIni.ReadFloat(Name, 'TexX2', 1);
   ThemeStatic.TexY2 := ThemeIni.ReadFloat(Name, 'TexY2', 1);
 
+  //Reflection Mod
+  ThemeStatic.Reflection := (ThemeIni.ReadInteger(Name, 'Reflection', 0) = 1);
+  ThemeStatic.ReflectionSpacing := ThemeIni.ReadFloat(Name, 'ReflectionSpacing', 15);
+
   DecimalSeparator := ',';
 end;
 
@@ -1317,6 +1329,7 @@ begin
 
   //Reflection Mod
   ThemeButton.Reflection := (ThemeIni.ReadInteger(Name, 'Reflection', 0) = 1);
+  ThemeButton.ReflectionSpacing := ThemeIni.ReadFloat(Name, 'ReflectionSpacing', 15);
 
   ThemeButton.ColR := ThemeIni.ReadFloat(Name, 'ColR', 1);
   ThemeButton.ColG := ThemeIni.ReadFloat(Name, 'ColG', 1);
-- 
cgit v1.2.3