Плейлист для Mediaplayer

[Dock1100]

Подскажите компонент для плейлиста в MediaPlayer.
что то вроде того как на рисунке

где

1: Папка в которой расположены треки
2: Проигрываемый трек
3:Выделений трек
4:Остольные треки в списке


То есть главное что б отображалась сторока в которую были помешени две строки

 

[vital]

эээммм.. TListView?
ПС. НАФИГА ТАКАЯ БОЛЬШАЯ КАРТИНКА? Слабо было в jpg сохранить?

 

[Dock1100]

ПС. НАФИГА ТАКАЯ БОЛЬШАЯ КАРТИНКА? Слабо было в jpg сохранить?

Уже исправил.

А как можна ListView сделать более красивым?

 

[vital]

А как можна ListView сделать более красивым?

Сделать его наследника, в котором внешний вид отрисовывать самостоятельно.
Или не парить себе мозг, и использовать готовые.. те же

Ссылка скрыта от гостей

 

[Dock1100]

Нашол достаточно хороший компонент для плейлиста:

Ссылка скрыта от гостей

(хоть скрин и не очень но его можна легко настроить и сделать очень красивым, прост в роботе, поддерживает Imagelist);
На етом сайте есть достаточно мноко красивых компонентов :what?:

 

[vital]

настроить и сделать очень красивым

ы.. В компенент интегрировано свойтво фен.шуй.start(); ?=)

 

[Dock1100]

В компенент интегрировано свойтво фен.шуй.start();

Не понял :what?:
Если по норамальному то че оно делает?

 

[Dock1100]

Порыскав на том сайте нашёл ёше красивей

Ссылка скрыта от гостей

 

[Dock1100]

Может кто знает как поменять scrollbar в listbox (изменить картинки)

 

[vital]

Поверх нарисовать.

+1
Canvas никто не отменял=)

 

[Dock1100]

Поверх нарисовать.

А где рисовать Tick , фон прокрутки, стрелочки?

 

[Guest]

Тоже самое можно с обычным Листбоксом сделать!
Рисуй в DrawItem - и будет тебе счастье!

 

[Dock1100]

А где рисовать Tick , фон прокрутки, стрелочки?

Вернее как рисовать(определить позицыю, наведен курсор или нет?)

 

[Guest]

Ну вот маленький пример!

procedure TForm1.ListDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
with List.canvas do
begin
if (State = [odFocused, odSelected]) or (State = [odSelected]) then
begin
Font.Color := clBlack;
font.Name:='arial';
Font.Size := 8;
Pen.Color := clBlack;
pen.Style := psInsideFrame;
Brush.Style := bsClear;
SetBkMode(list.Handle, Transparent);
TextOut(Rect.Left + 2, Rect.Top, 'текст который нужно вывести.......'); 
end;

 

[Dock1100]

Ну вот маленький пример!

Наскоко я понял то вы отрисовуете только содержымое(Ето я уже сделал) а не скролбар.