[Komponente] Bass Player Komponente: TBassDLLPlayer (+Demos)

[turboPASCAL]

Äh, das ist wegen einem Bug so. Der Bug entsteht durch das OnChangeEvent der Trackbar wenn
der Player über die Trackbar "seine" aktuelle Position setzt.

Normalerweise müsste man noch das Trackbar.OnChangeEvent überschreiben oder so etwas...

// Edit:
Eine Lösung:

Delphi-Quellcode:

procedure TForm1.GeneralTimerTick;
begin
  if BassdllPlayer1.Status = sndPLAYING then
  begin
    TrackBar1.SelStart  := BassdllPlayer1.GetSongTimeInfo(stUp).asInteger;
    TrackBar1.SelEnd    := BassdllPlayer1.GetSongTimeInfo(stUp).asInteger;

    TrackBar1.Tag := -1; // <--<< diese Zeile einfügen
    TrackBar1.Position := BassdllPlayer1.Position;
    TrackBar1.Tag := 1;  // <--<< diese Zeile einfügen
  end;

// ...

procedure TForm1.TrackBar1Change(Sender: TObject);
begin // Change Song Pos
  if TrackBar1.Tag > 0 then // <--<< diese Zeile einfügen
    BassdllPlayer1.Position := TrackBar1.Position;
end;