мр3 проигрователь с использыванием bass

[blackstersl]

для бугущей строки можно было восспользоватся поиском!
http://programmersforum.ru/showthread.php?t=27889
http://programmersforum.ru/showthread.php?t=39180

а таймер в demo версии проигрователя нормальный! чем тебе не нравится?

[Vladya]

Сообщение от blackstersl

для бугущей строки можно было восспользоватся поиском!

а еще можно было установить набор компонентов Raize, кинуть на форму компонент RzMarqueeStatus и дело в шляпе, все что нужно это заполнить поле capture, выбрать скорость движения текста, и направление (влево или вправо)

[Spaik]

Сообщение от blackstersl

для второго пишешь в таймере:

if bassplayer1.Position < bassplayer1.PlayLength then
exit;
  if ListBox1.ItemIndex < ListBox1.Count - 1 then
  begin
   ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
     bassplayer1.Open(listbox1.Items[listbox1.itemindex]);
     files;
   bassplayer1.Play;
  end;

для того что бы убрать путь в listbox-e пропиши:

listbox1.items.add(exstractfilename(opendialog1.filename));

Так вроде меняется но через каждую 1сек... не могу понять почему так о.о

Пути убрались, но сработало только при добавлении по одному файлу, как сделать тоже самое при добавлении папки ... + у меня есть drag'and'drop тоже хотелось бы после перетаскивания убрать эти пути =(
p.s. за кнопочки переключения дорожек спасибо

[blackstersl]

Так вроде меняется но через каждую 1сек... не могу понять почему так о.о

У меня всеё переключает нормально!!!
А для того чтобы убрать со всех нужно:

...
var
i:integer;
begin
opendialog1.Options := opendialog1.Options + [ofallowmultiselect];
if opendialog1.Execute then
for i:= 0 to opendialog1.Files.Count - 1 do
begin
ListBox1.Items.Add(extractfilename(opendialog1.Files.Strings[i]));
end;

[Spaik]

Так, разобрался почти со всем, теперь объясните мне как добавлять в листбокс целую папку чтобы потом в этом же листбоксе не отображались пути до файлов.
p.s. я использую bass без bassplayer...