смена строк в ListBox

← →
alexsashka (2006-08-06 00:09) [0]

Уважаемые мастера!Я как и некоторые здесь пытаюсь написать медиа проигрыватель,но возникли трудности в ListBox,перечень воспроизводимых файлов хранится там,но проблема с переходом на следующий воспроизводимый трэк! Как перейти на следующую строку из ListBox.....помогите бедному студенту!

← →
GeLLeR © (2006-08-06 00:16) [1]

если на tmediaplayer то

mediaplayer1.filename:= listbox1.items.strings[listbox1.itemindex+1];
mediaplayer1.open;
mediaplayer1.play;

← →
GeLLeR © (2006-08-06 00:17) [2]

если на tbassplayer то

mediaplayer1.open(listbox1.items.strings[listbox1.itemindex+1]);
mediaplayer1.play;

← →
GeLLeR © (2006-08-06 00:18) [3]

Извеняюсь. Всё это в таймере

if mediaplayer1.position=mediaplayer1.length then
...

← →
Footballer © (2006-08-06 00:29) [4]

А вообще TMediaplayer много ресурсов жрёт, если надо тока музыку без видео, то лучше используй TBassplayer, меньше ресурсов тратит, да и возможностей больше

← →
GeLLeR © (2006-08-06 00:30) [5]

Да я ваще не знаю зачем TMediaPlayer написали такое ... (цензура)
BassPlayer РУЛИТ!!!!

← →
Footballer © (2006-08-06 00:40) [6]

> BassPlayer РУЛИТ!!!!

Жаль что видио через него не посмотришь... :(

Да, и к теме про плейлисты (да и автору, кстати, тоже в дальнейшем может пригодится), как в строке TListbox можно строку сделать жирной или изменить её цвет. Знаю, что это связано с Canvas, но не знаю что именно...

← →
GeLLeR © (2006-08-06 00:42) [7]

> если надо тока музыку без видео,

А если надо видео, то
1) Скачать компонент подходящий
2) (Противоречу себе) На время проигрывания видео создавать медиаплеер
а потом удалять его за ненадобностью

← →
GeLLeR © (2006-08-06 00:44) [8]

Вот зацени:
http://slil.ru/22980004

← →
Германн © (2006-08-06 00:49) [9]

> Да, и к теме про плейлисты (да и автору, кстати, тоже в
> дальнейшем может пригодится), как в строке TListbox можно
> строку сделать жирной или изменить её цвет.

Изменить свойства Canvas.Pen.Font.Style или Canvas.Brush.Color или Canvas.Pen.Font.Color. Но делать это нужно в событии OnDrawxxxx! "xxxx" в последнем для тех, которые интересуются особой отрисовкой не только в TListBox, но в ряде других "многострочных" компонентах.

← →
Footballer © (2006-08-06 00:53) [10]

> Вот зацени:
> http://slil.ru/22980004

Ха... Я узнаю свой плеер ;-)
Правда он ещё не доделан и глюки можно найти...

← →
GeLLeR © (2006-08-06 00:55) [11]

> Ха... Я узнаю свой плеер ;-)

Наш плеер...

← →
Footballer © (2006-08-06 00:58) [12]

> GeLLeR ©

Оба-на, а я тебя узнал, зайди-ка в чат, плизз

← →
GeLLeR © (2006-08-06 01:11) [13]

> помогите бедному студенту!

А ты оказывается студент....
Хм.....

← →
Стив Балмер (2006-08-06 01:38) [14]

> Германн © (06.08.06 00:49) [9]

Объясните, пожалуйста, по-подробнее...

← →
Германн © (2006-08-06 01:43) [15]

> Стив Балмер (06.08.06 01:38) [14]
>
>
> > Германн © (06.08.06 00:49) [9]
>
> Объясните, пожалуйста, по-подробнее...
>

Что именно нужно объяснить?

> Стив Балмер (06.08.06 01:38) [14]

Ой, это я ник забыл сменить ;)

> Что именно нужно объяснить?

Не могу понять, как всё-таки осуществить [6]
Пробовол так:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin listbox1.Canvas.Pen.Color:=clRed; ListBox1.Canvas.TextOut(0,ListBox1.ItemIndex*13,ListBox1.Items.Strings[ListBox1. itemindex]); end;
...Ничего не выходит...
Проблема в том, что при прокрутке листбокса текст стирается :(

А справку ты читал - Use OnDrawItem to write a handler for drawing of the items in list boxes with the Style values lbOwnerDrawFixed, lbOwnerDrawVariable, or lbVirtualOwnerDraw. OnDrawItem occurs when the list box needs to display an item. OnDrawItem occurs only for owner-draw list boxes.?

> Проблема в том, что при прокрутке листбокса текст стирается
> :(

Ну тогда и ещё вопрос. Какие критерии используются для определения "параметров отрисовки"?

> А если не OnDrawItem, то как?

То ещё сложнее!

> Можно код?

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin ListBox1.Canvas.FillRect(rect); if ListBox1.ItemIndex=index then ListBox1.Canvas.Font.Style:=[fsbold] else ListBox1.Canvas.Font.Style:=[]; ListBox1.Canvas.TextOut(rect.Left,rect.Top,ListBox1.Items.Strings[index]); end;
+включить св-во Style.

смена строк в ListBox Найти похожие ветки