Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Музыкальный пригрыватель [D7, WinXP]

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

Intell (2003-03-08 15:59:00) [1]
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

Kair (2003-03-08 07:34:00) [2]
>Dimonich
>УСТАНОВИТЬ КОМПОНЕНТ НЕ МАГУ

:)

Dimonich (2003-03-06 15:59:00) [3]
Я ЕГО УЖЕ СКАЧАЛ (КСАТИ, ЭТО Я ТЕ ПО МЫЛУ НАДОЕДАЮ [ SUPPORT_2003@MAIL.RU]). УСТАНОВИТЬ КОМПОНЕНТ НЕ МАГУ, БЛИН.

Mihey (2003-03-05 20:21:00) [4]
А ссылка во втором постинге для кого???????

Dimonich (2003-03-05 16:24:00) [5]
НИ ХРЕНА Я НЕ ПОЛУЧИЛ ! МЛЯ!

Mihey (2003-03-04 22:13:00) [6]
Судя по всему, с примерчиком он и получил.

Dimonich (2003-03-04 21:01:00) [7]
АХ, ДА, СПАСИБО БОЛЬШОЕ!!!!!!!!!!!!!

Dimonich (2003-03-04 20:58:00) [8]
НАРОД Я Ж ЛАМЕР ТУПОРЫЛЫЙ МНЕ НАДО ПОДРОБНО И С ПРИМЕРЧИКОМ
ПОЖАЛСТА!!!!!!!!!!!!!!!!!!!!!!!1

Mihey (2003-03-04 20:17:00) [9]
В составе того пакета Bass есть компонент, в котором в качестве бегунка можно использовтаь изображения и двигание уже реализовано.

Avenger [NhT] (2003-03-04 12:50:00) [10]
делай имедж загрузи в него нужную картинеку
это и будет его вид
а двигай изменяя свойство Left

вот и все....

~Mr.L@g~ (2003-03-03 22:03:00) [11]
Попробуй TProgressBar. У него есть свойства MouseDown, MouseMove, MouseUp. Останавливаешь воспроизведение при MouseDown,перематываешь при MouseMove, опять запускаешь при MouseUp.

Mihey (2003-03-03 20:21:00) [12]
Узнаёшь длину музыкального файла и количество интервалось в обычном TSlideBar. Высчитываешь, сколько процентов от файла проиграло и выставляешь значение на этом TSlideBar. Если делаешь понтовый плеер, то замени SlideBar на другой компонент. Пример плеера есть в TBassPlayer:

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »