Главная страница
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.031 c
3-1149175290
Still Swamp
2006-06-01 19:21
2006.08.06
Как в IBStoredProc1 сделать Open?


2-1153462397
Svetok
2006-07-21 10:13
2006.08.06
MySQL


2-1152877503
yon
2006-07-14 15:45
2006.08.06
Hexadecimal


2-1153305625
Дева
2006-07-19 14:40
2006.08.06
Fireberd


3-1149057311
Kolmax
2006-05-31 10:35
2006.08.06
Импорт данных