Changeset 353 for CoolAudio/UPlaylist.pas

Timestamp:

Apr 23, 2012, 2:57:12 PM (12 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/UPlaylist.pas (modified) (8 diffs)

CoolAudio/UPlaylist.pas

@@ -13 +13 @@
   end;
 
-  { TPlaylist }
+  { TPlayList }
 
-  TPlaylist = class(TComponent)
+  TPlayList = class(TComponent)
+  private
+    FRandomOrder: Boolean;
+    FRepeatInfinitely: Boolean;
   public
-    Player: TPlayer;
-    Items: TObjectList; // TObjectList<TPlaylistItem>
-    RandomOrder: Boolean;
-    RepeatInfinitely: Boolean;
     CurrentIndex: Integer;
     procedure AddFile(FileName: string);
@@ -29 +28 @@
     constructor Create(AOwner: TComponent);
     destructor Destroy; override;
+  published
+    Player: TMediaPlayer;
+    Items: TObjectList; // TObjectList<TPlaylistItem>
+    property RandomOrder: Boolean read FRandomOrder write FRandomOrder;
+    property RepeatInfinitely: Boolean read FRepeatInfinitely
+      write FRepeatInfinitely;
   end;
 
@@ -34 +39 @@
 implementation
 
-{ TPlaylist }
+{ TPlayList }
 
-procedure TPlaylist.AddFile(FileName: string);
+procedure TPlayList.AddFile(FileName: string);
 var
   NewItem: TPlaylistItem;
@@ -45 +50 @@
 end;
 
-procedure TPlaylist.Shuffle;
+procedure TPlayList.Shuffle;
 begin
 
 end;
 
-procedure TPlaylist.Play;
+procedure TPlayList.Play;
 begin
   Player.FileName := TPlaylistItem(Items[CurrentIndex]).FileName;
@@ -56 +61 @@
 end;
 
-procedure TPlaylist.PlayNext;
+procedure TPlayList.PlayNext;
 begin
   Inc(CurrentIndex);
@@ -67 +72 @@
 end;
 
-procedure TPlaylist.PlayPrevious;
+procedure TPlayList.PlayPrevious;
 begin
   Dec(CurrentIndex);
@@ -76 +81 @@
 end;
 
-constructor TPlaylist.Create(AOwner: TComponent);
+constructor TPlayList.Create(AOwner: TComponent);
 begin
   inherited;
@@ -82 +87 @@
 end;
 
-destructor TPlaylist.Destroy;
+destructor TPlayList.Destroy;
 begin
   Items.Free;