Fixed text position of SelectSlide when High is not 70

Added ability to change Z and Textsize from SelectSlide
Use new abilitys to finish SongMenu Screen in Deluxe Theme

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@196 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 6 insertions, 1 deletions

diff --git a/Game/Code/Menu/UMenu.pas b/Game/Code/Menu/UMenu.pas
index c9d3c726..d7c919ee 100644
--- a/Game/Code/Menu/UMenu.pas
+++ b/Game/Code/Menu/UMenu.pas
@@ -1102,6 +1102,11 @@ begin
   for SO := 0 to High(Values) do

     AddSelectSlideOption(Values[SO]);

 

+  SelectsS[High(SelectsS)].Text.Size := ThemeSelectS.TextSize;

+

+  SelectsS[High(SelectsS)].Texture.Z := ThemeSelectS.Z;

+  SelectsS[High(SelectsS)].TextureSBG.Z := ThemeSelectS.Z;

+

   //Generate Lines

   SelectsS[High(SelectsS)].GenLines;

 

@@ -1153,7 +1158,7 @@ begin
   SelectsS[S].SBGDInt := SBGDInt;

 

   SelectsS[S].Text.X := X + 20;

-  SelectsS[S].Text.Y := Y + 20;

+  SelectsS[S].Text.Y := Y + (SelectsS[S].TextureSBG.H / 2) - 15;

   SelectsS[S].Text.Text := Caption;

   SelectsS[S].Text.Size := 10;

   SelectsS[S].Text.Visible := true;