Added Preview Volume and Fading to Sound Options

Changed Themes to Fit these changes
Updated Language Files
Some fixes in SelectSlide

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

1 files changed, 8 insertions, 3 deletions

diff --git a/Game/Code/Screens/UScreenOptionsSound.pas b/Game/Code/Screens/UScreenOptionsSound.pas
index c99f1ef6..fb04ab64 100644
--- a/Game/Code/Screens/UScreenOptionsSound.pas
+++ b/Game/Code/Screens/UScreenOptionsSound.pas
@@ -35,7 +35,7 @@ begin
         end;

       SDLK_RETURN:

         begin

-          if SelInteraction = 4 then begin

+          if SelInteraction = 6 then begin

             Ini.Save;

             Music.PlayBack;

             FadeTo(@ScreenOptions);

@@ -47,14 +47,14 @@ begin
         InteractPrev;

       SDLK_RIGHT:

         begin

-          if (SelInteraction >= 0) and (SelInteraction <= 3) then begin

+          if (SelInteraction >= 0) and (SelInteraction <= 5) then begin

             Music.PlayOption;

             InteractInc;

           end;

         end;

       SDLK_LEFT:

         begin

-          if (SelInteraction >= 0) and (SelInteraction <= 3) then begin

+          if (SelInteraction >= 0) and (SelInteraction <= 5) then begin

             Music.PlayOption;

             InteractDec;

           end;

@@ -76,6 +76,11 @@ begin
   AddSelect(Theme.OptionsSound.SelectBeatClick, Ini.BeatClick, IBeatClick);

   AddSelect(Theme.OptionsSound.SelectThreshold, Ini.Threshold, IThreshold);

 

+  //Song Preview

+  AddSelectSlide(Theme.OptionsSound.SelectSlidePreviewVolume, Ini.PreviewVolume, IPreviewVolume);

+  AddSelectSlide

+  (Theme.OptionsSound.SelectSlidePreviewFading, Ini.PreviewFading, IPreviewFading);

+

   AddButton(Theme.OptionsSound.ButtonExit);

   if (Length(Button[0].Text)=0) then

     AddButtonText(14, 20, Theme.Options.Description[7]);