Changeset 569 for CoolAudio/Demo/FormPlaylist.pas

Timestamp:

Mar 26, 2024, 11:37:40 PM (7 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from CoolAudio unit names.

File:

• CoolAudio/Demo/FormPlaylist.pas (moved) (moved from CoolAudio/Demo/UFormPlaylist.pas ) (12 diffs)

CoolAudio/Demo/FormPlaylist.pas

@@ -1 @@
-unit UFormPlaylist;
-
-{$mode objfpc}{$H+}
+unit FormPlaylist;
 
 interface
@@ -7 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, Menus, ActnList, UPlaylist;
+  ComCtrls, Menus, ActnList, Playlist;
 
 type
@@ -47 +45 @@
     procedure ListView1DblClick(Sender: TObject);
     procedure ListView1KeyPress(Sender: TObject; var Key: char);
-  private
-    { private declarations }
   public
     procedure ReloadList;
@@ -61 +57 @@
 
 uses
-  UAudioSystem, UFormMain;
+  AudioSystem, FormMain;
 
 resourcestring
@@ -76 +72 @@
 procedure TFormPlaylist.AClearAllExecute(Sender: TObject);
 begin
-  FormMain.PlayList.Items.Clear;
+  FormMain.FormMain.PlayList.Items.Clear;
   ReloadList;
 end;
@@ -84 +80 @@
   I: Integer;
 begin
-  with FormMain.PlayList, Items do begin
+  with FormMain.FormMain.PlayList, Items do begin
     for I := Count - 1 downto 0 do
       if ListView1.Items[I].Selected then Delete(I);
@@ -94 +90 @@
 procedure TFormPlaylist.AItemPlayExecute(Sender: TObject);
 begin
-  FormMain.PlayList.CurrentIndex := ListView1.Selected.Index;
-  FormMain.PlayList.Play;
+  FormMain.FormMain.PlayList.CurrentIndex := ListView1.Selected.Index;
+  FormMain.FormMain.PlayList.Play;
 end;
 
@@ -112 +108 @@
           NewItem := TPlaylistItem.Create;
           NewItem.FileName := Dir + DirectorySeparator + sr.Name;
-          FormMain.PlayList.Items.Add(NewItem);
+          FormMain.FormMain.PlayList.Items.Add(NewItem);
         end;
       until FindNext(sr) <> 0;
@@ -124 +120 @@
 begin
   if OpenDialog1.Execute then begin
-    FormMain.PlayList.AddFile(OpenDialog1.FileName);
+    FormMain.FormMain.PlayList.AddFile(OpenDialog1.FileName);
     ReloadList;
   end;
@@ -145 +141 @@
 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.FormMain.PlayList.Items.Count) then
+  with TPlaylistItem(FormMain.FormMain.PlayList.Items[Item.Index]) do begin
     Item.Caption := FileName;
-    Item.Data := FormMain.PlayList.Items[Item.Index];
+    Item.Data := FormMain.FormMain.PlayList.Items[Item.Index];
   end;
 end;
@@ -164 +160 @@
 procedure TFormPlaylist.ReloadList;
 begin
-  ListView1.Items.Count := FormMain.PlayList.Items.Count;
+  ListView1.Items.Count := FormMain.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.FormMain.PlayList.CurrentIndex >= 0) and
+    (FormMain.FormMain.PlayList.CurrentIndex < ListView1.Items.Count) then
+    ListView1.Items[FormMain.FormMain.PlayList.CurrentIndex].Selected := True;
   UpdateInterface;
 end;
@@ -178 +174 @@
   AItemPlay.Enabled := Assigned(ListView1.Selected);
   AClearAll.Enabled := ListView1.Items.Count > 0;
-  CheckBoxRandom.Checked := FormMain.PlayList.RandomOrder;
-  CheckBoxRepeat.Checked := FormMain.PlayList.RepeatInfinitely;
+  CheckBoxRandom.Checked := FormMain.FormMain.PlayList.RandomOrder;
+  CheckBoxRepeat.Checked := FormMain.FormMain.PlayList.RepeatInfinitely;
 end;