Changeset 279 for CoolAudio/Demo/UMainForm.pas

Timestamp:

Oct 4, 2011, 6:55:54 PM (13 years ago)

Author:

george

Message:

• Fixed: Do not use Windows MMSystem unit under Linux.
• Fixed: Floating point/comma decimal separator error.

File:

• CoolAudio/Demo/UMainForm.pas (modified) (3 diffs)

CoolAudio/Demo/UMainForm.pas

@@ -22 +22 @@
     Edit1: TEdit;
     Label1: TLabel;
+    LabelPosition: TLabel;
     OpenDialog1: TOpenDialog;
     TimerPlayback: TTimer;
@@ -55 +56 @@
   AudioSystem := TAudioSystemMPlayer.Create;
   TAudioSystemMPlayer(AudioSystem).Path := 'c:\Program Files\SMPlayer\mplayer\mplayer.exe';
+  TAudioSystemMPlayer(AudioSystem).Path := TAudioSystemMPlayer(AudioSystem).FindPath;
   Player := TPlayerMPlayer.Create;
   Player.AudioSystem := AudioSystem;
@@ -70 +72 @@
     TrackBar1.OnChange := nil;
     TrackBar1.Position := Trunc(Player.Position / Player.Length * TrackBar1.Max);
+    Application.ProcessMessages;
     TrackBar1.OnChange := TrackBar1Change;
+    LabelPosition.Caption := 'Position: ' + TimeToStr(Player.Position) + ' / ' + TimeToStr(Player.Length);
   end;
 end;