Hallo nochmal,
habe noch etwas nachkorrigiert hier damit das visuelle aktueller gleich ausschaut, vielleicht machst Du das auch bei Dir.
Delphi-Quellcode:
procedure TForm1.pb1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
pb1.Position := round(X / (pb1.Width / pb1.Max));
MeMPPlaylist.Progress := pb1.Position / 100;
MainScrollbar.Position := pb1.Position;
end;
Delphi-Quellcode:
procedure TForm1.MainTimerTimer(Sender: TObject);
var t: integer;
begin
if MainScrollbar.Tag = 0 then
begin
MainScrollbar.Position := Round(MeMPPlaylist.Progress * 100);
pb1.Position := MainScrollbar.Position;
end;
t := Round(MeMPPlaylist.Time);
LblTime.Caption := Format('%.2d:%.2d',[t Div 60, t Mod 60]);
MeMPPlaylist.DrawSpectrum(SpectrumPaintbox.Canvas.Handle);
end;
Hallo @Gausi, ich hoffe das geht in Ordnung so.
Mit paar sekunden vor oder nach hinten hopsen würde ich auch über eine der TBar.Position realisieren, es kann dann nicht exakt 3 sekunden sein da die TBar's immer 0-100 sind, prozentual von liedlänge halt.
Vielleicht klappts auch anders, der Erfinder kann sich da bestimmt noch Besser zu äußern
Nachtrag: Hat er ja bereits getan
