Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.03.2010, 01:26   #21
.Phoenix
Форумчанин
 
Регистрация: 02.04.2009
Сообщений: 235
По умолчанию

Какую картинку? Я так понимаю в Background(больше никуда не вставишь картинку там) надо что-то залить, а именно какая картинка?
Ein momente! Я не все свойства просмотрел! Thumbler!
Есть один вопрос, при управлении музыкой, он работает также как и ScrolBar или остались теже минусы с тормозами как и в TrackBar?
Всё гениальное - просто!

Последний раз редактировалось .Phoenix; 24.03.2010 в 01:35.
.Phoenix вне форума Ответить с цитированием
Старый 24.03.2010, 01:31   #22
ZuBy
Участник клуба
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Сообщений: 1,234
По умолчанию

картинки вставляй любые)
_Backgroung - это фон компонента
_Thumbler - это ползунок
ZuBy вне форума Ответить с цитированием
Старый 24.03.2010, 01:41   #23
ZuBy
Участник клуба
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Сообщений: 1,234
По умолчанию

нет, он как раз сделан правильно.

var
IsTrackSlide: boolean = false; // глобальная переменная

это на таймере напиши:
Код:
 if  (not IsTrackSlide) and (not ZMTrackBar1._MouseDown) then
  ZMTrackBar1._Position := BASS_ChannelGetPosition(mCh, BASS_POS_BYTE);
в OnPositionChange компонента напиши:
Код:
  IsTrackSlide := false;
  BASS_ChannelSetPosition(mCh, Position, BASS_POS_BYTE);
в OnSeekPosition компонента напиши:
Код:
IsTrackSlide := true;
ZuBy вне форума Ответить с цитированием
Старый 24.03.2010, 11:45   #24
.Phoenix
Форумчанин
 
Регистрация: 02.04.2009
Сообщений: 235
По умолчанию

с событиями Timer и PositionChange всё ясно, а для чего onSeek?
Всё гениальное - просто!
.Phoenix вне форума Ответить с цитированием
Старый 24.03.2010, 12:21   #25
ZuBy
Участник клуба
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Сообщений: 1,234
По умолчанию

ну это сделано во избежания заикания музыки(тормозов).
OnSeek событие возникает только тогда когда юзер меняет позицию
OnPositionChange при отпускании ЛКМ.

И тем самым мы можем крутить ползунок и не мешать воспроизведению трека.


а кстати, MAX значение нужно делать так
Код:
ZMTrackBar1._Max :=  BASS_ChannelGetLength(mCh, BASS_POS_BYTE) div 1000;
в таймере изменить:
Код:
 if  (not IsTrackSlide) and (not ZMTrackBar1._MouseDown) then
  ZMTrackBar1._Position := BASS_ChannelGetPosition(mCh, BASS_POS_BYTE) div 1000;
в OnPositionChange
Код:
 IsTrackSlide := false;
 BASS_ChannelSetPosition(mCh, Position, BASS_POS_BYTE) * 1000;

Последний раз редактировалось ZuBy; 24.03.2010 в 12:25.
ZuBy вне форума Ответить с цитированием
Старый 24.03.2010, 13:36   #26
.Phoenix
Форумчанин
 
Регистрация: 02.04.2009
Сообщений: 235
По умолчанию

Теперь кое что прояснилось. Осталось только сам смысл всего кода понять компонента, а то вставил спустя рукава и и просто немного изменил код в своей проге.
Всё гениальное - просто!
.Phoenix вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Фоновая музыка при создании формы JNLYSk Мультимедиа в Delphi 3 13.09.2009 20:08
Спор!!! Sk!f Свободное общение 1 02.06.2009 18:41
Серьезный спор по IP Wenders Свободное общение 0 15.04.2009 04:54
Музыка при сообщениях delphin100 Мультимедиа в Delphi 7 08.05.2008 15:21