
12.12.2012, 01:36
|
 |
.
|
|
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
|
|
Где-то напутал.
Код:
procedure TForm_player.PlayBarMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
// устанавливаем позицию воспроизведения трека
PlayBar.Position := Round(PlayBar.Max / PlayBar.Width * X);
BASS_ChannelSetPosition(Channel, BASS_ChannelSeconds2Bytes(Channel, PlayBar.Position), BASS_POS_BYTE);
end;
|