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

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 3
Всего онлайн: 3
Зарегистрировано юзеров: 7024
Комментариев на сайте: 656
Новый юзер: Alvinbag



Последние комментарии
c
Paulineodods прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
Всем добрый день Заказывала вот такую модель смартфона на сайте https://sale-aliexpress.ru . Продавец проявил инициативу и сам отправил с помощью DHL потом еще у DHL какой то сбой прошел . так продавец еще интересовался отписывался получила я или нет. В придачу положил рыбку для наушников (чтобы провода не запутывались))) и стилус. Короче мне повезло с продавцом и покупкой. Очень [url=https://sale-aliexpress.ru] рекомендую данный сайт .
YuristFom прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
[b]ЮристЪ онлайн.[/b] Наша юридическая компания [b]"ЮристЪ"[/b] профессионально занимается разрешением всех юридических вопросов на протяжении многих лет. Отличное знание российского законодательства и широкая юридическая практика позволяют нашим юристам и адвокатам добиться положительного разрешения дела даже в самых сложных случаях. Наш сайт: http://jurs.info/g/ Юридическая консультация 24 на 7 ежедневно. Телефон указан на сайте. [url=jurs.info/g]Получить юридическую консультацию прямо сейчас![/url]

Урок 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
Просмотров: 6493

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

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