ProgressBar или TrackBar в плеере?

[Bigtyoma]

Помогите мне доделать плеер:
1) Что лучше использовать для того чтобы показывало положение в песне ProgressBar или TrackBar?
2) Что нужно прописать?
3) Что нужно прописать чтобы можно было перематывать композицию на ProgressBar или TrackBar?

[mutabor]

Из предложенного лучше ProgressBar т.к. в нем есть события мыши. Если использовать не VCL а сторонние компоненты, то лучше TrackBar, или же если в последних версиях Дельфи уже сделали в TrackBar события мыши можно станадртный.

Можно также Gauge (Samples), а можно и вовсе вручную отрисовать полосу прокрутки, с таким видом, с каким хочется.

Определитесь, тогда можно ответить на вопрос 2.
Вопрос 3 - неясно, какой компонет используется для звука?

В общем случае нужно высчитать соотношение длин трека и трекбара, и в соответсвии в этим соотношением выставлять позиция воспроизведения.

[Bigtyoma]

A можно ли в Gauge перематывать?

[Bigtyoma]

Я решил использовать ProgressBar, что мне нужно прописать?

Использую стандартный MediaPlayer

[NoName_emaNoN]

На сколько я помню ProgressBar не реагирует на щелчок мыши...

Я, когда писал плеер для этой цели использовал Image, на нёт и красиво прорисовывал полосу прокрутки, и нажатие мыши считывал как событие...

[russian-stalker]

Советую trackbar. Думаю таймер добавить сумеете и поставить одновление на секунду

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if mediaplayer1.FileName<>'' then
begin
TrackBar1.Max:=mediaplayer1.Length;
TrackBar1.Position:=mediaplayer1.Position;
end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
If TrackBar1.Position<>mediaplayer1.Position then
mediaplayer1.Position:=TrackBar1.Position;
mediaplayer1.Play;
end;

[mutabor]

Советую trackbar. Думаю таймер добавить сумеете и поставить одновление на секунду

Если вам нравится слушать треск во время перемотки, то можно и его.

Bigtyoma, скачай в этой теме
http://www.programmersforum.ru/showthread.php?t=5652
к восьмому посту вложение - playlist_alfa.rar

[russian-stalker]

Нету никого треска

[mutabor]

Сообщение от russian-stalker

Нету никого треска

Пока тянешь ползунок, происходит подряд большое кол-во событий OnChange, из-за этого и "треск", т.е. очень частые остановки и запуск воспроизведения. MouseUp в страндартном Трекбаре нет, так что избежать этого нельзя. К тому же одним кликом переместиться также не удастся.

[Лубышев]

Чуваки, может глупо зато не надо особо кодить и не нужны сторонние компоненты.
Короче типа квадрат делаем, отлавливаем все события которые надо, а в нем image и прогресс воспроизведения происходит с выплыванием картинки
ну типа Image1.Width:=бла бла бла...
и так до предела image1.picture.width? Ну как? бредово?
Зато красиво и без какого то заумного кода и сторонних компонентов, просто тупо картинка