Class TMain (unit MainUnit)

Inherits from

TForm

Constructors



Functions

procedure EditArtistKeyPress(Sender: TObject; var Key: Char);


procedure EditSongKeyPress(Sender: TObject; var Key: Char);


procedure EditTitleKeyPress(Sender: TObject; var Key: Char);


procedure FormCreate(Sender: TObject);


procedure TimerTimer(Sender: TObject);


procedure TrackBarChange(Sender: TObject);


function ReadArtist: string;


function ReadSong: string;


function ReadTitle: string;


procedure WriteArtist(Artist: string);


procedure WriteSong(Song: string);


procedure WriteTitle(Title: string);


Properties

Events

Variables

CDControl : TCDControl;


EditArtist : TEdit;


EditSong : TEdit;


EditTitle : TEdit;


StatusBar : TStatusBar;


Timer : TTimer;


TrackBar : TTrackBar;


LastSerialNum : integer;


LastTrack : integer;



Constructors


Functions


procedure EditArtistKeyPress(Sender: TObject; var Key: Char);


procedure EditSongKeyPress(Sender: TObject; var Key: Char);


procedure EditTitleKeyPress(Sender: TObject; var Key: Char);


procedure FormCreate(Sender: TObject);


procedure TimerTimer(Sender: TObject);


procedure TrackBarChange(Sender: TObject);


function ReadArtist: string;


function ReadSong: string;


function ReadTitle: string;


procedure WriteArtist(Artist: string);


procedure WriteSong(Song: string);


procedure WriteTitle(Title: string);


Properties


Events


Variables


CDControl : TCDControl;


EditArtist : TEdit;


EditSong : TEdit;


EditTitle : TEdit;


StatusBar : TStatusBar;


Timer : TTimer;


TrackBar : TTrackBar;


LastSerialNum : integer;


LastTrack : integer;