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

1 files changed, 6 insertions, 1 deletions

diff --git a/Game/Code/Menu/UMenuSelectSlide.pas b/Game/Code/Menu/UMenuSelectSlide.pas
index 7850cdf6..9885acc0 100644
--- a/Game/Code/Menu/UMenuSelectSlide.pas
+++ b/Game/Code/Menu/UMenuSelectSlide.pas
@@ -81,6 +81,8 @@ type
 //      property W2: real read Texture2.w write Texture2.w;

 //      property H2: real read Texture2.h write Texture2.h;

 

+      property SBGW: real read TextureSBG.w write TextureSBG.w;

+

       // procedures

       procedure SetSelect(Value: boolean);

       property Selected: Boolean read SelectBool write SetSelect;

@@ -104,6 +106,9 @@ begin
   SetLength(TextOpt, 1);

   TextOpt[0] := TText.Create;

 

+  //Set Standard Width for Selections Background

+  SBGW := 450;

+

   Visible := True;

   {SetLength(TextOpt, 3);

   TextOpt[0] := TText.Create;

@@ -326,7 +331,7 @@ begin
     TextOpt[I].Y := TextureSBG.Y + 20;

 

     //Better Look with 2 Options

-    if (Lines=2) then

+    if (Lines=2) AND (Length(TextOptT)= 2) then

       TextOpt[I].X := TextureSBG.X + 20 + (TextureSBG.W -40 - glTextWidth(PChar(TextOptT[1]))) * I;

     end;

       //TextOpt[I] := TextOpt[0];