| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Плей лист и время [D7, WinXP]

Ильдар ©   (2006-07-10 16:11:00) 

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

---

BadTester   (2006-07-26 14:31:00) [1]

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

---

antonn   (2006-07-26 14:03:00) [2]

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

---

BadTester   (2006-07-26 13:54:00) [3]

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

---

BadTester   (2006-07-26 13:23:00) [4]

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

---

@!!ex   (2006-07-16 00:48:00) [5]

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

<Цитата>

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

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

---

grouzd)ev   (2006-07-13 15:35:00) [6]

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

---

В   (2006-07-13 15:18:00) [7]

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

---

antonn   (2006-07-11 05:31:00) [8]

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

---

Ильдар   (2006-07-10 21:43:00) [9]

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

---

antonn   (2006-07-10 16:58:00) [10]

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

---

Ильдар   (2006-07-10 16:54:00) [11]

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

---

antonn   (2006-07-10 16:44:00) [12]

может "как отобразить в 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')

---

Наверх