Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.08.27;
Скачать: [xml.tar.bz2];

Вниз

смена строк в 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]
>
> Объясните, пожалуйста, по-подробнее...
>

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


 
Footballer ©   (2006-08-06 01:53) [16]


> Стив Балмер   (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;

...Ничего не выходит...
Проблема в том, что при прокрутке листбокса текст стирается :(


 
Германн ©   (2006-08-06 02:17) [17]

А справку ты читал - 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.?


 
Германн ©   (2006-08-06 02:20) [18]


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

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


 
Footballer ©   (2006-08-06 02:21) [19]


> Германн ©   (06.08.06 02:17) [17]

А если не OnDrawItem, то как?
Или я чего-то не догоняю?
Можно код?


 
Германн ©   (2006-08-06 02:24) [20]


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

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


 
Footballer ©   (2006-08-06 02:42) [21]


> Можно код?


 
antonn ©   (2006-08-06 05:36) [22]

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.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.08.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.49 MB
Время: 0.042 c
3-1150754694
YuraKiller2
2006-06-20 02:04
2006.08.27
Работа с удалённой базой


15-1154271463
antonn
2006-07-30 18:57
2006.08.27
Комментарии модератора


15-1154381487
Yura32
2006-08-01 01:31
2006.08.27
SQL script


15-1151261024
VirEx
2006-06-25 22:43
2006.08.27
JDMClient


2-1154962343
ArtemESC
2006-08-07 18:52
2006.08.27
Не найдеться ли у кого функция,





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский