unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Media,
FMX.StdCtrls, FMX.Controls.Presentation, FMX.Media.Win, FMX.Edit, FMX.ExtCtrls,
FMX.Memo.Types, FMX.ScrollBox, FMX.Memo, FMX.Platform, FMX.Layouts,
FMX.ListBox, FMX.Objects, FMX.Effects,System.IOUtils, FMX.DialogService,
Winapi.Windows;
type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
OpenDialog1: TOpenDialog;
MediaPlayer1: TMediaPlayer;
MediaPlayerControl1: TMediaPlayerControl;
Timer1: TTimer;
ListBox1: TListBox;
pnlFile: TPanel;
pnlMain: TPanel;
MediaPlayer2: TMediaPlayer;
pnlPView: TPanel;
MediaPlayerControl2: TMediaPlayerControl;
Panel2: TPanel;
btnFileOpen: TButton;
btnStopPlay: TButton;
Panel3: TPanel;
edNow: TEdit;
edNagasa: TEdit;
pnlSeek: TPanel;
TrackBar1: TTrackBar;
ProgressBar1: TProgressBar;
pnlPie: TPanel;
Pie1: TPie;
Circle1: TCircle;
Circle2: TCircle;
StyleBook1: TStyleBook;
pnlPreMei: TPanel;