| 1 |
unit Unit3; |
| 2 |
|
| 3 |
interface |
| 4 |
|
| 5 |
uses |
| 6 |
System.SysUtils, System.Types, System.UITypes, System.Classes, |
| 7 |
System.Variants, |
| 8 |
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, |
| 9 |
FMX.Media, Data.Bind.EngExt, FMX.Bind.DBEngExt, System.Rtti, |
| 10 |
System.Bindings.Outputs, FMX.Bind.Editors, Data.Bind.Components, FMX.StdActns, |
| 11 |
Math, FMX.Ani; |
| 12 |
|
| 13 |
type |
| 14 |
TForm3 = class(TForm) |
| 15 |
Button1: TButton; |
| 16 |
Button2: TButton; |
| 17 |
Button3: TButton; |
| 18 |
TrackBar1: TTrackBar; |
| 19 |
Switch1: TSwitch; |
| 20 |
SpeedButton1: TSpeedButton; |
| 21 |
Label1: TLabel; |
| 22 |
OpenDialog1: TOpenDialog; |
| 23 |
MediaPlayer1: TMediaPlayer; |
| 24 |
Panel1: TPanel; |
| 25 |
ArcDial1: TArcDial; |
| 26 |
CheckBox1: TCheckBox; |
| 27 |
Label2: TLabel; |
| 28 |
Button4: TButton; |
| 29 |
Timer1: TTimer; |
| 30 |
procedure Button3Click(Sender: TObject); |
| 31 |
procedure SpeedButton1Click(Sender: TObject); |
| 32 |
procedure FormShow(Sender: TObject); |
| 33 |
procedure FormHide(Sender: TObject); |
| 34 |
procedure ArcDial1Change(Sender: TObject); |
| 35 |
procedure FormCreate(Sender: TObject); |
| 36 |
procedure Button4Click(Sender: TObject); |
| 37 |
procedure Timer1Timer(Sender: TObject); |
| 38 |
private |
| 39 |
{ private ���� } |
| 40 |
public |
| 41 |
FileName: string; |
| 42 |
Vol: Single; |
| 43 |
{ public ���� } |
| 44 |
end; |
| 45 |
|
| 46 |
var |
| 47 |
Form3: TForm3; |
| 48 |
|
| 49 |
implementation |
| 50 |
|
| 51 |
{$R *.fmx} |
| 52 |
|
| 53 |
procedure TForm3.ArcDial1Change(Sender: TObject); |
| 54 |
begin |
| 55 |
with ArcDial1 do |
| 56 |
if Value > ValueRange.Max then |
| 57 |
Value := ValueRange.Max |
| 58 |
else if Value < ValueRange.Min then |
| 59 |
Value := ValueRange.Min; |
| 60 |
MediaPlayer1.Volume := 1 - ArcDial1.ValueRange.RelativeValue + Vol; |
| 61 |
end; |
| 62 |
|
| 63 |
procedure TForm3.Button3Click(Sender: TObject); |
| 64 |
begin |
| 65 |
if OpenDialog1.Execute = true then |
| 66 |
begin |
| 67 |
FileName := OpenDialog1.FileName; |
| 68 |
MediaPlayer1.FileName := OpenDialog1.FileName; |
| 69 |
TrackBar1.Max := MediaPlayer1.Duration / MediaTimeScale; |
| 70 |
Label2.Text := TimeToStr(TrackBar1.Max); |
| 71 |
SpeedButton1Click(Sender); |
| 72 |
end; |
| 73 |
end; |
| 74 |
|
| 75 |
procedure TForm3.Button4Click(Sender: TObject); |
| 76 |
begin |
| 77 |
TrackBar1.Value := 0; |
| 78 |
MediaPlayer1.CurrentTime:=0; |
| 79 |
end; |
| 80 |
|
| 81 |
procedure TForm3.FormCreate(Sender: TObject); |
| 82 |
begin |
| 83 |
with ArcDial1.ValueRange do |
| 84 |
begin |
| 85 |
Max := 180; |
| 86 |
Min := -120; |
| 87 |
ArcDial1.Value := Min; |
| 88 |
Vol := RelativeValue; |
| 89 |
end; |
| 90 |
Label2.Text := TimeToStr(0); |
| 91 |
end; |
| 92 |
|
| 93 |
procedure TForm3.FormHide(Sender: TObject); |
| 94 |
begin |
| 95 |
MediaPlayer1.Clear; |
| 96 |
SpeedButton1.IsPressed := false; |
| 97 |
end; |
| 98 |
|
| 99 |
procedure TForm3.FormShow(Sender: TObject); |
| 100 |
begin |
| 101 |
if FileName <> '' then |
| 102 |
MediaPlayer1.FileName := FileName; |
| 103 |
end; |
| 104 |
|
| 105 |
procedure TForm3.SpeedButton1Click(Sender: TObject); |
| 106 |
begin |
| 107 |
if SpeedButton1.IsPressed = true then |
| 108 |
MediaPlayer1.Play |
| 109 |
else |
| 110 |
MediaPlayer1.Stop; |
| 111 |
Timer1.Enabled := SpeedButton1.IsPressed; |
| 112 |
end; |
| 113 |
|
| 114 |
procedure TForm3.Timer1Timer(Sender: TObject); |
| 115 |
begin |
| 116 |
TrackBar1.Value := MediaPlayer1.CurrentTime / MediaTimeScale; |
| 117 |
end; |
| 118 |
|
| 119 |
end. |
Parent Directory
Revision Log