- fixed "vista-no-mic-leads-to-crash" bug

- better fading texture handling
- fixed black video background on second screen in song menu
- "Blue Sensation" as default theme

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2224 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 8 insertions, 7 deletions

diff --git a/Game/Code/Screens/UScreenOptionsRecord.pas b/Game/Code/Screens/UScreenOptionsRecord.pas
index 8b3df639..8dda4a6f 100644
--- a/Game/Code/Screens/UScreenOptionsRecord.pas
+++ b/Game/Code/Screens/UScreenOptionsRecord.pas
@@ -90,21 +90,22 @@ begin
   LoadFromTheme(Theme.OptionsRecord);

 

   SetLength(ICard, Length(Recording.SoundCard));

+

   for SC := 0 to High(Recording.SoundCard) do

     ICard[SC] := Recording.SoundCard[SC].Description;

 //  end;

 

-//  if Length(Recording.SoundCard[Ini.Card].Input) > 0 then begin

+  if (Length(Recording.SoundCard)>0) then

+  begin

     SetLength(IInput, Length(Recording.SoundCard[Ini.Card].Input));

     for SCI := 0 to High(Recording.SoundCard[Ini.Card].Input) do

       IInput[SCI] := Recording.SoundCard[Ini.Card].Input[SCI].Name;

-//  end;

 

-

-  AddSelectSlide(Theme.OptionsRecord.SelectSlideCard, Ini.Card, ICard);

-  SelectSlideInput    := AddSelectSlide(Theme.OptionsRecord.SelectSlideInput, Ini.CardList[0].Input, IInput);

-  SelectSlideChannelL := AddSelectSlide(Theme.OptionsRecord.SelectSlideChannelL, Ini.CardList[0].ChannelL, IChannel);

-  SelectSlideChannelR := AddSelectSlide(Theme.OptionsRecord.SelectSlideChannelR, Ini.CardList[0].ChannelR, IChannel);

+    AddSelectSlide(Theme.OptionsRecord.SelectSlideCard, Ini.Card, ICard);

+    SelectSlideInput    := AddSelectSlide(Theme.OptionsRecord.SelectSlideInput, Ini.CardList[0].Input, IInput);

+    SelectSlideChannelL := AddSelectSlide(Theme.OptionsRecord.SelectSlideChannelL, Ini.CardList[0].ChannelL, IChannel);

+    SelectSlideChannelR := AddSelectSlide(Theme.OptionsRecord.SelectSlideChannelR, Ini.CardList[0].ChannelR, IChannel);

+  end;

 

   AddButton(Theme.OptionsRecord.ButtonExit);

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