| Class TMain (unit MainUnit) |
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;