| xaramamburu | Дата: Вторник, 24.09.2013, 21:48 | Сообщение # 16 |
|
Полковник
Группа: Администраторы
Сообщений: 240
Статус: Offline
| Vlad, какой компонент? Здесь речь идет о компоненте ListBox (плейлист) и он на форме уже есть. В инспекторе объектов выбирайте вкладку Events и запихивайте код из ссылки выше на событие OnDrawItem.)))
|
| |
| |
| Vlad | Дата: Среда, 25.09.2013, 21:30 | Сообщение # 17 |
|
Лейтенант
Группа: Пользователи
Сообщений: 57
Статус: Offline
| настройки теперь сохраняются в ини файле, но когда я запускаю приложение, хочу воспроизвести музыку, он выдает "файл не существует". сравнил с кодом исходника, все совпадает.
|
| |
| |
| xaramamburu | Дата: Среда, 25.09.2013, 21:57 | Сообщение # 18 |
|
Полковник
Группа: Администраторы
Сообщений: 240
Статус: Offline
| Дак в исходнике то все работает, а у вас нет. Значит не все совпадает. 
Смотрите INI файл и что он там у вас сохраняет. Там должны быть прописаны пути до файлов как то так:
[PlayList]file1=C:\Users\Public\Music\Sample Music\Новая папка\Kalimba.mp3
file2=C:\Users\Public\Music\Sample Music\Новая папка\Maid with the Flaxen Hair.mp3
file3=D:\Фильмы\Elvin i burunduki 3 (2011).360.mp4
если у вас только одни имена файлов:
[PlayList]file1=Kalimba.mp3
file2=Maid with the Flaxen Hair.mp3
file3=Elvin i burunduki 3 (2011).360.mp4
значит вы опять где то на косячили. Ищите где он их обрезает. Что то тип ExtractFileName(FileName).))))
|
| |
| |
| Vlad | Дата: Четверг, 10.10.2013, 21:55 | Сообщение # 19 |
|
Лейтенант
Группа: Пользователи
Сообщений: 57
Статус: Offline
| чтобы изменить позицию трекбара или прокрутить листбокс, нужно по ним кликнуть, а можно делать это все при наведении курсора?
|
| |
| |
| xaramamburu | Дата: Суббота, 12.10.2013, 20:43 | Сообщение # 20 |
|
Полковник
Группа: Администраторы
Сообщений: 240
Статус: Offline
| Добавьте компонент таймер, установите свойство Interval->300 и по вешайте на событие OnTimer следующий код:
Кодprocedure TForm1.Timer1Timer(Sender: TObject);
var p:TPoint;
hwnd: THandle;
begin
GetCursorPos(p);
hwnd := WindowFromPoint(p);
if hwnd = TrackBar1.Handle then TrackBar1.SetFocus;
if hwnd = TrackBar2.Handle then TrackBar2.SetFocus;
if hwnd = ListBox1.Handle then ListBox1.SetFocus;
// и т.д. проверяйте все остальные TrackBar и другие компоненты,
// которые должны получать фокус при наведении мыши
end;
Должно работать.))))
|
| |
| |
| Vlad | Дата: Суббота, 12.10.2013, 21:49 | Сообщение # 21 |
|
Лейтенант
Группа: Пользователи
Сообщений: 57
Статус: Offline
| спасибо, работает)))
|
| |
| |
