Скачать: CL | DM;

Музыкальный пригрыватель   Найти похожие ветки 

← →
Dimonich   (2003-03-03 18:26) [0]

Привет Мастера! Как сделать бегунок,отображающий проигранное время (не gauge!, а обычный который можно двигать),таймер, чтоб время отсчитывал...ну вобщемто и всё Помогите бедному ламерью!!!ПЛЗ!

---

← →
Mihey   (2003-03-03 20:21) [1]

Узнаёшь длину музыкального файла и количество интервалось в обычном TSlideBar. Высчитываешь, сколько процентов от файла проиграло и выставляешь значение на этом TSlideBar. Если делаешь понтовый плеер, то замени SlideBar на другой компонент. Пример плеера есть в TBassPlayer:

http://www.hot.ee/mvps3/bass.exe

---

← →
~Mr.L@g~   (2003-03-03 22:03) [2]

Попробуй TProgressBar. У него есть свойства MouseDown, MouseMove, MouseUp. Останавливаешь воспроизведение при MouseDown,перематываешь при MouseMove, опять запускаешь при MouseUp.

---

← →
Avenger [NhT]   (2003-03-04 12:50) [3]

делай имедж загрузи в него нужную картинеку
это и будет его вид
а двигай изменяя свойство Left

вот и все....

---

← →
Mihey   (2003-03-04 20:17) [4]

В составе того пакета Bass есть компонент, в котором в качестве бегунка можно использовтаь изображения и двигание уже реализовано.

---

← →
Dimonich   (2003-03-04 20:58) [5]

НАРОД Я Ж ЛАМЕР ТУПОРЫЛЫЙ МНЕ НАДО ПОДРОБНО И С ПРИМЕРЧИКОМ
ПОЖАЛСТА!!!!!!!!!!!!!!!!!!!!!!!1

---

← →
Dimonich   (2003-03-04 21:01) [6]

АХ, ДА, СПАСИБО БОЛЬШОЕ!!!!!!!!!!!!!

---

← →
Mihey   (2003-03-04 22:13) [7]

Судя по всему, с примерчиком он и получил.

---

← →
Dimonich   (2003-03-05 16:24) [8]

НИ ХРЕНА Я НЕ ПОЛУЧИЛ ! МЛЯ!

---

← →
Mihey   (2003-03-05 20:21) [9]

А ссылка во втором постинге для кого???????

---

← →
Dimonich   (2003-03-06 15:59) [10]

Я ЕГО УЖЕ СКАЧАЛ (КСАТИ, ЭТО Я ТЕ ПО МЫЛУ НАДОЕДАЮ [ SUPPORT_2003@MAIL.RU]). УСТАНОВИТЬ КОМПОНЕНТ НЕ МАГУ, БЛИН.

---

← →
Kair ©   (2003-03-08 07:34) [11]

>Dimonich
>УСТАНОВИТЬ КОМПОНЕНТ НЕ МАГУ

:)

---

← →
Intell ©   (2003-03-08 15:59) [12]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
with MediaPlayer1 do
if FileName<>"" then
ProgressBar1.position:=Round(100*Position/Length);
end;

procedure TForm1.ProgressBar1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if Shift=[ssLeft] then
begin
with MediaPlayer1 do
if FileName<>"" then begin
ProgressBar1.Position:=Round((X/ProgressBar1.width)*100);
mediaplayer1.position:=Round((Length/100)*ProgressBar1.Position);
end;
end;
end;

Если в чём-то ошибся, то сообщи по мылу - пришлю тебе готовый исходник (или проект).
Intell
sergein@nojabrsk.ru

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.017 c