From e0e16a3b1d28cf51fecf669d42465cf2a65728f3 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 29 Mar 2007 16:54:52 +0000
Subject: Added SBGW to TSelectSlide: Defining the Width of the Selections BG

Added W to TText + Pagebreaks. If Width is given the Text breaks at the given width. Breaks are not generated perfect yet, needs some tuning.

Changed all affected Screens to fit the new TText Component

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

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

diff --git a/Game/Code/Classes/UThemes.pas b/Game/Code/Classes/UThemes.pas
index e31e94d2..a62c5aed 100644
--- a/Game/Code/Classes/UThemes.pas
+++ b/Game/Code/Classes/UThemes.pas
@@ -97,6 +97,7 @@ type
   TThemeText = record
     X:      integer;
     Y:      integer;
+    W:      integer;
     Color:  string;
     ColR:   real;
     ColG:   real;
@@ -156,6 +157,10 @@ type
     Y:      integer;
     W:      integer;
     H:      integer;
+    
+    //SBGW Mod
+    SBGW:   integer;
+
     Text:   string;
     ColR,  ColG,  ColB,  Int:     real;
     DColR, DColG, DColB, DInt:    real;
@@ -1142,6 +1147,7 @@ begin
   DecimalSeparator := '.';
   ThemeText.X := ThemeIni.ReadInteger(Name, 'X', 0);
   ThemeText.Y := ThemeIni.ReadInteger(Name, 'Y', 0);
+  ThemeText.W := ThemeIni.ReadInteger(Name, 'W', 0);
 
   ThemeText.ColR := ThemeIni.ReadFloat(Name, 'ColR', 0);
   ThemeText.ColG := ThemeIni.ReadFloat(Name, 'ColG', 0);
@@ -1343,6 +1349,7 @@ begin
   ThemeSelectS.H := ThemeIni.ReadInteger(Name, 'H', 0);
   ThemeSelectS.SkipX := ThemeIni.ReadInteger(Name, 'SkipX', 0);
 
+  ThemeSelectS.SBGW := ThemeIni.ReadInteger(Name, 'SBGW', 450);
 
   LoadColor(ThemeSelectS.ColR, ThemeSelectS.ColG,  ThemeSelectS.ColB, ThemeIni.ReadString(Name, 'Color', ''));
   ThemeSelectS.Int :=  ThemeIni.ReadFloat(Name, 'Int', 1);
-- 
cgit v1.2.3