Changeset 347 for CoolAudio/UPlaylist.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/UPlaylist.pas (modified) (3 diffs)

CoolAudio/UPlaylist.pas

@@ -1 +1 @@
 unit UPlaylist;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
@@ -15 +15 @@
   { TPlaylist }
 
-  TPlaylist = class
+  TPlaylist = class(TComponent)
     Items: TObjectList; // TObjectList<TPlaylistItem>
-    constructor Create;
+    constructor Create(AOwner: TComponent);
     destructor Destroy; override;
   end;
@@ -26 +26 @@
 { TPlaylist }
 
-constructor TPlaylist.Create;
+constructor TPlaylist.Create(AOwner: TComponent);
 begin
+  inherited;
   Items := TObjectList.Create;
 end;