Главная страница
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.039 c
7-84786
_ALEXey_
2003-04-09 19:03
2003.06.26
Запрет всех контекстных меню в системе (ловушка)


3-84017
Belkova
2003-05-30 20:51
2003.06.26
windows2000 и транзакции


7-84798
Ал
2003-04-17 09:27
2003.06.26
Как сменить фон раб. стола (bmp), если включен ActiveDesktop?


4-84855
dodo
2003-04-22 00:41
2003.06.26
Как определить развернуто окно или свернуто


1-84203
NickName
2003-06-12 13:56
2003.06.26
Сброс фокус Memo