Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: 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 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.038 c
11-84051
Dmitriy Polskoy
2002-10-09 12:24
2003.06.26
Помогите разобраться


1-84103
NaZGHUL
2003-06-10 11:43
2003.06.26
Почему срабатывает условие


1-84423
bloodman
2003-06-08 01:05
2003.06.26
HotKey


4-84828
fifo
2003-04-22 18:12
2003.06.26
Как кликнуть левой кнопкой мышки по чужому окну?


3-84025
cherdn
2003-05-31 16:39
2003.06.26
ODBC под XP