Changeset 277 for CoolAudio/Systems/UAudioSystem.pas

Timestamp:

Oct 4, 2011, 1:52:48 PM (13 years ago)

Author:

george

Message:

• Fixed: Start/stop playback control.
• Added: Track position and Length handling.

File:

• CoolAudio/Systems/UAudioSystem.pas (modified) (3 diffs)

CoolAudio/Systems/UAudioSystem.pas

@@ -29 +29 @@
   TPlayer = class(TComponent)
   private
+    procedure SetPlaying(AValue: Boolean);
   protected
     FFileName: string;
@@ -51 +52 @@
     property AudioSystem: TAudioSystem read FAudioSystem write FAudioSystem;
     property FileName: string read FFileName write SetFileName;
+    property Playing: Boolean read FPlaying write SetPlaying;
     constructor Create; virtual;
   end;
@@ -61 +63 @@
 
 { TPlayer }
+
+procedure TPlayer.SetPlaying(AValue: Boolean);
+begin
+  if FPlaying = AValue then Exit;
+  if AValue then Play else Stop;
+end;
 
 procedure TPlayer.SetFileName(AValue: string);