В статье «Создание простейшего видеоплеера на основе проигрывателя VideoLAN с использованием набора компонентов PasLibVlc» был создан простейший плеер, в котором громкость воспроизведения регулировалась двумя кнопками.
Однако, привычные для всех нас, «ползунки» регулирования громкости не только более удобны, но и информативны. По положению «ползунка» сразу можно узнать о текущем уровне громкости.
Реализуем такой регулятор с использованием PasLibVlc для плеера, который был написан в вышеупомянутой статье.
Реализация предельно проста.
Для этого поместим на форму компонент TTRackBar. Установим значения его свойств Max=200 (соответствует 100% громкости), Position=100 (соответствует значению по умолчанию). Уровень громкости будем устанавливать в обработчике события OnChange.
|
1 2 3 4 |
procedure TForm1.VolumeTrackBarChange(Sender: TObject); begin Player.SetAudioVolume(VolumeTrackBar.Position); end; |
В результате при перемещении «ползунка» у TTrackBar будет изменяться громкость воспроизведения.
Ошибочка в Lazaruse не работает
Вообще-то Delphi и Lazarus, это разные вещи (хотя и похожие). Статья написана для Delphi и пример то же написан на Delphi. Почему он должен гарантированно работать в Lazarus?