[Amzi]

Здравствуйте,нужна помощь,сделал плеер на bass.dll приделал Trackbar (AdvTrackBar1 TMS Component Pack) в качестве перемотки ,проблема в следующем если прокрутить ползунок (к примеру больше чем на 1,45 сек) он пропадает и появляется на начальной позиции,песня же продолжает играть как решить проблему?

[NumLock]

Сообщение от Amzi

как решить проблему?

найти ошибку в программе. к примеру в WinAmp при перемещниии ползунка такого "эффекта" нет.

[sariman]

Сообщение от Amzi

Здравствуйте,нужна помощь,сделал плеер на bass.dll приделал Trackbar (AdvTrackBar1 TMS Component Pack) в качестве перемотки ,проблема в следующем если прокрутить ползунок (к примеру больше чем на 1,45 сек) он пропадает и появляется на начальной позиции,песня же продолжает играть как решить проблему?

Может это глюк в самом компоненте, а может и нет, скиньте код программы.

[Amzi]

procedure TForm_Player.Player;

Код:

1 2 3

//полоса проигрывания    AdvTrackBar1.Min:=0;   AdvTrackBar1.Max:=bass_ChannelGEtLength(Channel, 0) -1;

Код Trackbar-а
Событие на mouse down

Код:

1 2 3 4 5 6 7 8

var  p: real;  begin  if mode<>play then Exit;  p:=AdvTrackBar1.Max/advTrackBar1.Width;  AdvTrackBar1.Position:=round(x*p);  bass_ChannelSetPosition(Channel, AdvTrackBar1.Position, 0);  end;

Событие на Mouse move

Код:

1 2 3 4 5 6 7 8 9 10 11

var  p: real;  begin  if mode<>play then Exit;  if ssleft in shift then //если нажата левая кнопка мыши  begin  p:=AdvTrackBar1.Max/AdvTrackBar1.Width; AdvTrackBar1.Position:=round(x*p);  bass_ChannelSetPosition(Channel, AdvTrackBar1.Position, 0);  end;  end;

Событие на On Timer

Код:

1	AdvTrackBar1.Position:=bass_channelGetPosition(channel,0);

[sariman]

У меня на MouseDown:

Код:

1 2 3 4 5

if GetKeyState(1) shr 31 = 1 then begin   PlayBar.Position := Round(X * (PlayBar.Max / PlayBar.Width));   ProgressMouseDown := True end;

На MouseMove:

Код:

1 2 3

// Если была нажата левая клавиша мышки, то продолжаем if GetKeyState(1) shr 31 = 1 then   PlayBar.Position := Round(X * (PlayBar.Max / PlayBar.Width));

MouseUp:

Код:

1 2 3 4 5 6

// Если была нажата левая клавиша, то продолжаем   if Button = mbLeft then   begin     BASS_ChannelSetPosition(Channel, PlayBar.Position, 0);     ProgressMouseDown := False   end;

OnTimer:

Код:

1 2	if ProgressMouseDown = False then   PlayBar.Position := BASS_ChannelGetPosition(Channel, 0);

ProgressMouseDown - глобальная переменная типа Boolean.

Попробуйте вышеприведенный код, скопировал с проекта

[Amzi]

Сообщение от sariman

Попробуйте вышеприведенный код

Спасибо,но проблема осталась...

[sariman]

Значит проблема в самом компоненте, попробуйте кинуть обычный trackbar и попробуйте.