- 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, 4 deletions

diff --git a/Game/Code/Screens/UScreenOptions.pas b/Game/Code/Screens/UScreenOptions.pas
index f5a29054..ee4c2cba 100644
--- a/Game/Code/Screens/UScreenOptions.pas
+++ b/Game/Code/Screens/UScreenOptions.pas
@@ -19,10 +19,10 @@ type
 

 const

   ID='ID_006';   //for help system

-  

+

 implementation

 

-uses UGraphic, UHelp, ULog;

+uses UGraphic, UHelp, ULog, URecord, ULanguage;

 

 function TScreenOptions.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;

 begin

@@ -74,8 +74,12 @@ begin
           end;

 

           if SelInteraction = 5 then begin

-            Music.PlayStart;

-            FadeTo(@ScreenOptionsRecord);

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

+            begin

+              Music.PlayStart;

+              FadeTo(@ScreenOptionsRecord);

+            end else

+              ScreenPopupError.ShowPopup(Language.Translate('ERROR_NO_SOUND_INPUT'));

           end;

 

           if SelInteraction = 6 then begin