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;