Changeset 347 for CoolAudio/Systems/UAudioSystem.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

CoolAudio/Systems/UAudioSystem.pas

@@ -1 +1 @@
 unit UAudioSystem;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
@@ -20 +20 @@
     procedure SetOutputMode(AValue: TOutputDriver); virtual;
   public
-    constructor Create; virtual;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     property OutputMode: TOutputDriver read FOutputDriver write SetOutputMode;
@@ -60 +60 @@
     property Playing: Boolean read FPlaying write SetPlaying;
     property Active: Boolean read FActive write SetActive;
-    constructor Create; virtual;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   end;
@@ -76 +76 @@
   { TAudioSystemManager }
 
-  TAudioSystemManager = class
+  TAudioSystemManager = class(TComponent)
     Systems: TObjectList; // TListObject<TAudioSystem>
     procedure Register(Name: string; SystemClass: TAudioSystemClass;
       PlayerClass: TPlayerClass);
     procedure FillStringList(StringList: TStrings);
-    constructor Create;
+    function SearchByName(Name: string): TAudioSystemManagerItem;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   end;
@@ -104 +105 @@
   with TAudioSystemManagerItem(Systems[I]) do
     StringList.AddObject(Name, Systems[I]);
+end;
+
+function TAudioSystemManager.SearchByName(Name: string): TAudioSystemManagerItem;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Systems.Count) and (TAudioSystemManagerItem(Systems[I]).Name <> Name) do Inc(I);
+  if I < Systems.Count then Result := TAudioSystemManagerItem(Systems[I])
+    else Result := nil;
 end;
 
@@ -118 +129 @@
 end;
 
-constructor TAudioSystemManager.Create;
-begin
+constructor TAudioSystemManager.Create(AOwner: TComponent);
+begin
+  inherited;
   Systems := TObjectList.Create;
 end;
@@ -205 +217 @@
 end;
 
-constructor TPlayer.Create;
-begin
+constructor TPlayer.Create(AOwner: TComponent);
+begin
+  inherited;
 end;
 
@@ -223 +236 @@
 end;
 
-constructor TAudioSystem.Create;
-begin
+constructor TAudioSystem.Create(AOwner: TComponent);
+begin
+  inherited;
   {$IFDEF Windows}
   FOutputDriver := omWin32;