Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?
Поиск
L


Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 6
Всего онлайн: 6
Зарегистрировано юзеров: 5762
Комментариев на сайте: 623
Новый юзер: Sevnday



Последние комментарии
c
N0E0O7 прокомментировал "Урок 1 - Инициализация OpenGL":
А у меня форма чёрная запускается
dimonsky прокомментировал "Урок 2 - Простые примитивы":
GetDC(handle) вместо canvas.handle, и убрать вызов FormResize. Тогда получается конфетка.



Мы в соцсетях
c
Delphi
Урок 45 - Пишем MediaPlayer, часть(5/7)

   Продолжаем совершенствовать наш плеер и этом уроке мы научимся удалять файлы из плей-листа, изменять громкость и другое.

   Сделаем удаление файлов, создаем обработчик события OnClick на кнопке "-" и пишем код:

procedure TForm1.Button6Click(Sender: TObject);
var
	inindex:integer; // Номер выбранного элемента
begin
	inindex:= ListBox1.ItemIndex; // Получаем номер
	ListBox1.Items.Delete(inindex); // Удаляем название трека 
	ListBox2.Items.Delete(inindex); // и удаляем сам путь до файла
		// При удалении последнего фокус теряется, восстанавливаем его 
	if inindex>ListBox1.Items.Count-1 then
	inindex:=ListBox1.Items.Count-1;
	ListBox1.ItemIndex:=inindex;
end;
   Немного удобства, сделаем так, чтобы треки удалялись при нажатии на кнопку Delete, для этого создаем обработчик события OnKeyDown у ListBox1:
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_Delete then // Если была нажата клавише Delete то
 Button6.Click;  // нажимаем на кнопочку "-"
end;
   На заметку: можно зажать Сtrl и кликнуть по слову VK_Delete, вы попадете в юнит где описаны все виртуальные клавиши.

   Далее сделаем чтобы при двойном клике на трек он воспроизводился, создадим обработчик OnDblClick у ListBox1:
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
PlayItem(listbox1.ItemIndex); // Воспроизводим выбранный трек
end;
   Ну а теперь последнее, громкость, выделяем ScrollBar2 и создаем обработчик события OnScroll:
procedure TForm1.ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
Bass_SetVolume(Scrollbar2.Position/100); // Устанавливаем громкость звука
end;
   В библиотеке Bass макс. громкость = 1, а мин. = 0, т.к. ScrallBar имеет интервал от 0 до 100, то разделив текущее ззначение ScrollBar'а на 100 мы получим значение в интервале от 0 до 1.
Например: текущее ззначение = 65, 65/100 = 0,65. От 0 до 1.

   Ну вот и все, в следующем уроке мы сделаем сохранение плей-листа в файл и его загрузку. Удачи!
Встретимся в следующем уроке!


Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 30 Мая 2013
Просмотров: 4862

Урок 44 - Пишем MediaPlayer, часть(4/7) Урок 46 - Пишем MediaPlayer, часть(6/7)

Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.