Changeset 569 for CoolAudio/Demo/FormMain.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/FormMain.pas (moved) (moved from CoolAudio/Demo/UFormMain.pas ) (7 diffs)

CoolAudio/Demo/FormMain.pas

@@ -1 @@
-unit UFormMain;
-
-{$mode Delphi}{$H+}
+unit FormMain;
 
 interface
@@ -7 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, ExtCtrls, ActnList, UAudioSystem,
-  UCoolAudio, UPlaylist;
+  ComCtrls, ExtCtrls, ActnList, AudioSystem, CoolAudio, Playlist;
 
 type
@@ -54 +51 @@
     procedure TrackBarPositionChange(Sender: TObject);
     procedure TrackBarVolumeChange(Sender: TObject);
-  private
   public
     procedure UpdateInterface;
@@ -65 +61 @@
   ApplicationTitle = 'CoolAudio demo';
 
+
 implementation
 
@@ -70 +67 @@
 
 uses
-  UFormPlaylist;
+  FormPlaylist;
 
 { TFormMain }
@@ -147 +144 @@
 begin
   PlayList.PlayNext;
-  FormPlaylist.ReloadList;
+  FormPlaylist.FormPlaylist.ReloadList;
 end;
 
@@ -157 +154 @@
 procedure TFormMain.AShowPlaylistExecute(Sender: TObject);
 begin
-  FormPlaylist.Show;
+  FormPlaylist.FormPlaylist.Show;
 end;