Changeset 189 for trunk/Packages/CevoComponents/Sound.pas

Timestamp:

May 7, 2020, 12:46:55 AM (4 years ago)

Author:

chronos

Message:

• Added: New Global unit with global constants.
• Modified: Multiple occurence of string constants used for subdirectories replaced by functions.

File:

• trunk/Packages/CevoComponents/Sound.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/Sound.pas

@@ -290 +290 @@
   Result := (WavFileName <> '') and (WavFileName[1] <> '[') and (WavFileName <> '*');
   if Result then
-    // SndPlaySound(pchar(HomeDir+'Sounds' +DirectorySeparator+WavFileName+'.wav'),SND_ASYNC)
-    PlaySound(HomeDir + 'Sounds' + DirectorySeparator + WavFileName);
+    // SndPlaySound(pchar(GetSoundsDir + DirectorySeparator + WavFileName + '.wav'), SND_ASYNC)
+    PlaySound(GetSoundsDir + DirectorySeparator + WavFileName);
 {$ENDIF}
 end;
@@ -307 +307 @@
   Assert(WavFileName[1] <> '[');
   if (WavFileName <> '') and (WavFileName[1] <> '[') and (WavFileName <> '*') then
-    PrepareSound(HomeDir + 'Sounds' + DirectorySeparator + WavFileName);
+    PrepareSound(GetSoundsDir + DirectorySeparator + WavFileName);
 {$ENDIF}
 end;