![]() |
|
#1
|
||||
|
||||
![]() У меня следующая проблема.В моем плеере (TMediaPlayer) я использую перемотчик с помощью Trackbar.
Вот мой код: procedure TMPGrand.TrackBar2Change(Sender: TObject); begin MediaPlayer1.Position := TrackBar2.Position; MediaPlayer1.Play; end; ///////////////////////////////////////////////// procedure TMPGrand.Timer2Timer(Sender: TObject); begin Trackbar2.Position:=MediaPlayer1.Position; end; Всё отлично ходит и перематывает но...Через каждую секунду медиаплеер тащит за собой TrackBar. НО при этом происходит заикание!Пробовал изминить значение Timer.Interval на 3000. А ТОЛКУ!Теперь заикается через 3 секунды!Дайте пожалуста хороший код! ![]() |
#2
|
||||
|
||||
![]() Естественно будет заикание, ты ведь заставляешь MediaPlayer начинать воспроизведение при каждом изменении позиции TrackBar'а. А MediaPlayer.Play нужно вызывать только тогда, когда ты вручную изменил позицию TrackBar'а. Тут подошло бы событие OnMouseUp, но вот беда, у стандартного TrackBar'а его нет. Выход - создать свой компонент, наследник TrackBar, и определить в нем событие OnMouseUp. Тогда нужный тебе код будет выглядеть так:
Код:
procedure TForm1.TrackBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin MediaPlayer1.Position := TrackBar1.Position; MediaPlayer1.Play; end; Можешь воспользоваться моим компонентом, в котором добавлено несколько событий для мыши, в том числе и OnMouseUp - http://decoding.narod.ru/download/my...tetrackbar.zip. |
#3
|
||||
|
||||
![]() Спасибо тебе большое!Слушай а где есть редактор объектов?
![]() |
#4
|
||||
|
||||
![]() О каких объектах идет речь? Может тебе подойдет Tools -> Image Editor...
|
#5
|
||||
|
||||
![]() Слушай у тебя на сайте есть компонент xitrackbar.zip но у него событие только OnChange!Ты не мог бы сделать ему OnMouseUp!
|
#6
|
||||
|
||||
![]() |
#7
|
||||
|
||||
![]() Спасибо!:d
///////////////////////////////////////// У меня небольшая проблема!Мне нужно чтобы на TLabel отображалось скоко клилобит в секунду данный файл!(TMediaPlayer)! Последний раз редактировалось Artem28, 09.08.2006 в 22:02. |
#8
|
|||
|
|||
![]() Цитата:
Огромная просьба! Я пользуюсь твоим XiTrackbar! Отличный компонентик. Но Вот проблемма в том что он не работает с VCLSkin -ом. Я копался копался и исходнике и смог только отключить настройку backColor но чтоб этот BackColor был прозрачным у меня не получается.. Я даже незнаю такую константу прозрачности. Есть все цвета в справочнике clWhite, clYellow и так далее но не прозрачности. пробовал Xitrackbar1.BackColor := form1.Color; Но не помогает, цвет скина не принимает. Принимает цвет формы. Поможешь как настроение будет?? ![]() Последний раз редактировалось Delphinic, 24.12.2006 в 15:17. |
#9
|
||||
|
||||
![]() Цитата:
Цитата:
Встречная просьба. Если возможно, поделись исходничками проги. Любопытно взглянуть на то, что получается, да и хочется получше разобраться с этой библиотекой (я с ней мало работал)... |
#10
|
|||
|
|||
![]() Знаешь я всего месяца как 2 программирую, тоесть с нуля можно сказать.
Мне если честно пока стыдно свои исходники кому либо давать. Если ты увидишь как там все написано ты тут же в обморок под стол упадешь.. :d Причем я это уже стал понимать и вижу все это безобразие. Но переписывать это мне уже очень неохото. Темболее это моя первая учебная можно так сказать прога. ![]() Если хочешь я пришлю свою прогу. Только вот туда доработаный трекбар воткну... Только крепче сиди когда в исходники залезешь. :d |
#11
|
||||
|
||||
![]() Договорились, жду (decoding@narod.ru)
|
#12
|
||||
|
||||
![]() Я много поработал над XiTrackBar, если не жадно поделись тоже исходником, могу помочь вообще исправить, если там действительно все так ужасно. Корочи смотри сам я просто попросил!
![]() |
#13
|
|||
|
|||
![]() К сожаленью XITrackBar не пошел у меня. Эти заморочки со скинами не дают его юзать. А без скинов очень все страшно смотрится.
Трекбар в таймере находится и поэтому перерисовывается постоянно. И почему то он прорисовывает фон старой формы не скиновой. Так что я его юзать так и не смог. Пришлось взять другой компонент. ![]() Надо видать компонент скинов изучать как оно работает... Я понял что этот компонент во всех стандартных компонентах дельфи подменяет фон на свой. |