Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.06;
Скачать: CL | DM;

Вниз

PlayList с помощью ListBox а   Найти похожие ветки 

 
Maxim_82   (2006-06-22 10:38) [0]

Подскажите как при двойном нажатии по ListBox"у шрифт строки изменился на другой. (как в плэйлисте)


 
antonn ©   (2006-06-22 15:46) [1]

можно отрисовывать в 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.Color:=clred else
  ListBox1.Canvas.Font.Color:=clblack;
ListBox1.Canvas.TextOut(rect.Left,rect.Top,ListBox1.Items.Strings[index]);
end;


 
Maxim_82   (2006-06-23 04:51) [2]

да это работает но вот при воспроизведении следующего файла, предыдущий не меняет цвет на исходный ....


 
antonn ©   (2006-06-23 05:57) [3]

Maxim_82   (23.06.06 4:51) [2]
потому что итем, на который щелкнули, и итем, с которого осуществляется проигрывание - разные вещи...
как они связаны?



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

Текущий архив: 2006.08.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
1-1151042414
Shlomo
2006-06-23 10:00
2006.08.06
Delphi 2005 и Quick Report?


15-1152426673
Мефисто
2006-07-09 10:31
2006.08.06
SHAppBarMessage(ABM_SETSTATE, pabd) - занчение константы :(


3-1149152464
RomanH
2006-06-01 13:01
2006.08.06
Параметризированные запросы IBQuery


15-1152777756
dera
2006-07-13 12:02
2006.08.06
Как с помощью команды DIR просмотреть ВСЕ файлы и каталоги...


15-1152614987
Александр Иванов
2006-07-11 14:49
2006.08.06
Без коментариев