Class TCDForm (unit Cd)

Inherits from

TForm

Constructors



Functions

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);


Properties

Events

Variables

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


Constructors


Functions


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);


Properties


Events


Variables


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