From 994ff6bfd803edd76f45e7b2e083c2bbd06e0cf3 Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Wed, 7 Apr 2010 20:17:42 +0000 Subject: - 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 --- Game/Code/Screens/UScreenOptions.pas | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'Game/Code/Screens/UScreenOptions.pas') 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 -- cgit v1.2.3