Плей-лист

← →
Kair. (2004-10-29 07:23) [0]

Какие специфичные для плей-листов свойства и функции он должен иметь?

← →
antonn © (2004-10-29 13:07) [1]

Че-то я не понял. Плей-лист в виде файла или контрола?

← →
Jel © (2004-10-29 18:58) [2]

ИМХО добавить, удалить, упорядочить, перетасовать, загрузить, сохранить. Ну и варианты вроде добавить каталог, добавить диск и т.д.

← →
Никита © (2004-10-29 19:14) [3]

...

← →
Kair. (2004-10-30 08:32) [4]

Ну, вобщем, компонент сделал...
В нем есть:

1. Нумерация.
2. Показ/скрытие расширения.
3. П/с полного пути (показывается только имя файла).
4. Цвет выделенных строк.
5. Цвет шрифта выделенных строк.
6. Свойство для показа проигрываемой песни (шрифт устанавливается в определенный цвет).
7. Копирование файлов в плей-листе в определенную директорию.
8. Удаление из плей-листа не существующих файлов.
9. Загрузка файлов из директории. Только файлов с указанным расширением. С флагом, для указания смотеть ли также поддиректории.
10. Загрузка файлов плей-листа (m3u, pls, tpl - просто стринг лист).

Что-нибудь еще надо добавить?

← →
antonn © (2004-10-30 13:25) [5]

> Kair. (30.10.04 08:32) [4]

А у меня еще теги сам читает, напротив имени время "играния", и перетаскивать элементы просто(як вынамп) да еше и с исп. Ctrl и Shift. Ну горячие клавиши, прием файлов из проводника...

← →
antonn © (2004-10-30 16:53) [6]

> 10. Загрузка файлов плей-листа (m3u, pls, tpl - просто стринг
> лист).

А у меня еще и сохраняет. В этих трех форматах. По выбору. Вот.
А еще колесо мышки чувствует.
Уже не знаю как выпендриться...

Вопросик: какой компонент в основе используешь?

← →
Kair © (2004-11-01 11:42) [7]

TListBox

:)

У меня тоже сохраняет. Забыл написать... Там еще что-то незначительное есть... Пара свойств...

← →
clampo © (2004-11-01 15:01) [8]

Kair если нетрудно скинь пожалуйста свой компонент на мыло
clampo@bk.ru
Заранее благодарен!!!

← →
Kair © (2004-11-02 09:15) [9]

Скачать: http://e-soft.forever.kz/lib/playlist.rar
Инфа: http://e-soft.forever.kz/lib/playlist.htm

to antonn:

Не подскажешь, как сделал приём файлов из проводника? А то у меня не получается в компоненте это сделать. Если при создании программы сделать, то все нормально, а вот в компоненте никак...
Типа если делать так

procedure FormCreate();
begin
DragAceptFiles(Form.Handle, True);
end;

то все нормально перетаскивается. А вот если сделать такое же для компонента

constructor Create();
begin
DragAcceptFiles(Handle, True);
end;

то не работает...

← →
[lamer]Barmaglot © (2004-11-02 10:49) [10]

WM_DropFiles?

← →
Kair © (2004-11-02 12:43) [11]

> [lamer]Barmaglot © (02.11.04 10:49) [10]
> WM_DropFiles?

Знаю. Не получается...

← →
[lamer]Barmaglot © (2004-11-02 13:35) [12]

Чего не получается? Код покажи...

← →
antonn © (2004-11-02 16:17) [13]

> Kair © (01.11.04 11:42) [7]
> TListBox

У тебя цвет select стандартный, виндовозный. Так? Это из бад...

Файлы принимал так(щас не так, нр это работает):
procedure TiPlayListAdv.WMDropFiles(var Message: TWMDropFiles);
var aFile: array [0..255] of Char;
FilesCount,N : Integer;
begin
inherited;
FilesCount := DragQueryFile(Message.drop, $FFFFFFFF, nil, 0); {так можно узнать сколько файлов перетягивается}
begin for N := 0 to FilesCount - 1 do begin DragQueryFile(Message.drop, N, aFile, 256);

AddFilePLAuto(aFile);//собственно добавление
end;
end;
DragFinish(Message.Drop);
end;

← →
Анонимщик © (2004-11-02 17:42) [14]

Какую же хрень вы делаете

← →
Kair. (2004-11-03 07:14) [15]

Так, вобщем переписал заново перетаскивание файлов из проводника - теперь работает.

> antonn © (02.11.04 16:17) [13]
>
> > Kair © (01.11.04 11:42) [7]
> > TListBox
>
>
> У тебя цвет select стандартный, виндовозный. Так? Это из
> бад...

Че там не так? Какая у тебя Винда, может из-за этого? Я тестил под Win2k. Свойство SelItemColor ставил?

> Анонимщик © (02.11.04 17:42) [14]
> Какую же хрень вы делаете

Какую хрень?

← →
Kair. (2004-11-03 08:33) [16]

to antonn: Вобщем проверил под Вин98 - работатет. Ты просто, наверное, инфу не читал...

А перетаскивание с использованием Ctrl и Shift это че такое?

← →
antonn © (2004-11-03 15:24) [17]

> А перетаскивание с использованием Ctrl и Shift это че такое?

Это когда с зажатым контролом (CTLR, multiselect) несколько строк перемещаются(соблюдая постоение(кор. смотри ВыньАмп))

А селект в ЛистБохе все равно рисуется виндой:(

← →
antonn © (2004-11-03 15:28) [18]

> Kair.

Про листбох: можешь поставить красное выделение без стран..ненужной рамки? Я не смог, поэтому создал свой контрол.

← →
clampo © (2004-11-03 23:11) [19]

Kair, что-то твой компонент не устанавлиавется. Требует
какой-то Playlist.pas ?

← →
Kair © (2004-11-04 08:09) [20]

> antonn © (03.11.04 15:28) [18]
>
> > Kair.
>
> Про листбох: можешь поставить красное выделение без стран..ненужной
> рамки?

Могу конечно:

CODE>
with PlayList1 do
begin
Style := lbOwnerDrawFixed; // чтобы свойства работали
SelItemColor := clRed; // цвет выделенного итема
ShowFocus := False; // чтобы рамка вокруг итема не рисовалась
end;<

P.S. Слово "стран.." я понимаю как "странной". Правильно понимаю?

> clampo © (03.11.04 23:11) [19]
> Kair, что-то твой компонент не устанавлиавется. Требует
> какой-то Playlist.pas ?

Посмотрю...

← →
Kair © (2004-11-05 20:28) [21]

> clampo © (03.11.04 23:11) [19]
> Kair, что-то твой компонент не устанавлиавется. Требует
> какой-то Playlist.pas ?

Оказывается дело в том, что компонент разрабатывался в Delphi 6. А у тя, скорее всего, Delphi 5. Поскольку именно в нем и возникает такое сообщение. И не только в этом проблема - в пятой версии у компонента-предка нет некоторых свойств и методов, а потому все-равно компилироваться не будет. Так что могу только посоветовать использовать Delphi шестой версии. Ну, или если что попробую переписать компонент для пятой Delphi.

← →
clampo © (2004-11-05 22:22) [22]

Нет у меня Delphi 7

Сделал компонент и для Delphi 5.

> clampo © (05.11.04 22:22) [22]
> Нет у меня Delphi 7

Хм, наверное и там чего-нибудь борландисты намутили для несовместимости версий.
Жаль вот Delphi 7 нет.

> antonn © (06.11.04 09:38) [23]
>
> > Kair © (05.11.04 20:28) [21]
>
> Ты ему DCU прислал?

Я ему компонент не посылал (у меня тогда возможности не было). Он, скорее всего, скачал его...

to antonn:

Как там со цветом выделенных итемов. Работает?
P.S. А у тебя, я так понимаю, проблем с таким сообщением нет...

> Kair Да я скачал его... Вышли, пожалуйста работающий(clampo@bk.ru)

> clampo © (06.11.04 22:20) [25]
> > Kair Да я скачал его... Вышли, пожалуйста работающий(clampo@bk.ru)

Для D5 и D6 рабочие.
Для D7 компонента нет.

Вышли на 6-ю

НЕКАТИТ

Хм... пойду сегодня на каких-нибудь других компах попробую установить...

Всё катит...

> НЕКАТИТ

> Всё катит...

может ему не нравится?

Плей-лист Найти похожие ветки