Плей лист и время

← →
Ильдар (2006-07-10 16:11) [0]

Как загрузить песни в ListBox со временем.

← →
antonn © (2006-07-10 16:44) [1]

может "как отобразить в Listbox"e текст слева и справа?"
воспользоваться OnDrawItem.
Примерчик:
выставать св-во LIstbox"а Style:=lbOwnerDrawFixed;

function _GetTitle(s:string):string; begin if pos("||",s)>0 then result:=copy(s,1,pos("||",s)-1) else result:=s; end; function _GetTime(s:string):string; begin if pos("||",s)>0 then result:=copy(s,pos("||",s)+2,length(s)-(pos("||",s)+2)+1) else result:=""; end; procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var s:string; begin with ListBox1.canvas do begin fillrect(rect); textout( rect.Left,rect.Top, _GetTitle(ListBox1.Items.Strings[Index]) ); s:=_GetTime(ListBox1.Items.Strings[Index]); textout( rect.Right-TextWidth(s),rect.Top, s ); end; end;

в listbox1.items добавлять строки вида "название||время" (например, "Вася Пупкин Unlimited||03:45")

← →
Ильдар (2006-07-10 16:54) [2]

Большое спасибо.

← →
antonn © (2006-07-10 16:58) [3]

кстати, автоматическая нумерация:
textout( rect.Left,rect.Top, inttostr(index+1)+". "+_GetTitle(ListBox1.Items.Strings[Index]) );

← →
Ильдар (2006-07-10 21:43) [4]

Кстати а не знаешь как зделать чтобы при запуске песни она появлялась в плей листе моего плеера.

← →
antonn © (2006-07-11 05:31) [5]

проассоциировать приложение с этим типом файлов.
при запуске путь/имя файла будут в качестве параметра запуска программы, достать его можно с помощью paramstr(1) (1 и выше, если их несколько, лучше в справке глянуть)

← →
В (2006-07-13 15:18) [6]

Удалено модератором

← →
grouzd)ev © (2006-07-13 15:35) [7]

Удалено модератором

← →
@!!ex © (2006-07-16 00:48) [8]

Ильдар (10.07.06 21:43) [4]
Кстати а не знаешь как зделать чтобы при запуске песни она появлялась в плей листе моего плеера.

<Цитата>

--------------------------------------------------------------------------------
antonn © (11.07.06 05:31) [5]
проассоциировать приложение с этим типом файлов.
при запуске путь/имя файла будут в качестве параметра запуска программы, достать его можно с помощью paramstr(1) (1 и выше, если их несколько, лучше в справке глянуть)

Стоит еще учитывать вариант действий, если плеер уже запущен.......

← →
BadTester (2006-07-26 13:23) [9]

А как добавлять в плей лист файлы с помощью OpenDialog? Конкретно для этого примера.

← →
BadTester (2006-07-26 13:54) [10]

И собственно папки тоже. Подскажите плиз....

BadTester (26.07.06 13:23) [9]
при выборе файлов в OpenDialog, все выбранные файлы находятся в OpenDialog.files (Tstrings), а последний выбранный в OpenDialog.filename.
Проверить, не нажали ли в OpenDialog кнопочку "Отмена" можно с помощью OpenDialog.Execute

← →
BadTester (2006-07-26 14:31) [12]

А пример можно?

Плей лист и время Найти похожие ветки