Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

icq: 482-612-193
skype: skype_08rus
По умолчанию

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

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

картинки вставляй любые)
_Backgroung - это фон компонента
_Thumbler - это ползунок
__________________
бложик FMX Developer'a
ZuBy вне форума   Ответить с цитированием
Старый 24.03.2010, 02:41   #23
ZuBy
Профессионал
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Адрес: Казахстан, Астана
Сообщений: 1,232
Репутация: 379
По умолчанию

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

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;

__________________
бложик FMX Developer'a
ZuBy вне форума   Ответить с цитированием
Старый 24.03.2010, 12:45   #24
.Phoenix
Форумчанин
 
Регистрация: 02.04.2009
Сообщений: 235
Репутация: 24

icq: 482-612-193
skype: skype_08rus
По умолчанию

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

ну это сделано во избежания заикания музыки(тормозов).
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;

__________________
бложик FMX Developer'a

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

icq: 482-612-193
skype: skype_08rus
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Фоновая музыка при создании формы 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


10:03.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru