Changeset 389

Timestamp:

Jul 18, 2012, 2:08:08 PM (12 years ago)

Author:

chronos

Message:

• Modified: Minor changes.

Location:

CoolAudio

Files:

• Systems/FMOD/UAudioSystemFMOD.pas (modified) (1 diff)
• Systems/UAudioSystem.pas (modified) (3 diffs)
• Systems/WinAPI/UAudioSystemWindows.pas (modified) (1 diff)
• Systems/mplayer/UAudioSystemMPlayer.pas (modified) (2 diffs)
• UCoolAudio.pas (modified) (1 diff)
• UCoolAudioConfig.inc (modified) (1 diff)

CoolAudio/Systems/FMOD/UAudioSystemFMOD.pas

@@ -6 +6 @@
 interface
 
+{$UNDEF AudioSystemFMOD}
 {$IFDEF AudioSystemFMOD}
 uses

CoolAudio/Systems/UAudioSystem.pas

@@ -86 +86 @@
   public
     Driver: TMediaPlayerDriver;
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
     procedure Play;
     procedure Pause;
@@ -100 +102 @@
     property FileName: string read GetFileName write SetFileName;
     property Active: Boolean read GetActive write SetActive;
-    constructor Create(AOwner: TComponent); override;
-    destructor Destroy; override;
   end;
 
@@ -117 +117 @@
 
   TAudioSystemManager = class(TComponent)
+  public
     Systems: TObjectList; // TListObject<TAudioSystem>
     procedure Register(Name: string; SystemClass: TAudioSystemClass);

CoolAudio/Systems/WinAPI/UAudioSystemWindows.pas

@@ -63 +63 @@
   SMCIUnknownError = 'Unknown error code';
 
+
 implementation
 

CoolAudio/Systems/mplayer/UAudioSystemMPlayer.pas

@@ -23 +23 @@
 
   TAudioSystemMPlayer = class(TAudioSystem)
-  private
+  protected
     FPath: string;
     procedure SetOutputMode(AValue: TOutputDriver); override;
@@ -37 +37 @@
 
   TPlayerMPlayer = class(TMediaPlayerDriver)
-  private
+  protected
     FProcess: TProcess;
     FVolume: Real;

CoolAudio/UCoolAudio.pas

@@ -2 +2 @@
 
 {$I UCoolAudioConfig.inc}
+
 {$mode Delphi}{$H+}
 

CoolAudio/UCoolAudioConfig.inc

@@ -3 +3 @@
   {$DEFINE AudioSystemMAD}
 {$ENDIF}
-{$DEFINE AudioSystemFMOD}
+{$IFDEF i386}
+  {$DEFINE AudioSystemFMOD}
+{$ENDIF}
 {$DEFINE AudioSystemMPlayer}
 {$IFDEF Windows}