Changeset 353 for CoolAudio/Systems/MAD/UAudioSystemMAD.pas

Timestamp:

Apr 23, 2012, 2:57:12 PM (13 years ago)

Author:

chronos

Message:

• Modified: TPlayList is now registred as component in group CoolAudio in Component pallete.
• Added: Created placeholder component TMediaPlayer which can be switched to different audio systems in runtime without destruction/construction.

File:

• CoolAudio/Systems/MAD/UAudioSystemMAD.pas (modified) (2 diffs)

CoolAudio/Systems/MAD/UAudioSystemMAD.pas

@@ -13 +13 @@
   TAudioSystemMAD = class(TAudioSystem)
   public
+    function GetMediaPlayerDriverClass: TMediaPlayerDriverClass; override;
   end;
 
@@ -29 +30 @@
 
 {$IFDEF AudioSystemMAD}
+
+{ TAudioSystemMAD }
+
+function TAudioSystemMAD.GetMediaPlayerDriverClass: TMediaPlayerDriverClass;
+begin
+  Result := TPlayerMAD;
+end;
 
 { TPlayerMAD }