Class TCdPlay (unit Mmmain)
Inherits from
TForm
Constructors
Functions
procedure About1Click(Sender: TObject);
procedure AutoSaveClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean);
procedure MediaPlayer1Notify(Sender: TObject);
procedure ProgramsClick(Sender: TObject);
procedure StereoButton1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure DeviceClose;
procedure DeviceOpen;
Function FindNextTrack : Boolean;
Function FindPrevTrack : Boolean;
procedure GetDeviceInfo(DeviceInfo:TDeviceInfo);
procedure SaveDeviceInfo(DeviceInfo:TDeviceInfo);
Properties
Events
Variables
About1 : TMenuItem;
AutoSave : TMenuItem;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
LEDElapsed : TLEDLabel;
LEDRemain : TLEDLabel;
LEDTrack : TLEDLabel;
MainMenu1 : TMainMenu;
MediaPlayer1 : TMediaPlayer;
Options1 : TMenuItem;
Panel1 : TPanel;
Panel2 : TPanel;
Prorams : TMenuItem;
StereoButton1 : TStereoButton;
Timer1 : TTimer;
TrackList : TMenuItem;
View : TMenuItem;
DeviceExist : Boolean;
DeviceInfo : TDeviceInfo;
DeviceOpened : Boolean;
Constructors
Functions
procedure About1Click(Sender: TObject);
procedure AutoSaveClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean);
procedure MediaPlayer1Notify(Sender: TObject);
procedure ProgramsClick(Sender: TObject);
procedure StereoButton1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure DeviceClose;
procedure DeviceOpen;
Function FindNextTrack : Boolean;
Function FindPrevTrack : Boolean;
procedure GetDeviceInfo(DeviceInfo:TDeviceInfo);
procedure SaveDeviceInfo(DeviceInfo:TDeviceInfo);
Properties
Events
Variables
About1 : TMenuItem;
AutoSave : TMenuItem;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
LEDElapsed : TLEDLabel;
LEDRemain : TLEDLabel;
LEDTrack : TLEDLabel;
MainMenu1 : TMainMenu;
MediaPlayer1 : TMediaPlayer;
Options1 : TMenuItem;
Panel1 : TPanel;
Panel2 : TPanel;
Prorams : TMenuItem;
StereoButton1 : TStereoButton;
Timer1 : TTimer;
TrackList : TMenuItem;
View : TMenuItem;
DeviceExist : Boolean;
DeviceInfo : TDeviceInfo;
DeviceOpened : Boolean;