|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Dmitry_DM (25.11.2012)
|
#17
|
|||
|
|||
Цитата:
|
#18
|
||||
|
||||
Меня для таких целей PaintBox также больше устраивает, меньше проблем с мерцанием.
Кнопка стоит в фокусе вот и срабатывает на пробел, можно подправить Код:
VK_SPACE : begin case Active of BASS_ACTIVE_PAUSED : begin BASS_ChannelPlay(ChanPlay, False); Caption := 'BASS spectrum analyser'; end; BASS_ACTIVE_PLAYING : begin BASS_ChannelPause(ChanPlay); Caption := 'BASS spectrum analyser - PAUSED'; end; end; Key := 0; end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Dmitry_DM (25.11.2012)
|
#19
|
|||
|
|||
Цитата:
|
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Dmitry_DM (26.11.2012)
|
#21
|
|||
|
|||
Цитата:
|
#22
|
||||
|
||||
Просто плэйлистом я не занимался.
Искажения звука при "пауза\воспроизведение" у меня не замечалось. Остальное гляну. И судя по выложенному вами коду, 1600 строк можно прилично ужать. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#23
|
|||
|
|||
Цитата:
Код:
procedure TForm_player.ListBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_DELETE then begin ListBox1.Items.Delete(SongNumber); end; end; Цитата:
Цитата:
|
#24
|
||||
|
||||
Цитата:
Обновил вложение. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 27.11.2012 в 21:59. |
#25
|
||||
|
||||
Смотреть выше.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Dmitry_DM (28.11.2012)
|
#26
|
|||
|
|||
Цитата:
|
#27
|
||||
|
||||
Искажения происходили из-за того, что постоянно делался вызов
Код:
// настройка эквалайзера for I := 1 to 10 do fx[i] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1); // канал эквалайзера // настройка каналов эквалайзера for I := 1 to 10 do begin tb := TTrackBar(FindComponent('tbEqualizer' + IntToStr(I))); p.fGain := 15 - tb.Position; // усиление p.fBandwidth := 3; // ширина полосы пропускания p.fCenter := Freq[tb.Tag]; // частота регулирования BASS_FXSetParameters(fx[tb.Tag], @p); // применение заданных настроек end; Нужно ещё доделать корректную загрузку новых файлов, чтобы не было дубликатов. И не плохо бы подключить чтение внутренней инфы файлов. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#28
|
|||
|
|||
Цитата:
|
#29
|
||||
|
||||
Цитата:
На всё время не хватает (приспичило перевести DOS-графику на Дельфи). Ну какой там может быть подвох, обычные TrackBar-ы. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 28.11.2012 в 23:47. |
#30
|
||||
|
||||
После долгого перерыва вернулся к программе. Если ещё актуально, выложу исходный код.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Dmitry_DM (14.12.2012)
|