powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Посоветуйте компонент, плейлист для музыки
36 сообщений из 36, показаны все 2 страниц
Посоветуйте компонент, плейлист для музыки
    #39858920
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Доброе время суток.
Хочется сделать нормальный плейлист в плеере..
ListBox не очень хочется юзать.., хочется чего то современного)
Например как в аимпе, с рейтингом(звездочки) и тд..


Есть компоненты такие?
Не могу подобрать правильные поисковые запросы, что бы найти что нужно..
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39858924
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
TListBox.Style = lbOwnerDraw.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39858927
ёёёёё
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Tech N9ne,

нет таких, придется руками работать.
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39858928
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Хотите как в AIMP - юзайте TAIMPPlaylistView
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39858930
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DimaBr,

а где найти этот TAIMPPlaylistView ?
в гугле нет, на офф сайте аима не могу найти
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39858939
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Tech N9neDimaBr,

а где найти этот TAIMPPlaylistView ?
в гугле нет, на офф сайте аима не могу найти

Разработчик AIMP сам его написал под свои нужды
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39858965
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dimitry SibiryakovTListBox.Style = lbOwnerDraw.

Там скорее какой-нибудь VTV с кастомной отрисовкой, т.к. секции.
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39858970
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подобное можно на TcxGrid за 10 минут сделать, с поддержкой скинов, DB, RatingControl и блэкджеком. Но в подобной ситуации я бы написал свое...
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39858986
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
white_niggerПодобное можно на TcxGrid за 10 минут сделать, с поддержкой скинов, DB, RatingControl и блэкджеком.
А можно какого-нибудь фрилансера нанять за половину стоимости DevExpress :)
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39859000
ёёёёё
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alekcvpwhite_niggerПодобное можно на TcxGrid за 10 минут сделать, с поддержкой скинов, DB, RatingControl и блэкджеком.
А можно ...
Да из чего угодно.
http://www.soft-gems.net/index.php/controls/virtual-treeview-gallery
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39859006
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да можно хоть в обычном гриде в каждой ячейке расставить список, картинки и говорилки. Кто сам говорильный интерпретёр писать будет? Или просто радио станции перещёлкивать?
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39859010
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я бы вообще все вручную отрисовал. На канве.
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39859014
ёёёёё
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreatЯ бы вообще все вручную отрисовал. На канве.
: Sijeunesse savait, si vieillesse pouvait
Си жюнесс савве, си вийесс пуве.
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39859022
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreatЯ бы вообще все вручную отрисовал. На канве.Что рисовать-то? Звуки? Ноты? Темпы?
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39859057
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GatorЯ бы вообще все вручную отрисовал. На канве.Что рисовать-то? Звуки? Ноты? Темпы?[/quot]
Найдется что рисовать. Если всерьез хочешь сделать красиво.

Например полосу прогресса проигрывателя. Значки, рамочки, и т.п.
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39859082
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не стоит забывать, что кроме самого рисования, плейлист ещё какой-никакой функционал поддерживать должен, сортировки группировки по альбомам, исполнителям, рейтингам, поиск комозиций, их реордеринг и т.д. и т.п... ТС потянет?
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39859131
ёёёёё
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
white_nigger... ТС потянет?

Да ведь ТС крут, как сам Че!



...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39859205
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Учитывая вложенность, скорее всего это VTV. Отрисовать несколько строчек вроде бы не должно составить труда
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39859979
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
white_niggerНе стоит забывать, что кроме самого рисования, плейлист ещё какой-никакой функционал поддерживать должен, сортировки группировки по альбомам, исполнителям, рейтингам, поиск комозиций, их реордеринг и т.д. и т.п... ТС потянет?
Тогда уж сделать танец под воиспроводимую музычку.
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39859994
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Tech N9ne,

есть такой компонент VirtualTreeView, вот посмотрите примеры, что из него люди творят: Virtual Treeview gallery

среди них попадается один типа как вы хотите


Smart Music Explorer




ну и если побаловаться с цветами и вставить в красивую рамку, вот что могло бы получиться (компоновка в редакторе Paint):
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860005
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Зачем тащить к себе в проект монструозный VirtualTreeView если все можно сделать на самом обычном ListBox?
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860008
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну вобщем тоже верно. Просто показал пример, как можно переосмыслить задание
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860018
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreatЗачем тащить к себе в проект монструозный VirtualTreeView если все можно сделать на самом обычном ListBox?
Ну не надо, VTV не JEDI, ничего монструозного там нет. При некотором кастомайзе вообще в один юнит умещается.
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860024
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Василий 2, но куда ж без альфы скинс? :)
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860038
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Василий 2Ну не надо, VTV не JEDI, ничего монструозного там нет. При некотором кастомайзе вообще в один юнит умещается.2 мега сорцов. Не монструозно, ага.
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860071
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreat2 мега сорцов. Не монструозно, ага.Да хоть 10! Главное чтоб шустро и безглючно работало
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860073
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
white_nigger,




Такой плейлист делается на пару страниц кода в базовом листбоксе.
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860075
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
procedure TForm10.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  CV : TCanvas;
  s  : string;
begin
  CV:=ListBox1.Canvas;

  CV.Brush.Color:=ListBox1.Color;
  CV.FillRect(Rect);

  CV.Font.Size:=8;
  CV.Font.Color:=clLtGray;
  CV.TextOut(Rect.Left+5,Rect.Top+2,ListBox1.Items[Index]);

  s:=StringReplace(Format('%2.0d:%2.0d',[random(15),random(60)]),' ','0',[rfReplaceAll]);
  CV.TextOut(Rect.Right-CV.TextWidth(s)-8,Rect.Top+2,s);

  if Index=ListBox1.ItemIndex then begin
    CV.Pen.Color:=$CCCCCC;
    CV.Pen.Style:=psSolid;
    CV.Rectangle(Rect.Left+3,Rect.Bottom-10,Rect.Right-55,Rect.Bottom-6);
    CV.Brush.Color:=clWhite;
    CV.FillRect(System.Classes.Rect(Rect.Left+4,Rect.Bottom-9,170,Rect.Bottom-6));
  end;

  CV.Font.Color:=$0000DFFF;
  CV.Brush.Style:=bsClear;
  CV.TextOut(Rect.Right-50,Rect.Top+14,StringOfChar('★',random(5)+1));


  CV.Pen.Color:=$777777;
  CV.Pen.Style:=psDot;
  CV.MoveTo(Rect.Left,Rect.Bottom-1);
  CV.LineTo(Rect.Right,Rect.Bottom-1);

  if odFocused in State then
   DrawFocusRect(CV.Handle,System.Classes.Rect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom));
end;



И всего-то.
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860076
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что-то я увлекся. :)

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
procedure TForm10.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  CV : TCanvas;
  s  : string;
begin
  CV:=ListBox1.Canvas;

  CV.Brush.Color:=$444444;
  CV.FillRect(Rect);

  CV.Font.Size:=8;
  CV.Font.Color:=$00E4E4E4;
  CV.TextOut(Rect.Left+5,Rect.Top+2,'Two Steps From Hell - '+ChangeFileExt(ListBox1.Items[Index],''));

  s:=StringReplace(Format('%2.0d:%2.0d',[random(15),random(60)]),' ','0',[rfReplaceAll]);
  CV.TextOut(Rect.Right-CV.TextWidth(s)-8,Rect.Top+2,s);

  if Index=ListBox1.ItemIndex then begin
    CV.Pen.Color:=$CCCCCC;
    CV.Pen.Style:=psSolid;
    CV.Rectangle(Rect.Left+3,Rect.Bottom-10,Rect.Right-55,Rect.Bottom-6);
    CV.Brush.Color:=clWhite;
    CV.FillRect(System.Classes.Rect(Rect.Left+4,Rect.Bottom-9,170,Rect.Bottom-6));
  end else begin
    CV.Font.Size:=7;
    CV.Font.Color:=$00007E91;
    CV.TextOut(Rect.Left+5,Rect.Top+16,copy(AnsiUpperCase(ExtractFileExt(ListBox1.Items[Index])),2,10)+' :: 44 kHz :: 320 kBit :: '+((random(50)+7)/10).ToString+' Mb.');
  end;

  CV.Font.Size:=8;
  CV.Font.Color:=$0000DFFF;
  CV.Brush.Style:=bsClear;
  CV.TextOut(Rect.Right-50,Rect.Top+14,StringOfChar('★',random(5)+1));


  CV.Pen.Color:=$777777;
  CV.Pen.Style:=psDot;
  CV.MoveTo(Rect.Left,Rect.Bottom-1);
  CV.LineTo(Rect.Right,Rect.Bottom-1);

  if odFocused in State then
   DrawFocusRect(CV.Handle,System.Classes.Rect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom));
end;

...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860180
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну, это ведь как бывает. Сначала захочется драгндроп, потом чтоб тысячи элементов мгновенно грузились, потом вложенность, потом еще какие-нибудь прибамбасы. В итоге приходишь к тому, что сам делаешь половину того, что уже сделано в VTV.
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860337
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Василий 2,

До сих пор обходился.
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860349
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
"тысячи элементов мгновенно грузились, потом вложенность," - это все элементарно реализуется без VTV.
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860350
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
и драгндроп тоже. :)
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860495
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вложенность со сворачиванием на листбоксе? Ну... снимаю шляпу тогда
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860501
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Василий 2,

Чего там сложного то?
1-й элемент - альбом
10 под ним - песни. С небольшим отступом слева.

Немного по разному отрисовываются.

В альбоме нарисовать треугольничек свернуто/развернуто. Обработать клик.

А рисовать песни или нет - копеечный вопрос.
...
Рейтинг: 0 / 0
Посоветуйте компонент, плейлист для музыки
    #39860744
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так еще хранить иерархию. Не, это не rocket science конечно, но имхо должна быть веская причина, чтобы заниматься подобным тюнингом
...
Рейтинг: 0 / 0
36 сообщений из 36, показаны все 2 страниц
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Посоветуйте компонент, плейлист для музыки
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]