Changeset 277 for CoolAudio/Demo/UMainForm.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/Demo/UMainForm.pas (modified) (5 diffs)

CoolAudio/Demo/UMainForm.pas

@@ -1 +1 @@
 unit UMainForm;
 
-{$mode objfpc}{$H+}
+{$mode Delphi}{$H+}
 
 interface
@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, UAudioSystem, UAudioSystemFMOD, UAudioSystemMPlayer;
+  ComCtrls, ExtCtrls, UAudioSystem, UAudioSystemFMOD, UAudioSystemMPlayer;
 
 type
@@ -20 +20 @@
     Edit1: TEdit;
     OpenDialog1: TOpenDialog;
+    TimerPlayback: TTimer;
     TrackBar1: TTrackBar;
     procedure Button1Click(Sender: TObject);
@@ -27 +28 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure TimerPlaybackTimer(Sender: TObject);
+    procedure TrackBar1Change(Sender: TObject);
   private
     { private declarations }
@@ -57 +60 @@
 end;
 
+procedure TMainForm.TimerPlaybackTimer(Sender: TObject);
+begin
+  if Player.Playing then begin
+    TrackBar1.OnChange := nil;
+    TrackBar1.Position := Trunc(Player.Position / Player.Length * TrackBar1.Max);
+    TrackBar1.OnChange := TrackBar1Change;
+  end;
+end;
+
+procedure TMainForm.TrackBar1Change(Sender: TObject);
+begin
+  Player.Position := TrackBar1.Position / TrackBar1.Max * Player.Length;
+end;
+
 procedure TMainForm.ButtonPlayClick(Sender: TObject);
 begin