Changeset 389 for CoolAudio/Systems/UAudioSystem.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Minor changes.

File:

• CoolAudio/Systems/UAudioSystem.pas (modified) (3 diffs)

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);