Changeset 353 for CoolAudio/Demo/UFormPlaylist.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/Demo/UFormPlaylist.pas (modified) (8 diffs)

CoolAudio/Demo/UFormPlaylist.pas

@@ -76 +76 @@
 procedure TFormPlaylist.AClearAllExecute(Sender: TObject);
 begin
-  FormMain.Playlist.Items.Clear;
+  FormMain.PlayList.Items.Clear;
   ReloadList;
 end;
@@ -84 +84 @@
   I: Integer;
 begin
-  with FormMain.Playlist, Items do begin
+  with FormMain.PlayList, Items do begin
     for I := Count - 1 downto 0 do
       if ListView1.Items[I].Selected then Delete(I);
@@ -94 +94 @@
 procedure TFormPlaylist.AItemPlayExecute(Sender: TObject);
 begin
-  FormMain.Playlist.CurrentIndex := ListView1.Selected.Index;
-  FormMain.Playlist.Play;
+  FormMain.PlayList.CurrentIndex := ListView1.Selected.Index;
+  FormMain.PlayList.Play;
 end;
 
@@ -112 +112 @@
           NewItem := TPlaylistItem.Create;
           NewItem.FileName := Dir + DirectorySeparator + sr.Name;
-          FormMain.Playlist.Items.Add(NewItem);
+          FormMain.PlayList.Items.Add(NewItem);
         end;
       until FindNext(sr) <> 0;
@@ -124 +124 @@
 begin
   if OpenDialog1.Execute then begin
-    FormMain.Playlist.AddFile(OpenDialog1.FileName);
+    FormMain.PlayList.AddFile(OpenDialog1.FileName);
     ReloadList;
   end;
@@ -145 +145 @@
 procedure TFormPlaylist.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if (Item.Index >= 0) and (Item.Index < FormMain.Playlist.Items.Count) then
-  with TPlaylistItem(FormMain.Playlist.Items[Item.Index]) do begin
+  if (Item.Index >= 0) and (Item.Index < FormMain.PlayList.Items.Count) then
+  with TPlaylistItem(FormMain.PlayList.Items[Item.Index]) do begin
     Item.Caption := FileName;
-    Item.Data := FormMain.Playlist.Items[Item.Index];
+    Item.Data := FormMain.PlayList.Items[Item.Index];
   end;
 end;
@@ -164 +164 @@
 procedure TFormPlaylist.ReloadList;
 begin
-  ListView1.Items.Count := FormMain.Playlist.Items.Count;
+  ListView1.Items.Count := FormMain.PlayList.Items.Count;
   ListView1.Refresh;
   ListView1.Selected := nil;
-  if (FormMain.Playlist.CurrentIndex >= 0) and
-    (FormMain.Playlist.CurrentIndex < ListView1.Items.Count) then
-    ListView1.Items[FormMain.Playlist.CurrentIndex].Selected := True;
+  if (FormMain.PlayList.CurrentIndex >= 0) and
+    (FormMain.PlayList.CurrentIndex < ListView1.Items.Count) then
+    ListView1.Items[FormMain.PlayList.CurrentIndex].Selected := True;
   UpdateInterface;
 end;
@@ -178 +178 @@
   AItemPlay.Enabled := Assigned(ListView1.Selected);
   AClearAll.Enabled := ListView1.Items.Count > 0;
-  CheckBoxRandom.Checked := FormMain.Playlist.RandomOrder;
-  CheckBoxRepeat.Checked := FormMain.Playlist.RepeatInfinitely;
+  CheckBoxRandom.Checked := FormMain.PlayList.RandomOrder;
+  CheckBoxRepeat.Checked := FormMain.PlayList.RepeatInfinitely;
 end;