="justify">// клацання на назві проізведеніяTForm1.ListBox1Click (Sender: TObject);
// вивести в поле мітки Label1 ім'я обраного файлаnot SpeedButton2.DownSpeedButton2.Down: = True;. Caption: = ListBox1.Items [ListBox1.itemIndex];;;
// клацання на кнопці ВоспроизведениеTForm1.SpeedButton2Click (Sender: TObject); SpeedButton2.Down then
// користувач натиснув кнопку
// почати відтворення
// якщо кнопка Відтворення натиснута,
// то повторне натискання зупиняє
// воспроізведеніе.Stop;. Enabled: = False;. Down: = False;. Hint: = 'Play';;;
// кнопка До предидущейTForm1.SpeedButton1Click (Sender: TObject); ListBox1.ItemIndex> 0 then.ItemIndex: = ListBox1.ItemIndex - 1;;;
// кнопка До следующейTForm1.SpeedButton3Click (Sender: TObject); ListBox1.ItemIndex
// користувач змінив положення
// регулятора громкостіTForm1.TrackBar1Change (Sender: TObject);: = 6500 * (TrackBar1.Max - TrackBar1.Position);: = volume + (volume shl 16); (WAVE_MAPPER, volume); ;
// відтворити композицію,
// назва якої виділено
// у списку ListBox1TForm1.Play;. Enabled: = False;. Caption: = ListBox1.Items [ListBox1.itemIndex];. FileName: = SoundPath + ListBox1.Items [ListBox1.itemIndex];
. Open; EMCIDeviceError do ('Помилка звернення до файлу' +. Items [ListBox1.itemIndex]);. Down: = False;;;;. Play;: = 0;: = 0; . Enabled: = True;. Hint: = 'Stop';;
// сигнал від таймераTForm1.Timer1Timer (Sender: TObject);
// змінити лічильник временіsec <59inc (sec) begin: = 0; (min);;
// вивести час воспроізведенія.Caption: = IntToStr (min) + ':'; sec <10Label2.Caption: =. Caption + '0 '+ IntToStr (sec) Label2.Caption: = . Caption + IntToStr (sec);
// якщо відтворення поточної композиції
// Не завершеноMediaPlayer1.Position
// відтворення поточної композиції
// закончено.Enabled: = False;// зупинити таймер.Stop;// зупинити плеєр
ListBox1.ItemIndex
// Клацання на кнопці Папка
// Вибрати папку, в якій знаходяться MP3 файлиTForm1.SpeedButton4Click (Sender: TObject);: string;// кореневий каталог: PWideChar;: string;: ='';// кореневий каталог - папка Робочий стіл (pwRoot, (Length (Root) +1) * 2);: = StringToWideChar (Root, pwRoot,...
