Changeset 347 for CoolAudio/Systems/UAudioSystemMPlayer.pas

Timestamp:

Apr 20, 2012, 12:14:51 PM (13 years ago)

Author:

chronos

Message:

• Modified: CoolAudio will be used as components in component palette.

File:

• CoolAudio/Systems/UAudioSystemMPlayer.pas (modified) (4 diffs)

CoolAudio/Systems/UAudioSystemMPlayer.pas

@@ -27 +27 @@
   public
     function FindPath: string;
-    constructor Create; override;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     property Path: string read FPath write FPath;
@@ -52 +52 @@
     procedure Pause; override;
     procedure Stop; override;
-    constructor Create; override;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   end;
@@ -115 +115 @@
 end;
 
-constructor TAudioSystemMPlayer.Create;
-begin
-  inherited Create;
+constructor TAudioSystemMPlayer.Create(AOwner: TComponent);
+begin
+  inherited;
   FPath := FindPath;
 end;
@@ -290 +290 @@
 end;
 
-constructor TPlayerMPlayer.Create;
-begin
-  inherited Create;
+constructor TPlayerMPlayer.Create(AOwner: TComponent);
+begin
+  inherited;
   FProcess := TProcess.Create(nil);
 end;