|
Разное
|
|
| Vlad | Дата: Понедельник, 23.12.2013, 21:02 | Сообщение # 46 |
|
Лейтенант
Группа: Пользователи
Сообщений: 57
Статус: Offline
| я нашел вот этот пример
Код procedure TForm_player.Timer6Timer(Sender: TObject);
var txt:string;
begin
txt:=sMemo1.Text;
sMemo1.Text:=copy(txt,2,length(txt)-1)+copy(txt,1,1);
end;
но там название соединяется само с собой (sMemo1sMemo1sMemo1) и выходит откуда-то, но не с краю
|
| |
| |
| xaramamburu | Дата: Вторник, 24.12.2013, 17:10 | Сообщение # 47 |
|
Полковник
Группа: Администраторы
Сообщений: 240
Статус: Offline
| Здесь просто так задумано. Добавьте пустую строку разделитель между концом и началом следующей надписи. sMemo1.Text:=copy(txt,2,length(txt)-1)+' '+copy(txt,1,1);
либо ищите другой вариант.))))
|
| |
| |
| Vlad | Дата: Вторник, 24.12.2013, 18:27 | Сообщение # 48 |
|
Лейтенант
Группа: Пользователи
Сообщений: 57
Статус: Offline
| тут есть более легкий путь, нужно вместо Memo использовать компонент TextMarquee (в комплект не входит, устанавливается отдельно), и нужно просто в процедуре Player написать TextMarquee1.Text:=ExtractFileName(filename); и в свойстве Active установить true. Все. Двигаться она будет сама с одного края до другого, можно даже двигать мышкой самому
|
| |
| |
| Praying | Дата: Четверг, 27.02.2014, 15:25 | Сообщение # 49 |
 Сержант
Группа: Пользователи
Сообщений: 20
Статус: Offline
| Vlad, ссылки где его скачать, не осталось случайно?
|
| |
| |
| Vlad | Дата: Четверг, 27.02.2014, 15:52 | Сообщение # 50 |
|
Лейтенант
Группа: Пользователи
Сообщений: 57
Статус: Offline
| Praying, я не помню где скачивал. дай электронку, отправлю архивом
|
| |
| |
| Praying | Дата: Четверг, 13.03.2014, 13:32 | Сообщение # 51 |
|
Сержант
Группа: Пользователи
Сообщений: 20
Статус: Offline
| Vlad, demon_koo@mail.ru
Заранее спасибо)Добавлено (13.03.2014, 13:32)
---------------------------------------------
Уважаемые форумчане, очень нужно реализовать в плеере редактор тэгов (ID3v1). Может быть кто то уже сталкивался с этим, и может подсказать? (Нашел пару исходников, отдельных программ, но не сильно разобрался...)
|
| |
| |
| Vlad | Дата: Пятница, 28.03.2014, 23:11 | Сообщение # 52 |
|
Лейтенант
Группа: Пользователи
Сообщений: 57
Статус: Offline
| Praying, ну как? у вас получилось? Добавлено (28.03.2014, 23:11)
---------------------------------------------
listbox не прокручивается при переключении треков
|
| |
| |
| Praying | Дата: Суббота, 05.04.2014, 14:11 | Сообщение # 53 |
|
Сержант
Группа: Пользователи
Сообщений: 20
Статус: Offline
| Vlad, Пока не пробовал. Воюю с редактором тегов и медиа библиотекой. Как дойдут руки отпишусь) Добавлено (04.04.2014, 09:43)
---------------------------------------------
Вопрос, кто нибудь работал с tags.dll? Можно ли через нее редактировать тэги? И если можно то как? Добавлено (05.04.2014, 14:11)
---------------------------------------------
Нашел код кнопки сохраняющей тэги из Edit-ов:
Но т.к. тут все завязанно на подключаемых библиотеках bass_simple, bass_simple_tag, bass_simple_fx ... сложновато для меня применить к урокам...
Может кто подсказать, как добиться положительного результата?
|
| |
| |
| Risk | Дата: Среда, 14.05.2014, 18:37 | Сообщение # 54 |
|
Рядовой
Группа: Пользователи
Сообщений: 2
Статус: Offline
| Добрый день, по урокам "Создания медиаплеера" многое понял, но хотелось большего.
Хотел сделать одну плюшку, но что-то она у меня не особо получается, думаю может кто поможет. В чем суть плюшки:
На форме есть 10 трэкбаров, то есть это и есть тот эквалайзер который я создавал по урокам, так вот, и есть у меня кривая линия, построенная по алгоритму Безье. Что я хочу сделать:
Когда ты двигаешь эту линию, вверх, вниз не важно, у тебя сопоставимо с кривой должны двигаться бегунки трэкбара и изменять частоту звука, ну или же наоборот, когда ты двигаешь бегунки трэкбара, двигается эта линия.
Вот никак не могу это осуществить, может кто знает - поможет?
|
| |
| |
| xaramamburu | Дата: Четверг, 15.05.2014, 21:54 | Сообщение # 55 |
|
Полковник
Группа: Администраторы
Сообщений: 240
Статус: Offline
| Risk,
Дели свою кривую на 10 зон, каждая зона будет соответствовать одному из трекбаров, а дальше по средней линии зоны вычисляй значение функции на кривой и переводи в позицию трекбара.)))
|
| |
| |
| Vlad | Дата: Четверг, 04.09.2014, 22:43 | Сообщение # 56 |
|
Лейтенант
Группа: Пользователи
Сообщений: 57
Статус: Offline
| Praying, я нашел его, вот ссылка http://www.cyberforum.ru/attachments/191354d1350381889 то, что я отправил тебе на почту, не работает, затерялся pas файл
Сообщение отредактировал Vlad - Четверг, 04.09.2014, 22:44 |
| |
| |
|
