Inherits from
TForm
procedure Button1Click(Sender: TObject);
procedure CDOnceClick(Sender: TObject);
procedure CDRepeatClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
Default mode of play
procedure FormCreate(Sender: TObject);
Set the CD player and Environment for the first time
procedure FormDblClick(Sender: TObject);
procedure MMEjectClick(Sender: TObject);
Otherwise go back one track
procedure MMForwardClick(Sender: TObject);
procedure MMForwardMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MMForwardMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MMNextClick(Sender: TObject);
procedure MMPauseClick(Sender: TObject);
procedure MMPlayClick(Sender: TObject);
procedure MMPrevClick(Sender: TObject);
procedure MMRewindClick(Sender: TObject);
procedure MMRewindMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MMRewindMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MMStopClick(Sender: TObject);
procedure MoveTimerTimer(Sender: TObject);
procedure OnTopButtonClick(Sender: TObject);
procedure PowerButtonClick(Sender: TObject);
procedure TickerTimer(Sender: TObject);
CDStates=(CDOffline,CDPlaying,CDStopped,CDNotReady,CDPaused);
procedure TimerMethod1Click(Sender: TObject);
procedure TimerMethod2Click(Sender: TObject);
procedure TimerMethod3Click(Sender: TObject);
procedure TimerMethod4Click(Sender: TObject);
procedure TrackListClick(Sender: TObject);
Intercept pressing a button on the CD panel and manually
perform the tasks
procedure TrackOnceClick(Sender: TObject);
Otherwise move to the track specified and update the display
so you know it has moved
procedure TrackRepeatClick(Sender: TObject);
procedure VolumeChange(Sender: TObject);
procedure WMSizing(var mess: TMessage);
Artist : TLabel;
BackDisp : TShape;
Bevel1 : TBevel;
Bevel2 : TBevel;
Bevel3 : TBevel;
Bevel4 : TBevel;
Bevel5 : TBevel;
Bevel6 : TBevel;
Bevel7 : TBevel;
Button1 : TButton;
CDOnce : TSpeedButton;
CDPanel : TMediaPlayer;
CDRepeat : TSpeedButton;
Label1 : TLabel;
Label2 : TLabel;
MMEject : TSpeedButton;
MMForward : TSpeedButton;
MMNext : TSpeedButton;
MMPause : TSpeedButton;
MMPlay : TSpeedButton;
MMPrev : TSpeedButton;
MMRewind : TSpeedButton;
MMStop : TSpeedButton;
MoveTimer : TTimer;
OnTopButton : TSpeedButton;
PowerButton : TSpeedButton;
Shape1 : TShape;
Ticker : TTimer;
TimeDisp : TLEDDisp;
TimerMethod1 : TSpeedButton;
TimerMethod2 : TSpeedButton;
TimerMethod3 : TSpeedButton;
TimerMethod4 : TSpeedButton;
TitleOfCD : TLabel;
Track : TLEDDisp;
TrackList : TComboBox;
TrackOnce : TSpeedButton;
TrackRepeat : TSpeedButton;
Volume : TTrackBar;
RealCmdShow : word;
Public declarations
procedure Button1Click(Sender: TObject);
procedure CDOnceClick(Sender: TObject);
procedure CDRepeatClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
Default mode of play
procedure FormCreate(Sender: TObject);
Set the CD player and Environment for the first time
procedure FormDblClick(Sender: TObject);
procedure MMEjectClick(Sender: TObject);
Otherwise go back one track
procedure MMForwardClick(Sender: TObject);
procedure MMForwardMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MMForwardMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MMNextClick(Sender: TObject);
procedure MMPauseClick(Sender: TObject);
procedure MMPlayClick(Sender: TObject);
procedure MMPrevClick(Sender: TObject);
procedure MMRewindClick(Sender: TObject);
procedure MMRewindMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MMRewindMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MMStopClick(Sender: TObject);
procedure MoveTimerTimer(Sender: TObject);
procedure OnTopButtonClick(Sender: TObject);
procedure PowerButtonClick(Sender: TObject);
procedure TickerTimer(Sender: TObject);
CDStates=(CDOffline,CDPlaying,CDStopped,CDNotReady,CDPaused);
procedure TimerMethod1Click(Sender: TObject);
procedure TimerMethod2Click(Sender: TObject);
procedure TimerMethod3Click(Sender: TObject);
procedure TimerMethod4Click(Sender: TObject);
procedure TrackListClick(Sender: TObject);
Intercept pressing a button on the CD panel and manually
perform the tasks
procedure TrackOnceClick(Sender: TObject);
Otherwise move to the track specified and update the display
so you know it has moved
procedure TrackRepeatClick(Sender: TObject);
procedure VolumeChange(Sender: TObject);
procedure WMSizing(var mess: TMessage);
Artist : TLabel;
BackDisp : TShape;
Bevel1 : TBevel;
Bevel2 : TBevel;
Bevel3 : TBevel;
Bevel4 : TBevel;
Bevel5 : TBevel;
Bevel6 : TBevel;
Bevel7 : TBevel;
Button1 : TButton;
CDOnce : TSpeedButton;
CDPanel : TMediaPlayer;
CDRepeat : TSpeedButton;
Label1 : TLabel;
Label2 : TLabel;
MMEject : TSpeedButton;
MMForward : TSpeedButton;
MMNext : TSpeedButton;
MMPause : TSpeedButton;
MMPlay : TSpeedButton;
MMPrev : TSpeedButton;
MMRewind : TSpeedButton;
MMStop : TSpeedButton;
MoveTimer : TTimer;
OnTopButton : TSpeedButton;
PowerButton : TSpeedButton;
Shape1 : TShape;
Ticker : TTimer;
TimeDisp : TLEDDisp;
TimerMethod1 : TSpeedButton;
TimerMethod2 : TSpeedButton;
TimerMethod3 : TSpeedButton;
TimerMethod4 : TSpeedButton;
TitleOfCD : TLabel;
Track : TLEDDisp;
TrackList : TComboBox;
TrackOnce : TSpeedButton;
TrackRepeat : TSpeedButton;
Volume : TTrackBar;
RealCmdShow : word;
Public declarations